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/branches/blume-private-devel/src/compiler/CodeGen/cpscompile/cps-c-calls.sml
ViewVC logotype

Diff of /sml/branches/blume-private-devel/src/compiler/CodeGen/cpscompile/cps-c-calls.sml

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

revision 1542, Tue Jul 13 22:19:50 2004 UTC revision 1543, Tue Jul 13 22:19:50 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.1542  
changed lines
  Added in v.1543

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