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

Diff of /sml/trunk/src/MLRISC/x86/ra/x86Spill.sml

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

revision 545, Thu Feb 24 13:56:44 2000 UTC revision 555, Fri Mar 3 16:10:30 2000 UTC
# Line 312  Line 312 
312       | I.PUSHB arg => reloadPush(I.PUSHB, arg, an)       | I.PUSHB arg => reloadPush(I.PUSHB, arg, an)
313       | I.COPY _ => error "reload:COPY"       | I.COPY _ => error "reload:COPY"
314       | I.FILD opnd => reloadReal(I.FILD, opnd, an)       | I.FILD opnd => reloadReal(I.FILD, opnd, an)
315         | I.FLDT opnd => reloadReal(I.FLDT, opnd, an)
316       | I.FLDL opnd => reloadReal(I.FLDL, opnd, an)       | I.FLDL opnd => reloadReal(I.FLDL, opnd, an)
317       | I.FLDS opnd => reloadReal(I.FLDS, opnd, an)       | I.FLDS opnd => reloadReal(I.FLDS, opnd, an)
318         | I.FSTPT opnd => reloadReal(I.FSTPT, opnd, an)
319       | I.FSTPL opnd => reloadReal(I.FSTPL, opnd, an)       | I.FSTPL opnd => reloadReal(I.FSTPL, opnd, an)
320       | I.FSTPS opnd => reloadReal(I.FSTPS, opnd, an)       | I.FSTPS opnd => reloadReal(I.FSTPS, opnd, an)
321       | I.FENV{fenvOp, opnd} => reloadReal(fn opnd =>       | I.FENV{fenvOp, opnd} => reloadReal(fn opnd =>
# Line 344  Line 346 
346    fun freload(instr, regmap, reg, spillLoc) =    fun freload(instr, regmap, reg, spillLoc) =
347    let fun reloadIt(instr, an) =    let fun reloadIt(instr, an) =
348        (case instr of        (case instr of
349           I.FLDL opnd => {code=[mark(I.FLDL spillLoc, an)], proh=[], newReg=NONE}           I.FLDT opnd => {code=[mark(I.FLDT spillLoc, an)], proh=[], newReg=NONE}
350           | I.FLDL opnd => {code=[mark(I.FLDL spillLoc, an)], proh=[], newReg=NONE}
351         | I.FLDS opnd => {code=[mark(I.FLDS spillLoc, an)], proh=[], newReg=NONE}         | I.FLDS opnd => {code=[mark(I.FLDS spillLoc, an)], proh=[], newReg=NONE}
352         | I.FBINARY{binOp, src=I.FDirect f, dst} =>         | I.FBINARY{binOp, src=I.FDirect f, dst} =>
353             if regmap f = reg then             if regmap f = reg then

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

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