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

Diff of /sml/trunk/src/MLRISC/sparc/ra/sparcRewrite.sml

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

revision 412, Fri Sep 3 00:25:03 1999 UTC revision 545, Thu Feb 24 13:56:44 2000 UTC
# Line 4  Line 4 
4    
5     fun rwset(S,rw) = SortedList.uniq(map rw S)     fun rwset(S,rw) = SortedList.uniq(map rw S)
6    
7     fun rewriteUse(mapr,instr,rs,rt) =     fun rewriteUse(mapr : I.C.cell -> I.C.cell,instr,rs,rt) =
8     let fun R r = if mapr r = rs then rt else r     let fun R r = if mapr r = rs then rt else r
9         fun O(i as I.REG r) = if mapr r = rs then I.REG rt else i         fun O(i as I.REG r) = if mapr r = rs then I.REG rt else i
10           | O i = i           | O i = i
# Line 35  Line 35 
35         | _ => instr         | _ => instr
36     end     end
37    
38     fun rewriteDef(mapr,instr,rs,rt) =     fun rewriteDef(mapr : I.C.cell -> I.C.cell,instr,rs,rt) =
39     let fun R r = if mapr r = rs then rt else r     let fun R r = if mapr r = rs then rt else r
40         fun ea(SOME(I.Direct r)) = SOME(I.Direct(R r))         fun ea(SOME(I.Direct r)) = SOME(I.Direct(R r))
41           | ea x = x           | ea x = x
# Line 60  Line 60 
60         | _ => instr         | _ => instr
61     end     end
62    
63     fun frewriteUse(mapr,instr,rs,rt) =     fun frewriteUse(mapr : I.C.cell -> I.C.cell,instr,rs,rt) =
64     let fun R r = if mapr r = rs then rt else r     let fun R r = if mapr r = rs then rt else r
65     in  case instr of     in  case instr of
66           I.FPop1{a,r,d} => I.FPop1{a=a,r=R r,d=d}           I.FPop1{a,r,d} => I.FPop1{a=a,r=R r,d=d}
# Line 79  Line 79 
79         | _ => instr         | _ => instr
80     end     end
81    
82     fun frewriteDef(mapr,instr,rs,rt) =     fun frewriteDef(mapr : I.C.cell -> I.C.cell,instr,rs,rt) =
83     let fun R r = if mapr r = rs then rt else r     let fun R r = if mapr r = rs then rt else r
84         fun ea(SOME(I.FDirect r)) = SOME(I.FDirect(R r))         fun ea(SOME(I.FDirect r)) = SOME(I.FDirect(R r))
85           | ea x = x           | ea x = x

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

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