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/vararg-ccall/vararg-ccall.sml
ViewVC logotype

Diff of /MLRISC/trunk/vararg-ccall/vararg-ccall.sml

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

revision 3062, Wed Jun 4 06:59:52 2008 UTC revision 3063, Thu Jun 5 00:42:15 2008 UTC
# Line 101  Line 101 
101              DL.lib_symbol (lh, s)              DL.lib_symbol (lh, s)
102          end          end
103    
     val vararg_h = vararg's "varargs"  
   
104    (* call the vararg interpreter *)    (* call the vararg interpreter *)
105      fun vararg (cFun, zippedArgs, stkArgSzB) = let      fun vararg (cFun, zippedArgs, stkArgSzB) = let
106                val vararg_h = vararg's "vararg_wrapper"
107              val callInterp = RawMemInlineT.rawccall :              val callInterp = RawMemInlineT.rawccall :
108                        Word32.word * (Word32.word * Word32.word * Word32.word) *                        Word32.word * (Word32.word * Word32.word * Word32.word) *
109                        (unit * Word32.word * Word32.word * Word32.word -> Word32.word) list                        (unit * Word32.word * Word32.word * Word32.word -> Word32.word) list

Legend:
Removed from v.3062  
changed lines
  Added in v.3063

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