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/compiler/FLINT/cps/convert.sml
ViewVC logotype

Diff of /sml/trunk/compiler/FLINT/cps/convert.sml

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

revision 4812, Wed Sep 12 21:56:57 2018 UTC revision 4813, Wed Sep 12 23:55:25 2018 UTC
# Line 182  Line 182 
182    
183    (* primwrap: cty -> P.pure *)    (* primwrap: cty -> P.pure *)
184      fun primwrap (NUMt{sz=31, tag=true}) = P.iwrap      fun primwrap (NUMt{sz=31, tag=true}) = P.iwrap
185        | primwrap (NUMt{sz=32, tag=false}) = P.i32wrap        | primwrap (NUMt{sz=32, tag=false}) = P.i32wrap   (* 64BIT: FIXME *)
186        | primwrap (NUMt _) = raise Fail "unsupported NUMt size" (* 64BIT: *)        | primwrap (NUMt _) = raise Fail "unsupported NUMt size" (* 64BIT: *)
187        | primwrap (FLTt 64) = P.fwrap        | primwrap (FLTt 64) = P.fwrap
188        | primwrap (FLTt n) = raise Fail(concat["primwrap: FLTt ", Int.toString n, " is unsupported"]) (* REAL32: *)        | primwrap (FLTt n) = raise Fail(concat["primwrap: FLTt ", Int.toString n, " is unsupported"]) (* REAL32: *)

Legend:
Removed from v.4812  
changed lines
  Added in v.4813

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