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 889, Thu Jul 19 20:35:20 2001 UTC revision 900, Tue Aug 14 15:10:12 2001 UTC
# Line 1053  Line 1053 
1053         (* convert mlrisc to cellset:         (* convert mlrisc to cellset:
1054          *)          *)
1055         and cellset mlrisc =         and cellset mlrisc =
1056             let val addCCReg = C.CellSet.add             let val addCCReg = CB.CellSet.add
1057                 fun g([],acc) = acc                 fun g([],acc) = acc
1058                   | g(T.GPR(T.REG(_,r))::regs,acc)  = g(regs,C.addReg(r,acc))                   | g(T.GPR(T.REG(_,r))::regs,acc)  = g(regs,C.addReg(r,acc))
1059                   | g(T.FPR(T.FREG(_,f))::regs,acc) = g(regs,C.addFreg(f,acc))                   | g(T.FPR(T.FREG(_,f))::regs,acc) = g(regs,C.addFreg(f,acc))
# Line 1067  Line 1067 
1067        let fun return(set, []) = set        let fun return(set, []) = set
1068              | return(set, a::an) =              | return(set, a::an) =
1069                case #peek A.RETURN_ARG a of                case #peek A.RETURN_ARG a of
1070                  SOME r => return(C.CellSet.add(r, set), an)                  SOME r => return(CB.CellSet.add(r, set), an)
1071                | NONE => return(set, an)                | NONE => return(set, an)
1072        in        in
1073            mark(I.CALL{opnd=operand ea,defs=cellset(def),uses=cellset(use),            mark(I.CALL{opnd=operand ea,defs=cellset(def),uses=cellset(use),

Legend:
Removed from v.889  
changed lines
  Added in v.900

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