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 /MLRISC/trunk/x86/staged-allocation/ia32-vararg-ccall-fn.sml
ViewVC logotype

Diff of /MLRISC/trunk/x86/staged-allocation/ia32-vararg-ccall-fn.sml

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

revision 3050, Fri May 30 05:11:56 2008 UTC revision 3051, Fri May 30 06:29:06 2008 UTC
# Line 20  Line 20 
20      structure C = X86Cells      structure C = X86Cells
21      structure CB = CellsBasis      structure CB = CellsBasis
22      structure CTy = CTypes      structure CTy = CTypes
23      structure SVID = IA32SVIDFn(      structure CCall = IA32SVIDFn(
24                         structure T = T                         structure T = T
25                         val abi = abi                         val abi = abi
26                         val ix = ix                         val ix = ix
# Line 28  Line 28 
28                       )                       )
29      structure VarargCCall = VarargCCallFn(      structure VarargCCall = VarargCCallFn(
30                                structure T = T                                structure T = T
31                                structure CCall = SVID                                structure CCall = CCall
32                                val gprParams = []                                val gprParams = []
33                                val fprParams = []                                val fprParams = []
34                                val spReg = SVID.spReg                                val spReg = CCall.spReg
35                                val wordTy = 64                                val wordTy = 64
36                                val newReg = C.newReg                                val newReg = C.newReg
37                              )                              )
     structure SA = SVID.SA  
38    
39        val wordTy = 64
40        fun lit i = T.LI (T.I.fromInt (wordTy, i))
41    
42        fun callWithArgs (cFun, args) = let
43               val triplets = VarargCCall.encodeArgs args
44               in
45                  raise Fail "jump to the interpreter"
46               end
47    
48        fun genVarargs (cFun, args) = VarargCCall.genVarargs(cFun, args)
49    
50    end    end

Legend:
Removed from v.3050  
changed lines
  Added in v.3051

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