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 983, Wed Nov 21 18:44:55 2001 UTC revision 984, Wed Nov 21 19:00:08 2001 UTC
# Line 26  Line 26 
26  struct  struct
27    structure I   = PPCInstr    structure I   = PPCInstr
28    structure T   = I.T    structure T   = I.T
29    structure S   = T.Stream    structure TS  = ExtensionComp.TS
30    structure C   = PPCInstr.C    structure C   = PPCInstr.C
31    structure CB  = CellsBasis    structure CB  = CellsBasis
32    structure W32 = Word32    structure W32 = Word32
# Line 35  Line 35 
35    
36    fun error msg = MLRiscErrorMsg.error("PPC",msg)    fun error msg = MLRiscErrorMsg.error("PPC",msg)
37    
38    type instrStream = (I.instruction, CB.CellSet.cellset, CFG.cfg) T.stream    type instrStream = (I.instruction, CB.CellSet.cellset, CFG.cfg) TS.stream
39    type mltreeStream = (T.stm, T.mlrisc list, CFG.cfg) T.stream    type mltreeStream = (T.stm, T.mlrisc list, CFG.cfg) TS.stream
40    
41    
42    val (intTy,naturalWidths) = if bit64mode then (64,[32,64]) else (32,[32])    val (intTy,naturalWidths) = if bit64mode then (64,[32,64]) else (32,[32])
# Line 101  Line 101 
101      (val signed = true)      (val signed = true)
102    
103    fun selectInstructions    fun selectInstructions
104        (S.STREAM{emit,comment,getAnnotations,        (TS.S.STREAM{emit,comment,getAnnotations,
105                  defineLabel,entryLabel,pseudoOp,annotation,                  defineLabel,entryLabel,pseudoOp,annotation,
106                  beginCluster,endCluster,exitBlock,...}) =                  beginCluster,endCluster,exitBlock,...}) =
107    let (* mark an instruction with annotations *)    let (* mark an instruction with annotations *)
# Line 738  Line 738 
738              | NONE => ();              | NONE => ();
739             endCluster a)             endCluster a)
740    
741     in  S.STREAM     in  TS.S.STREAM
742         { beginCluster  = beginCluster,         { beginCluster  = beginCluster,
743           endCluster    = endCluster,           endCluster    = endCluster,
744           emit          = doStmt,           emit          = doStmt,

Legend:
Removed from v.983  
changed lines
  Added in v.984

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