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/instructions/ppcProps.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ppc/instructions/ppcProps.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 1  Line 1 
1  functor PPCProps(PPCInstr : PPCINSTR) : INSN_PROPERTIES =  functor PPCProps
2       ( structure PPCInstr : PPCINSTR
3         structure MLTreeEval : MLTREE_EVAL where T = PPCInstr.T
4         structure MLTreeHash : MLTREE_HASH where T = PPCInstr.T
5        ) : INSN_PROPERTIES =
6  struct  struct
7    structure I = PPCInstr    structure I = PPCInstr
8    structure C = I.C    structure C = I.C
9    structure T = I.T    structure T = I.T
   structure LE = I.LabelExp  
10    structure CB = CellsBasis    structure CB = CellsBasis
11    
12    exception NegateConditional    exception NegateConditional
# Line 87  Line 90 
90    
91    fun hashOpn(I.RegOp r) = CB.hashCell r    fun hashOpn(I.RegOp r) = CB.hashCell r
92      | hashOpn(I.ImmedOp i) = Word.fromInt i      | hashOpn(I.ImmedOp i) = Word.fromInt i
93      | hashOpn(I.LabelOp l) = I.LabelExp.hash l      | hashOpn(I.LabelOp l) = MLTreeHash.hash l
94    fun eqOpn(I.RegOp a,I.RegOp b) = CB.sameColor(a,b)    fun eqOpn(I.RegOp a,I.RegOp b) = CB.sameColor(a,b)
95      | eqOpn(I.ImmedOp a,I.ImmedOp b) = a = b      | eqOpn(I.ImmedOp a,I.ImmedOp b) = a = b
96      | eqOpn(I.LabelOp a,I.LabelOp b) = I.LabelExp.==(a,b)      | eqOpn(I.LabelOp a,I.LabelOp b) = MLTreeEval.==(a,b)
97      | eqOpn _ = false      | eqOpn _ = false
98    
99    fun defUseR instr = let    fun defUseR instr = let

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