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/primop-branch-2/src/compiler/FLINT/trans/translate.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-2/src/compiler/FLINT/trans/translate.sml

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

revision 772, Thu Jan 4 15:36:41 2001 UTC revision 773, Mon Jan 8 16:18:37 2001 UTC
# Line 746  Line 746 
746                         table = [([LT.tcc_real], coreAcc "mkRealArray")]}                         table = [([LT.tcc_real], coreAcc "mkRealArray")]}
747                   in GENOP (dict, p, toLty d typ, map (toTyc d) ts)                   in GENOP (dict, p, toLty d typ, map (toTyc d) ts)
748                  end                  end
749             | (PO.RAW_CCALL NONE, [a, b, c]) =>
750               let val i = SOME { c_proto = CProto.decode b,
751                                  ml_flt_args = CProto.flt_args a,
752                                  ml_flt_res = CProto.flt_res c }
753                       handle CProto.BadEncoding => NONE
754                in PRIM (PO.RAW_CCALL i, toLty d typ, map (toTyc d) ts)
755               end
756           | _ => transPrim(p, (toLty d typ), map (toTyc d) ts))           | _ => transPrim(p, (toLty d typ), map (toTyc d) ts))
757    | mkVE (v, [], d) = mkVar(v, d)    | mkVE (v, [], d) = mkVar(v, d)
758    | mkVE (v, ts, d) = TAPP(mkVar(v, d), map (toTyc d) ts)    | mkVE (v, ts, d) = TAPP(mkVar(v, d), map (toTyc d) ts)

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

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