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/mltree/build-rtl.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/mltree/build-rtl.sml

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

revision 1201, Fri May 17 20:48:38 2002 UTC revision 1202, Sat May 18 01:05:18 2002 UTC
# Line 35  Line 35 
35     (* Integer operators *)     (* Integer operators *)
36     fun unary f ty x = f(ty,x)     fun unary f ty x = f(ty,x)
37     fun binary f ty (x, y) = f(ty,x,y)     fun binary f ty (x, y) = f(ty,x,y)
38       fun ternary f ty (x, y, z) = f(ty, x, y, z)
39    
40     fun operand ty opn = opn     fun operand ty opn = opn
41     fun label ty label = label     fun label ty label = label
# Line 67  Line 68 
68     val op -  = binary T.SUB     val op -  = binary T.SUB
69     val muls  = binary T.MULS     val muls  = binary T.MULS
70     val mulu  = binary T.MULU     val mulu  = binary T.MULU
71     val divs  = binary T.DIVS     val divs  = ternary T.DIVS
72     val divu  = binary T.DIVU     val divu  = binary T.DIVU
73     val rems  = binary T.REMS     val rems  = ternary T.REMS
74     val remu  = binary T.REMU     val remu  = binary T.REMU
75     fun ~ ty x = (op - ty) (intConst ty 0,x)     fun ~ ty x = (op - ty) (intConst ty 0,x)
76    

Legend:
Removed from v.1201  
changed lines
  Added in v.1202

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