SCM Repository
Diff of /sml/trunk/src/MLRISC/ppc/ppc.mdl
Parent Directory
| 
Revision Log
| 
Patch
| revision 1592, Thu Aug 5 16:53:03 2004 UTC | revision 1593, Thu Aug 5 22:19:45 2004 UTC | |
|---|---|---|
| # | Line 21 | Line 21 |
| 21 | lowercase assembly | lowercase assembly |
| 22 | ||
| 23 | storage | storage |
| 24 | GP = $r[32] of 64 bits asm: (fn (r,_) => Int.toString r) | GP = $r[32] of 64 bits asm: ( |
| 25 | | FP = $f[32] of 64 bits asm: (fn (f,_) => Int.toString f) | fn (r,_) => if !PPCAsmSyntax.ibm_syntax |
| 26 | then "r"^Int.toString r | |
| 27 | else Int.toString r) | |
| 28 | | FP = $f[32] of 64 bits asm: ( | |
| 29 | fn (f,_) => if !PPCAsmSyntax.ibm_syntax | |
| 30 | then "f"^Int.toString f | |
| 31 | else 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 |
