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/plambda/pplexp.sml
ViewVC logotype

Diff of /sml/trunk/compiler/FLINT/plambda/pplexp.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 113  Line 113 
113            | ppl pd (WORD i) = (pps "(W)"; pps (Word.toString i))            | ppl pd (WORD i) = (pps "(W)"; pps (Word.toString i))
114            | ppl pd (INT32 i) = (pps "(I32)"; pps(Int32.toString i))            | ppl pd (INT32 i) = (pps "(I32)"; pps(Int32.toString i))
115            | ppl pd (WORD32 i) = (pps "(W32)"; pps(Word32.toString i))            | ppl pd (WORD32 i) = (pps "(W32)"; pps(Word32.toString i))
116            | ppl pd (REAL r) = (pps "(R64)"; pps(RealLit.toString r))            | ppl pd (REAL{rval, ty}) =
117                  pps(concat["(R", Int.toString ty, ")", RealLit.toString rval])
118            | ppl pd (STRING s) = pps (mlstr s)            | ppl pd (STRING s) = pps (mlstr s)
119            | ppl pd (ETAG (l,_)) = ppl pd l            | ppl pd (ETAG (l,_)) = ppl pd l
120    
# Line 425  Line 426 
426             | RAISE(l,_) => find l             | RAISE(l,_) => find l
427             | INT _ => () | WORD _ => ()             | INT _ => () | WORD _ => ()
428             | INT32 _ => () | WORD32 _ => ()             | INT32 _ => () | WORD32 _ => ()
429             | STRING _ => () | REAL _ => ()             | REAL _ => ()
430               | STRING _ => ()
431             | ETAG (e,_) => find e             | ETAG (e,_) => find e
432             | PRIM _ => ()             | PRIM _ => ()
433             | GENOP ({default=e1,table=es}, _, _, _) =>             | GENOP ({default=e1,table=es}, _, _, _) =>

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