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
 [smlnj] / sml / trunk / src / MLRISC / mltree / build-rtl.sml

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

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