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/branches/blume-private-devel/src/MLRISC/ppc/ra/ppcRewrite.sml
ViewVC logotype

Diff of /sml/branches/blume-private-devel/src/MLRISC/ppc/ra/ppcRewrite.sml

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

revision 1542, Tue Jul 13 22:19:50 2004 UTC revision 1543, Tue Jul 13 22:19:50 2004 UTC
# Line 52  Line 52 
52         | I.CALL {def, use, cutsTo, mem} =>         | I.CALL {def, use, cutsTo, mem} =>
53              I.CALL{def=def, use=CS.map {from=rs,to=rt} use,              I.CALL{def=def, use=CS.map {from=rs,to=rt} use,
54                     cutsTo=cutsTo, mem=mem}                     cutsTo=cutsTo, mem=mem}
55           | I.LWARX {rt, ra, rb} =>
56                I.LWARX{rt=rt, ra=rplac ra, rb=rplac rb}
57           | I.STWCX {rs, ra, rb} =>
58                I.STWCX{rs=rplac rs, ra=rplac ra, rb=rplac rb}
59         | _ => instr         | _ => instr
60      (*esac*))      (*esac*))
61    in    in
# Line 89  Line 93 
93         | I.CALL {def, use, cutsTo, mem} =>         | I.CALL {def, use, cutsTo, mem} =>
94            I.CALL{def=CS.map {from=rs,to=rt} def, use=use,            I.CALL{def=CS.map {from=rs,to=rt} def, use=use,
95                   cutsTo=cutsTo, mem=mem}                   cutsTo=cutsTo, mem=mem}
96           | I.LWARX {rt, ra, rb} =>
97                I.LWARX{rt=rplac rt, ra=ra, rb=rb}
98         | _ => instr         | _ => instr
99      (*esac*))      (*esac*))
100    in    in

Legend:
Removed from v.1542  
changed lines
  Added in v.1543

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