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/ra/ppcRewrite.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ppc/ra/ppcRewrite.sml

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

revision 1009, Wed Jan 9 19:44:22 2002 UTC revision 1033, Thu Jan 24 05:45:18 2002 UTC
# Line 10  Line 10 
10         if CB.sameColor(r,rs) then SOME(I.Direct rt) else e         if CB.sameColor(r,rs) then SOME(I.Direct rt) else e
11      | ea(e as SOME(I.FDirect r), rs, rt) =      | ea(e as SOME(I.FDirect r), rs, rt) =
12         if CB.sameColor(r,rs) then SOME(I.FDirect rt) else e         if CB.sameColor(r,rs) then SOME(I.FDirect rt) else e
13      | ea(e as SOME(I.Displace{base, disp}), rs, rt) =      | ea(e as SOME(I.Displace{base, disp, mem}), rs, rt) =
14         if CB.sameColor(base,rs) then SOME(I.Displace{base=rt, disp=disp})         if CB.sameColor(base,rs) then
15               SOME(I.Displace{base=rt, disp=disp, mem=mem})
16         else e         else e
17    
18    fun rewriteUse(instr, rs, rt) = let    fun rewriteUse(instr, rs, rt) = let
# Line 19  Line 20 
20      fun rwOperand(opnd as I.RegOp r) =      fun rwOperand(opnd as I.RegOp r) =
21           if CB.sameColor(r,rs) then I.RegOp rt else opnd           if CB.sameColor(r,rs) then I.RegOp rt else opnd
22        | rwOperand opnd = opnd        | rwOperand opnd = opnd
23      fun ea(SOME(I.Displace{base, disp})) =      fun ea(SOME(I.Displace{base, disp, mem})) =
24          SOME(I.Displace{base=rplac base, disp=disp})          SOME(I.Displace{base=rplac base, disp=disp, mem=mem})
25        | ea x = x        | ea x = x
26    
27      fun ppcUse(instr) =      fun ppcUse(instr) =

Legend:
Removed from v.1009  
changed lines
  Added in v.1033

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