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 3063, Thu Jun 5 00:42:15 2008 UTC revision 3064, Thu Jun 5 07:20:32 2008 UTC
# Line 103  Line 103 
103    
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"              val vararg_h = vararg's "varargs"
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.3063  
changed lines
  Added in v.3064

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