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/flint/ppflint.sml
ViewVC logotype

Diff of /sml/trunk/compiler/FLINT/flint/ppflint.sml

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

revision 4539, Sat Apr 21 17:13:52 2018 UTC revision 4540, Wed Apr 25 17:06:35 2018 UTC
# Line 86  Line 86 
86        | toStringValue (F.INT32 i)  = "(I32)" ^ Int32.toString i        | toStringValue (F.INT32 i)  = "(I32)" ^ Int32.toString i
87        | toStringValue (F.WORD i)   = "(W)" ^ Word.toString i        | toStringValue (F.WORD i)   = "(W)" ^ Word.toString i
88        | toStringValue (F.WORD32 i) = "(W32)" ^ Word32.toString i        | toStringValue (F.WORD32 i) = "(W32)" ^ Word32.toString i
89        | toStringValue (F.REAL r)   = "(R64)" ^ RealLit.toString r        | toStringValue (F.REAL{rval, ty}) =
90              concat["(R", Int.toString ty, ")", RealLit.toString rval]
91        | toStringValue (F.STRING s) = PU.mlstr s        | toStringValue (F.STRING s) = PU.mlstr s
92    
93      val printSval = say o toStringValue      val printSval = say o toStringValue

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

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