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/src/MLRISC/Tools/PP/pp.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/Tools/PP/pp.sml

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

revision 1024, Thu Jan 17 19:30:59 2002 UTC revision 1025, Thu Jan 17 20:31:51 2002 UTC
# Line 35  Line 35 
35     fun num s S = let val (b,i,m,c,t,l) = space S     fun num s S = let val (b,i,m,c,t,l) = space S
36                   in  (s::b,i,m,size s+c,NUM,l) end                   in  (s::b,i,m,size s+c,NUM,l) end
37     fun int n S = num (Int.toString n) S     fun int n S = num (Int.toString n) S
38       fun int32 n S = num (Int32.toString n) S
39     fun real r S = num (Real.toString r) S     fun real r S = num (Real.toString r) S
40     fun intinf i S = num (IntInf.toString i) S     fun intinf i S = num (IntInf.toString i) S
41     fun word w S = num ("0wx"^Word.toString w) S     fun word w S = num ("0wx"^Word.toString w) S

Legend:
Removed from v.1024  
changed lines
  Added in v.1025

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