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 /MLRISC/trunk/amd64/ra/amd64SpillInstr.sml
ViewVC logotype

Diff of /MLRISC/trunk/amd64/ra/amd64SpillInstr.sml

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

revision 2807, Mon Oct 22 19:10:27 2007 UTC revision 2808, Tue Oct 23 07:04:33 2007 UTC
# Line 322  Line 322 
322                             proh=[], newReg=NONE}                             proh=[], newReg=NONE}
323                   | I.FMOVE {fmvOp, src, dst as I.FDirect _} => withTmp (fn tmpR =>                   | I.FMOVE {fmvOp, src, dst as I.FDirect _} => withTmp (fn tmpR =>
324                     I.FMOVE {fmvOp=fmvOp, src=src, dst=I.FDirect tmpR})                     I.FMOVE {fmvOp=fmvOp, src=src, dst=I.FDirect tmpR})
325                     | I.XORPS {src, dst as I.FDirect _} => withTmp (fn tmpR =>
326                       I.XORPS {src=src, dst=I.FDirect tmpR})
327                     | I.XORPD {src, dst as I.FDirect _} => withTmp (fn tmpR =>
328                       I.XORPD {src=src, dst=I.FDirect tmpR})
329                   | I.FBINOP {binOp, src, dst} => withTmp (fn tmpR =>                   | I.FBINOP {binOp, src, dst} => withTmp (fn tmpR =>
330                     I.FBINOP {binOp=binOp, src=src, dst=tmpR})                     I.FBINOP {binOp=binOp, src=src, dst=tmpR})
331                   | I.FCOM {comOp, dst, src} => withTmp (fn tmpR =>                   | I.FCOM {comOp, dst, src} => withTmp (fn tmpR =>
# Line 562  Line 566 
566                              mark (I.FMOVE {fmvOp=fmvOp, src=tmp, dst=dst}, an)],                              mark (I.FMOVE {fmvOp=fmvOp, src=tmp, dst=dst}, an)],
567                        proh=[tmpR], newReg=SOME tmpR}                        proh=[tmpR], newReg=SOME tmpR}
568                     end                     end
569                     | I.XORPS {src, dst=dst as I.FDirect _} =>
570                       {code=[mark (I.XORPS {src=replace src, dst=dst},
571                               an)],
572                        proh=[], newReg=NONE}
573                     | I.XORPD {src, dst=dst as I.FDirect _} =>
574                       {code=[mark (I.XORPD {src=replace src, dst=dst},
575                               an)],
576                        proh=[], newReg=NONE}
577                   | I.FBINOP {binOp, src, dst} => let                   | I.FBINOP {binOp, src, dst} => let
578                     val tmpR = newFreg ()                     val tmpR = newFreg ()
579                     val tmp = I.FDirect tmpR                     val tmp = I.FDirect tmpR

Legend:
Removed from v.2807  
changed lines
  Added in v.2808

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