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 889, Thu Jul 19 20:35:20 2001 UTC revision 901, Tue Aug 14 19:21:17 2001 UTC
# Line 33  Line 33 
33    
34    fun error msg = MLRiscErrorMsg.error("PPC",msg)    fun error msg = MLRiscErrorMsg.error("PPC",msg)
35    
36    type instrStream = (I.instruction,C.cellset) T.stream    type instrStream = (I.instruction,CB.CellSet.cellset) T.stream
37    type mltreeStream = (T.stm,T.mlrisc list) T.stream    type mltreeStream = (T.stm,T.mlrisc list) T.stream
38    
39    
# Line 237  Line 237 
237    
238         (* convert mlrisc to cellset: *)         (* convert mlrisc to cellset: *)
239         and cellset mlrisc =         and cellset mlrisc =
240             let val addCCReg = C.CellSet.add             let val addCCReg = CB.CellSet.add
241                 fun g([],acc) = acc                 fun g([],acc) = acc
242                   | g(T.GPR(T.REG(_,r))::regs,acc)  = g(regs,C.addReg(r,acc))                   | g(T.GPR(T.REG(_,r))::regs,acc)  = g(regs,C.addReg(r,acc))
243                   | g(T.FPR(T.FREG(_,f))::regs,acc) = g(regs,C.addFreg(f,acc))                   | g(T.FPR(T.FREG(_,f))::regs,acc) = g(regs,C.addFreg(f,acc))

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

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