SCM Repository
Diff of /sml/trunk/src/MLRISC/ppc/ppc.mdl
Parent Directory
| 
Revision Log
| 
Patch
| revision 1612, Wed Aug 11 02:45:25 2004 UTC | revision 1613, Wed Aug 11 03:35:58 2004 UTC | |
|---|---|---|
| # | Line 23 | Line 23 |
| 23 | storage | storage |
| 24 | GP = $r[32] of 64 bits asm: ( | GP = $r[32] of 64 bits asm: ( |
| 25 | fn (r,_) => if !PPCAsmSyntax.ibm_syntax | fn (r,_) => if !PPCAsmSyntax.ibm_syntax |
| 26 | then "r"^Int.toString r | then Int.toString r |
| 27 | else Int.toString r) | else "r"^Int.toString r) |
| 28 | | FP = $f[32] of 64 bits asm: ( | | FP = $f[32] of 64 bits asm: ( |
| 29 | fn (f,_) => if !PPCAsmSyntax.ibm_syntax | fn (f,_) => if !PPCAsmSyntax.ibm_syntax |
| 30 | then "f"^Int.toString f | then Int.toString f |
| 31 | else Int.toString r) | else "f"^Int.toString r) |
| 32 | | CC = $cc[8] of 4 bits asm: (fn (cr,_) => "cr"^Int.toString cr) | | CC = $cc[8] of 4 bits asm: (fn (cr,_) => "cr"^Int.toString cr) |
| 33 | | SPR = $spr[32] of 64 bits | | SPR = $spr[32] of 64 bits |
| 34 | asm: (fn (1,_) => "xer" | asm: (fn (1,_) => "xer" |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
