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/Semant/pickle/pickmod-new.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Semant/pickle/pickmod-new.sml

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

revision 773, Mon Jan 8 16:18:37 2001 UTC revision 774, Wed Jan 10 12:50:56 2001 UTC
# Line 340  Line 340 
340      end      end
341    
342      fun ccall_info { c_proto = { conv, retTy, paramTys },      fun ccall_info { c_proto = { conv, retTy, paramTys },
343                       ml_flt_args, ml_flt_res } = let                       ml_flt_args, ml_flt_res_opt } = let
344          val op $ = PU.$ CCI          val op $ = PU.$ CCI
345      in      in
346          "C" $ [string conv, ctype retTy, list ctype paramTys,          "C" $ [string conv, ctype retTy, list ctype paramTys,
347                 list bool ml_flt_args, bool ml_flt_res]                 list bool ml_flt_args, option bool ml_flt_res_opt]
348      end      end
349    
350      fun primop p = let      fun primop p = let

Legend:
Removed from v.773  
changed lines
  Added in v.774

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