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 3064, Thu Jun 5 07:20:32 2008 UTC revision 3068, Fri Jun 6 00:25:53 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  structure X86PseudoOps = X86PseudoOpsFn(  structure X86PseudoOps = X86PseudoOpsFn(
130              structure T = X86MLTree              structure T = X86MLTree
# Line 344  Line 342 
342             structure T = X86MLTree             structure T = X86MLTree
343             fun ix x = x             fun ix x = x
344             val fast_floating_point = fast_floating_point             val fast_floating_point = fast_floating_point
345             val abi = "")             val abi = "Darwin")
346    
347    
348      structure C = X86Instr.C      structure C = X86Instr.C
# Line 355  Line 353 
353                         structure T = X86MLTree                         structure T = X86MLTree
354                         fun ix x = x                         fun ix x = x
355                         val fast_floating_point = fast_floating_point                         val fast_floating_point = fast_floating_point
356                         val abi = ""                         val abi = "Darwin"
357                         fun push e = T.EXT(X86InstrExt.PUSHL e)                         fun push e = T.EXT(X86InstrExt.PUSHL e)
358                         val leave = T.EXT X86InstrExt.LEAVE                         val leave = T.EXT X86InstrExt.LEAVE
359                         )                         )

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

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