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/FLINT/trans/translate.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/trans/translate.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 749  Line 749 
749           | (PO.RAW_CCALL NONE, [a, b, c]) =>           | (PO.RAW_CCALL NONE, [a, b, c]) =>
750             let val i = SOME { c_proto = CProto.decode b,             let val i = SOME { c_proto = CProto.decode b,
751                                ml_flt_args = CProto.flt_args a,                                ml_flt_args = CProto.flt_args a,
752                                ml_flt_res = CProto.flt_res c }                                ml_flt_res_opt = CProto.flt_res c }
753                     handle CProto.BadEncoding => NONE                     handle CProto.BadEncoding => NONE
754              in PRIM (PO.RAW_CCALL i, toLty d typ, map (toTyc d) ts)              in PRIM (PO.RAW_CCALL i, toLty d typ, map (toTyc d) ts)
755             end             end

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