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/c-call/varargs/call/vararg-call-fn.sml
ViewVC logotype

Diff of /MLRISC/trunk/c-call/varargs/call/vararg-call-fn.sml

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

revision 3226, Thu Sep 18 03:28:24 2008 UTC revision 3227, Thu Sep 18 06:06:40 2008 UTC
# Line 66  Line 66 
66              val reqs = List.map argToReq args              val reqs = List.map argToReq args
67              val (locs, store) = SA.allocateSeq params (reqs, store0)              val (locs, store) = SA.allocateSeq params (reqs, store0)
68              val locdArgs = LocatedArgs.mkLocatedArgs (args, locs)              val locdArgs = LocatedArgs.mkLocatedArgs (args, locs)
69    (*val _ = print ((String.concatWith " " (List.map LocatedArgs.toString locdArgs))^"\n")*)
70              val nLocdArgs = List.length locdArgs              val nLocdArgs = List.length locdArgs
71              val {startLocdArgs, endLocdArgs} = Marshal.marshalLocdArgs locdArgs              val {startLocdArgs, endLocdArgs} = Marshal.marshalLocdArgs locdArgs
72              in              in

Legend:
Removed from v.3226  
changed lines
  Added in v.3227

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