SCM Repository
[smlnj] Diff of /sml/trunk/src/MLRISC/hppa/ra/hppaSpillInstr.sml
Diff of /sml/trunk/src/MLRISC/hppa/ra/hppaSpillInstr.sml
Parent Directory
|
Revision Log
|
Patch
47 |
|
|
48 |
fun spillF (instr, reg, ea) = let |
fun spillF (instr, reg, ea) = let |
49 |
val newR = C.newFreg() |
val newR = C.newFreg() |
50 |
val instr' = Rewrite.rewriteDef(instr, reg, newR) |
val instr' = Rewrite.frewriteDef(instr, reg, newR) |
51 |
in |
in |
52 |
{code=instr' :: storeToEA CB.FP (newR, ea), |
{code=instr' :: storeToEA CB.FP (newR, ea), |
53 |
proh=[newR], |
proh=[newR], |
66 |
|
|
67 |
fun reloadF(instr, reg, ea) = let |
fun reloadF(instr, reg, ea) = let |
68 |
val newR = C.newFreg() |
val newR = C.newFreg() |
69 |
val instr' = Rewrite.rewriteUse(instr, reg, newR) |
val instr' = Rewrite.frewriteUse(instr, reg, newR) |
70 |
in |
in |
71 |
{code=loadFromEA CB.FP (newR, ea) @ [instr'], |
{code=loadFromEA CB.FP (newR, ea) @ [instr'], |
72 |
proh=[newR], |
proh=[newR], |
|
Legend:
Removed from v.1293 |
|
changed lines |
|
Added in v.1294 |
|
|