Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/ppc/ppc.mdl
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ppc/ppc.mdl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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"

Legend:
Removed from v.1612  
changed lines
  Added in v.1613

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0