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

Diff of /sml/trunk/src/MLRISC/x86/mltree/x86.sml

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

revision 497, Tue Dec 7 15:44:50 1999 UTC revision 498, Tue Dec 7 15:44:50 1999 UTC
# Line 378  Line 378 
378               | (_, I.Direct _) => {lsrc=opnd1, rsrc=opnd2}               | (_, I.Direct _) => {lsrc=opnd1, rsrc=opnd2}
379               | _ => {lsrc=moveToReg opnd1, rsrc=opnd2}),an)               | _ => {lsrc=moveToReg opnd1, rsrc=opnd2}),an)
380        end        end
381      | reduceCC(T.CCMARK(e,a),rd,an) = reduceCC(e,rd,a::an)      | reduceCC(T.CCMARK(e,a),rd,an) =
382          (case #peek MLRiscAnnotations.MARK_REG a of
383            SOME f => (f rd; reduceCC(e,rd,an))
384          | NONE => reduceCC(e,rd,a::an)
385          )
386      | reduceCC _ = error "reduceCC"      | reduceCC _ = error "reduceCC"
387    
388    
# Line 509  Line 513 
513        | T.SRL(32, e1, e2) => shift(I.SHR, e1, e2, an)        | T.SRL(32, e1, e2) => shift(I.SHR, e1, e2, an)
514        | T.SLL(32, e1, e2) => shift(I.SHL, e1, e2, an)        | T.SLL(32, e1, e2) => shift(I.SHL, e1, e2, an)
515        | T.SEQ(stm, rexp)  => (reduceStm(stm,[]); reduceRegRd(rexp, rd, an))        | T.SEQ(stm, rexp)  => (reduceStm(stm,[]); reduceRegRd(rexp, rd, an))
516        | T.MARK(e,a) => reduceRegRd(e,rd,a::an)        | T.MARK(e,a) =>
517            (case #peek MLRiscAnnotations.MARK_REG a of
518              SOME f => (f rd; reduceRegRd(e,rd,an))
519            | NONE => reduceRegRd(e,rd,a::an)
520            )
521    
522    end (* reduceRegRd *)    end (* reduceRegRd *)
523    
524    and reduceFexp(fexp, an) = let    and reduceFexp(fexp, an) = let

Legend:
Removed from v.497  
changed lines
  Added in v.498

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