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

Diff of /sml/trunk/src/MLRISC/mltree/rtl-build.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 15  Line 15 
15     type region  = T.rexp     type region  = T.rexp
16     type cond    = T.cond     type cond    = T.cond
17     type fcond   = T.fcond     type fcond   = T.fcond
18       type div_rounding_mode = T.div_rounding_mode
19    
20     fun error msg = MLRiscErrorMsg.error("RTLBuild",msg)     fun error msg = MLRiscErrorMsg.error("RTLBuild",msg)
21    
# Line 51  Line 52 
52     fun intConst ty i = T.LI(I.fromInt(ty, i))     fun intConst ty i = T.LI(I.fromInt(ty, i))
53     fun wordConst ty w = T.LI(I.fromWord32(ty, w))     fun wordConst ty w = T.LI(I.fromWord32(ty, w))
54    
55       fun ternaryOp oper ty (x, y, z) = oper(x, ty, y, z)
56     fun binOp oper ty (x, y) = oper(ty,x,y)     fun binOp oper ty (x, y) = oper(ty,x,y)
57     fun unaryOp oper ty x = oper(ty,x)     fun unaryOp oper ty x = oper(ty,x)
58    
# Line 61  Line 63 
63     val op+   = binOp T.ADD     val op+   = binOp T.ADD
64     val op-   = binOp T.SUB     val op-   = binOp T.SUB
65     val muls  = binOp T.MULS     val muls  = binOp T.MULS
66     val divs  = binOp T.DIVS     val divs  = ternaryOp T.DIVS
67     val quots = binOp T.QUOTS     val rems  = ternaryOp T.REMS
    val rems  = binOp T.REMS  
68     val mulu  = binOp T.MULU     val mulu  = binOp T.MULU
69     val divu  = binOp T.DIVU     val divu  = binOp T.DIVU
70     val remu  = binOp T.REMU     val remu  = binOp T.REMU
# Line 72  Line 73 
73     val addt  = binOp T.ADDT     val addt  = binOp T.ADDT
74     val subt  = binOp T.SUBT     val subt  = binOp T.SUBT
75     val mult  = binOp T.MULT     val mult  = binOp T.MULT
76     val divt  = binOp T.DIVT     val divt  = ternaryOp T.DIVT
    val quott = binOp T.QUOTT  
    val remt  = binOp T.REMT  
77    
78     val notb  = unaryOp T.NOTB     val notb  = unaryOp T.NOTB
79     val andb  = binOp T.ANDB     val andb  = binOp T.ANDB

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