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/CPS/cps/ppcps.sml
ViewVC logotype

Diff of /sml/trunk/compiler/CPS/cps/ppcps.sml

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

revision 4667, Tue Jun 12 18:46:48 2018 UTC revision 4668, Tue Jun 12 21:57:04 2018 UTC
# Line 37  Line 37 
37          "(R", Int.toString ty, ")", RealLit.toString rval          "(R", Int.toString ty, ")", RealLit.toString rval
38        ]        ]
39    | value2str (STRING s) = concat["\"", String.toString s, "\""]    | value2str (STRING s) = concat["\"", String.toString s, "\""]
   | value2str (OBJECT _) = "(object)"  
40    | value2str (VOID) = "(void)"    | value2str (VOID) = "(void)"
41    
42  fun numkindName (P.INT bits) = "i" ^ Int.toString bits  fun numkindName (P.INT bits) = "i" ^ Int.toString bits

Legend:
Removed from v.4667  
changed lines
  Added in v.4668

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