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

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

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

revision 545, Thu Feb 24 13:56:44 2000 UTC revision 555, Fri Mar 3 16:10:30 2000 UTC
# Line 8  Line 8 
8  functor PPC  functor PPC
9    (structure PPCInstr : PPCINSTR    (structure PPCInstr : PPCINSTR
10     structure PPCMLTree : MLTREE     structure PPCMLTree : MLTREE
11       structure ExtensionComp : MLTREE_EXTENSION_COMP
12          where I = PPCInstr and T = PPCMLTree
13     structure PseudoInstrs : PPC_PSEUDO_INSTR     structure PseudoInstrs : PPC_PSEUDO_INSTR
14        sharing PPCMLTree.Region = PPCInstr.Region        sharing PPCMLTree.Region = PPCInstr.Region
15        sharing PPCMLTree.LabelExp = PPCInstr.LabelExp        sharing PPCMLTree.LabelExp = PPCInstr.LabelExp
# Line 35  Line 37 
37    fun error msg = MLRiscErrorMsg.error("PPC",msg)    fun error msg = MLRiscErrorMsg.error("PPC",msg)
38    
39    type instrStream = (I.instruction,C.regmap,C.cellset) T.stream    type instrStream = (I.instruction,C.regmap,C.cellset) T.stream
40    type ('s,'r,'f,'c) mltreeStream =    type mltreeStream = (T.stm,C.regmap,T.mlrisc list) T.stream
      (('s,'r,'f,'c) T.stm,C.regmap,('s,'r,'f,'c) T.mlrisc list) T.stream  
   type ('s,'r,'f,'c) reducer =  
      (I.instruction,C.regmap,C.cellset,I.operand,I.addressing_mode,'s,'r,'f,'c)  
        T.reducer  
   type ('s,'r,'f,'c) extender =  
      (I.instruction,C.regmap,C.cellset,I.operand,I.addressing_mode,'s,'r,'f,'c)  
        T.extender  
41    
42    structure Gen = MLTreeGen    structure Gen = MLTreeGen
43      (structure T = T      (structure T = T
# Line 105  Line 100 
100      (val signed = true)      (val signed = true)
101    
102    fun selectInstructions    fun selectInstructions
       (T.EXTENDER{compileStm, compileRexp, compileFexp, compileCCexp, ...})  
103        (S.STREAM{emit,comment,        (S.STREAM{emit,comment,
104                  defineLabel,entryLabel,pseudoOp,annotation,                  defineLabel,entryLabel,pseudoOp,annotation,
105                  beginCluster,endCluster,exitBlock,phi,alias,...}) =                  beginCluster,endCluster,exitBlock,phi,alias,...}) =

Legend:
Removed from v.545  
changed lines
  Added in v.555

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