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

Diff of /sml/trunk/src/MLRISC/mltree/mltree-mult.sml

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

revision 760, Fri Dec 22 14:15:24 2000 UTC revision 761, Sat Dec 23 05:37:37 2000 UTC
# Line 117  Line 117 
117     fun roundToZero stm {ty,r,i,d} =     fun roundToZero stm {ty,r,i,d} =
118         let val reg = T.REG(ty,r)         let val reg = T.REG(ty,r)
119         in  stm(T.MV(ty,d,         in  stm(T.MV(ty,d,
120                      T.COND(ty,T.CMP(ty,T.GE,reg,T.LI 0),reg,                      T.COND(ty,T.CMP(ty,T.GE,reg, T.LI T.I.int_0),reg,
121                                T.ADD(ty,reg,T.LI i))))                                T.ADD(ty,reg,T.LI(T.I.fromInt(intTy,i))))))
122         end         end
123    
124    

Legend:
Removed from v.760  
changed lines
  Added in v.761

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