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 4540, Wed Apr 25 17:06:35 2018 UTC revision 4560, Fri May 4 23:00:31 2018 UTC
# Line 28  Line 28 
28    
29  fun value2str (VAR v) = LV.lvarName v  fun value2str (VAR v) = LV.lvarName v
30    | value2str (LABEL v) = "(L)" ^ LV.lvarName v    | value2str (LABEL v) = "(L)" ^ LV.lvarName v
31    | value2str (INT i) = "(I)" ^ Int.toString i    | value2str (NUM{ival, ty={sz=0, ...}}) = "(II)" ^ IntInf.toString ival
32    | value2str (INT32 i) = "(I32)" ^ Word32.toString i    | value2str (NUM{ival, ty={tag=true, ...}}) = "(I)" ^ IntInf.toString ival
33      | value2str (NUM{ival, ty={sz, ...}}) = concat[
34            "(I", Int.toString sz, ")", IntInf.toString ival
35          ]
36    | value2str (REAL{rval, ty}) = concat[    | value2str (REAL{rval, ty}) = concat[
37          "(R", Int.toString ty, ")", RealLit.toString rval          "(R", Int.toString ty, ")", RealLit.toString rval
38        ]        ]

Legend:
Removed from v.4540  
changed lines
  Added in v.4560

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