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 1539, Tue Jul 13 19:05:30 2004 UTC revision 1540, Tue Jul 13 20:15:55 2004 UTC
# Line 332  Line 332 
332         end (* srd *)         end (* srd *)
333    
334         val paramAlloc =         val paramAlloc =
335             case MS.ccall_maxargspace of             case MS.ccall_prealloc_argspace of
336                 NONE => (fn { szb, align } => false)                 NONE => (fn { szb, align } => false)
337               | SOME m => (fn { szb, align } =>               | SOME s => (fn { szb, align } =>
338                               if szb > m then                               if szb > s then
339                                   error "argument list in C-call too big"                                   error "argument list in C-call too big"
340                               else false)                               else true)
341    
342         val { callseq, result } =         val { callseq, result } =
343             CCalls.genCall             CCalls.genCall

Legend:
Removed from v.1539  
changed lines
  Added in v.1540

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