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/compiler/CodeGen/cpscompile/cps-c-calls.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/CodeGen/cpscompile/cps-c-calls.sml

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

revision 1536, Tue Jul 13 18:30:33 2004 UTC revision 1537, Tue Jul 13 18:49:54 2004 UTC
# Line 331  Line 331 
331             loop (defs, [], [])             loop (defs, [], [])
332         end (* srd *)         end (* srd *)
333    
334           val paramAlloc =
335               case MS.ccall_maxargspace of
336                   NONE => (fn { szb, align } => false)
337                 | SOME m => (fn { szb, align } =>
338                                 if szb > m then
339                                     error "argument list in C-call too big"
340                                 else false)
341    
342         val { callseq, result } =         val { callseq, result } =
343             CCalls.genCall             CCalls.genCall
344                 { name = f, proto = p, structRet = sr,                 { name = f, proto = p, structRet = sr,
345                   saveRestoreDedicated = srd,                   saveRestoreDedicated = srd,
346                   paramAlloc = fn _ => false,                   paramAlloc = paramAlloc,
347                   callComment =                   callComment =
348                   SOME ("C prototype is: " ^ CProto.pshow p),                   SOME ("C prototype is: " ^ CProto.pshow p),
349                   args = a }                   args = a }

Legend:
Removed from v.1536  
changed lines
  Added in v.1537

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