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-gen.sml
ViewVC logotype

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

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

revision 796, Tue Mar 6 00:04:33 2001 UTC revision 909, Fri Aug 24 17:48:53 2001 UTC
# Line 185  Line 185 
185       | compileStm (T.IF(cond,T.JMP(T.LABEL L,_),T.SEQ [])) =       | compileStm (T.IF(cond,T.JMP(T.LABEL L,_),T.SEQ [])) =
186             [T.BCC(cond,L)]             [T.BCC(cond,L)]
187       | compileStm (T.IF(cond,yes,no)) =       | compileStm (T.IF(cond,yes,no)) =
188         let val L1 = Label.newLabel ""         let val L1 = Label.anon()
189             val L2 = Label.newLabel ""             val L2 = Label.anon()
190         in  [T.BCC(cond,L1),         in  [T.BCC(cond,L1),
191              no,              no,
192              T.JMP(T.LABEL L2,[]),              T.JMP(T.LABEL L2,[]),
# Line 204  Line 204 
204      * e1 and e2 are allowed to be eagerly evaluated.      * e1 and e2 are allowed to be eagerly evaluated.
205      *)      *)
206     fun compileCond{exp=(ty,ccexp,e1,e2),rd,an} =     fun compileCond{exp=(ty,ccexp,e1,e2),rd,an} =
207     let val L1 = Label.newLabel ""     let val L1 = Label.anon()
208     in  [T.MV(ty,rd,e1),     in  [T.MV(ty,rd,e1),
209          mark(T.BCC(ccexp,L1),an),          mark(T.BCC(ccexp,L1),an),
210          T.MV(ty,rd,e2),          T.MV(ty,rd,e2),
# Line 212  Line 212 
212         ]         ]
213     end     end
214     fun compileFcond{exp=(fty,ccexp,e1,e2),fd,an} =     fun compileFcond{exp=(fty,ccexp,e1,e2),fd,an} =
215     let val L1 = Label.newLabel ""     let val L1 = Label.anon()
216     in  [T.FMV(fty,fd,e1),     in  [T.FMV(fty,fd,e1),
217          mark(T.BCC(ccexp,L1),an),          mark(T.BCC(ccexp,L1),an),
218          T.FMV(fty,fd,e2),          T.FMV(fty,fd,e2),

Legend:
Removed from v.796  
changed lines
  Added in v.909

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