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/c-calls/ia32-svid.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/x86/c-calls/ia32-svid.sml

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

revision 1546, Wed Jul 14 18:38:08 2004 UTC revision 1547, Wed Jul 14 19:40:35 2004 UTC
# Line 105  Line 105 
105      val sp = C.esp      val sp = C.esp
106      fun LI i = T.LI(T.I.fromInt(32, i))      fun LI i = T.LI(T.I.fromInt(32, i))
107    
     local  
108        fun fpr(sz,f) = T.FPR(T.FREG(sz, f))        fun fpr(sz,f) = T.FPR(T.FREG(sz, f))
109        fun gpr(sz,r) = T.GPR(T.REG(sz, r))        fun gpr(sz,r) = T.GPR(T.REG(sz, r))
110        val st0 = C.ST(0)        val st0 = C.ST(0)
# Line 113  Line 112 
112        val callerSaves = [gpr(32, C.eax), gpr(32, C.ecx), gpr(32, C.edx)]        val callerSaves = [gpr(32, C.eax), gpr(32, C.ecx), gpr(32, C.edx)]
113        val oneRes = [gpr(32, C.eax)]        val oneRes = [gpr(32, C.eax)]
114        val twoRes = [gpr(32, C.edx), gpr(32, C.eax)]        val twoRes = [gpr(32, C.edx), gpr(32, C.eax)]
115      in  
116    (* List of registers defined by a C Call; this is the result registers    (* List of registers defined by a C Call; this is the result registers
117     * plus the caller-save registers.     * plus the caller-save registers.
118     * Multiple returns have most significant register first.     * Multiple returns have most significant register first.
# Line 134  Line 133 
133        | resultsAndDefs (Ty.C_PTR) = (oneRes, callerSaves)        | resultsAndDefs (Ty.C_PTR) = (oneRes, callerSaves)
134        | resultsAndDefs (Ty.C_ARRAY _) = (oneRes, callerSaves)        | resultsAndDefs (Ty.C_ARRAY _) = (oneRes, callerSaves)
135        | resultsAndDefs (Ty.C_STRUCT _) = (oneRes, callerSaves)        | resultsAndDefs (Ty.C_STRUCT _) = (oneRes, callerSaves)
     end (* local *)  
136    
137  (**** START NEW CODE ****)  (**** START NEW CODE ****)
138    

Legend:
Removed from v.1546  
changed lines
  Added in v.1547

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