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/x86/staged-allocation/test.sml
ViewVC logotype

Diff of /MLRISC/trunk/x86/staged-allocation/test.sml

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

revision 3063, Thu Jun 5 00:42:15 2008 UTC revision 3064, Thu Jun 5 07:20:32 2008 UTC
# Line 110  Line 110 
110     X86GasPseudoOps(structure T=X86MLTree     X86GasPseudoOps(structure T=X86MLTree
111                     structure MLTreeEval=X86MLTreeEval)                     structure MLTreeEval=X86MLTreeEval)
112    
113  (*  
114  functor X86PseudoOpsFn (  functor X86PseudoOpsFn (
115      structure T : MLTREE      structure T : MLTREE
116      structure MLTreeEval : MLTREE_EVAL where T = T      structure MLTreeEval : MLTREE_EVAL where T = T
117    ) : PSEUDO_OPS_BASIS = X86GasPseudoOps (    ) : PSEUDO_OPS_BASIS = X86GasPseudoOps (
118      structure T = T      structure T = T
119      structure MLTreeEval = MLTreeEval)      structure MLTreeEval = MLTreeEval)
 *)  
120    
121    (*
122  functor X86PseudoOpsFn (  functor X86PseudoOpsFn (
123      structure T : MLTREE      structure T : MLTREE
124      structure MLTreeEval : MLTREE_EVAL where T = T      structure MLTreeEval : MLTREE_EVAL where T = T
125    ) : PSEUDO_OPS_BASIS = X86DarwinPseudoOps (    ) : PSEUDO_OPS_BASIS = X86DarwinPseudoOps (
126      structure T = T      structure T = T
127      structure MLTreeEval = MLTreeEval)      structure MLTreeEval = MLTreeEval)
128    *)
129    
130    
131  structure X86PseudoOps = X86PseudoOpsFn(  structure X86PseudoOps = X86PseudoOpsFn(
# Line 278  Line 279 
279    infix upto    infix upto
280    
281  structure CB = CellsBasis  structure CB = CellsBasis
282    structure I = X86Instr
283    
284  structure IntRA =  structure IntRA =
285    struct    struct
# Line 291  Line 293 
293          end          end
294      fun spillInit _ = ()      fun spillInit _ = ()
295      val memRegs = C.Regs CB.GP {from=8,to=31,step=1}      val memRegs = C.Regs CB.GP {from=8,to=31,step=1}
296      fun spillLoc {info=frame, an, cell, id=loc} =      fun spillLoc {info=frame, an, cell, id=loc} = let
297  raise Fail ""              val spillLoc = ~(loc*4)
298  (*        {opnd = X86Instr.Immed 0, kind = SPILL_LOC}*)              val opnd = I.Displace {
299                      base = C.ebp,
300                      disp = I.Immed (Int32.fromInt spillLoc),
301                      mem = ()
302                    }
303                in
304                  {opnd = opnd, kind = SPILL_LOC}
305                end
306      val phases = [SPILL_PROPAGATION, SPILL_COLORING]      val phases = [SPILL_PROPAGATION, SPILL_COLORING]
307    end (* IntRA *)    end (* IntRA *)
308    

Legend:
Removed from v.3063  
changed lines
  Added in v.3064

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