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/x86/x86.mdl
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 746, Fri Dec 8 04:16:09 2000 UTC revision 775, Fri Jan 12 01:17:51 2001 UTC
# Line 66  Line 66 
66     and edi       = $r[7]     and edi       = $r[7]
67     and stackptrR = $r[4]     and stackptrR = $r[4]
68     and ST(x)     = $f[x]     and ST(x)     = $f[x]
69       and ST0       = $f[0]
70     and asmTmpR   = $r[0] (* not used *)     and asmTmpR   = $r[0] (* not used *)
71     and fasmTmp   = $f[0] (* not used *)     and fasmTmp   = $f[0] (* not used *)
72     and eflags    = $eflags[0]     and eflags    = $eflags[0]
# Line 97  Line 98 
98        (* Note: Relative is only generated after sdi resolution *)        (* Note: Relative is only generated after sdi resolution *)
99        datatype operand =        datatype operand =
100           Immed      of Int32.int           rtl: int           Immed      of Int32.int           rtl: int
101         | ImmedLabel of LabelExp.labexp     rtl: labexp         | ImmedLabel of T.labexp            rtl: labexp
102         | Relative   of int                 (* no semantics given *)         | Relative   of int                 (* no semantics given *)
103         | LabelEA    of LabelExp.labexp     rtl: labexp (* XXX *)         | LabelEA    of T.labexp            rtl: labexp (* XXX *)
104         | Direct     of $GP                 rtl: $r[GP]         | Direct     of $GP                 rtl: $r[GP]
105            (* pseudo memory register for floating point *)            (* pseudo memory register for floating point *)
106         | FDirect    of $FP                 rtl: $f[FP]         | FDirect    of $FP                 rtl: $f[FP]
# Line 907  Line 908 
908     *------------------------------------------------------------------------*)     *------------------------------------------------------------------------*)
909      structure SSA =      structure SSA =
910      struct      struct
911         fun operand(ty, I.Immed i) = T.LI(Int32.toInt i)         fun operand(ty, I.Immed i) = T.LI(T.I.fromInt32(32,i))
912           (*| operand(ty, I.ImmedLabel le) = T.LABEL le*)           (*| operand(ty, I.ImmedLabel le) = T.LABEL le*)
913           | operand(ty, I.Direct r) = T.REG(ty, r)           | operand(ty, I.Direct r) = T.REG(ty, r)
914           | operand _ = error "operand"           | operand _ = error "operand"

Legend:
Removed from v.746  
changed lines
  Added in v.775

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