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/FakeSMLAst/ast-util.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/Tools/FakeSMLAst/ast-util.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 36  Line 36 
36     fun BOOLexp x = LITexp(BOOLlit x)     fun BOOLexp x = LITexp(BOOLlit x)
37     fun STRINGexp s = LITexp(STRINGlit s)     fun STRINGexp s = LITexp(STRINGlit s)
38     fun INTexp x = LITexp(INTlit x)     fun INTexp x = LITexp(INTlit x)
39       fun INT32exp x = LITexp(INT32lit x)
40     fun INTINFexp x = LITexp(INTINFlit x)     fun INTINFexp x = LITexp(INTINFlit x)
41     fun CHARexp x = LITexp(CHARlit x)     fun CHARexp x = LITexp(CHARlit x)
42     fun WORDexp x = LITexp(WORDlit x)     fun WORDexp x = LITexp(WORDlit x)
# Line 44  Line 45 
45     fun BOOLpat x = LITpat(BOOLlit x)     fun BOOLpat x = LITpat(BOOLlit x)
46     fun STRINGpat s = LITpat(STRINGlit s)     fun STRINGpat s = LITpat(STRINGlit s)
47     fun INTpat x = LITpat(INTlit x)     fun INTpat x = LITpat(INTlit x)
48       fun INT32pat x = LITpat(INT32lit x)
49     fun INTINFpat x = LITpat(INTINFlit x)     fun INTINFpat x = LITpat(INTINFlit x)
50     fun CHARpat x = LITpat(CHARlit x)     fun CHARpat x = LITpat(CHARlit x)
51     fun WORDpat x = LITpat(WORDlit x)     fun WORDpat x = LITpat(WORDlit x)
# Line 135  Line 137 
137           | kind(WORD32lit _) = 5           | kind(WORD32lit _) = 5
138           | kind(INTINFlit _) = 6           | kind(INTINFlit _) = 6
139           | kind(REALlit _) = 7           | kind(REALlit _) = 7
140             | kind(INT32lit _) = 8
141     in  case (x, y) of     in  case (x, y) of
142           (INTlit x,INTlit y) => Int.compare(x,y)           (INTlit x,INTlit y) => Int.compare(x,y)
143           | (INT32lit x,INT32lit y) => Int32.compare(x,y)
144         | (BOOLlit x,BOOLlit y) => if x = y then EQUAL         | (BOOLlit x,BOOLlit y) => if x = y then EQUAL
145                                    else if x = false then LESS else GREATER                                    else if x = false then LESS else GREATER
146         | (STRINGlit x,STRINGlit y) => String.compare(x,y)         | (STRINGlit x,STRINGlit y) => String.compare(x,y)

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