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

Diff of /sml/trunk/src/MLRISC/alpha/mltree/alpha.sml

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

revision 889, Thu Jul 19 20:35:20 2001 UTC revision 909, Fri Aug 24 17:48:53 2001 UTC
# Line 42  Line 42 
42    structure P   = PseudoInstrs    structure P   = PseudoInstrs
43    structure A   = MLRiscAnnotations    structure A   = MLRiscAnnotations
44    structure CB  = CellsBasis    structure CB  = CellsBasis
45      structure CFG = ExtensionComp.CFG
46    
47   (*********************************************************   (*********************************************************
48    
# Line 142  Line 143 
143    
144    fun error msg = MLRiscErrorMsg.error("Alpha",msg)    fun error msg = MLRiscErrorMsg.error("Alpha",msg)
145    
146    type instrStream = (I.instruction,C.cellset) T.stream    type instrStream = (I.instruction, C.cellset, CFG.cfg) T.stream
147    type mltreeStream = (T.stm,T.mlrisc list) T.stream    type mltreeStream = (T.stm, T.mlrisc list, CFG.cfg) T.stream
148    
149    (*    (*
150     * This module is used to simulate operations of non-standard widths.     * This module is used to simulate operations of non-standard widths.
# Line 1197  Line 1198 
1198                  fun fall(cmp1, br1, cmp2, br2) =                  fun fall(cmp1, br1, cmp2, br2) =
1199                  let val tmpR1 = newFreg()                  let val tmpR1 = newFreg()
1200                      val tmpR2 = newFreg()                      val tmpR2 = newFreg()
1201                      val fallLab = Label.newLabel ""                      val fallLab = Label.anon()
1202                  in  emit(I.DEFFREG(tmpR1));                  in  emit(I.DEFFREG(tmpR1));
1203                      emit(I.FOPERATE{oper=cmp1, fa=f1, fb=f2, fc=tmpR1});                      emit(I.FOPERATE{oper=cmp1, fa=f1, fb=f2, fc=tmpR1});
1204                      emit(I.TRAPB);                      emit(I.TRAPB);

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

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