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

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

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

revision 2990, Tue Apr 15 00:43:10 2008 UTC revision 2993, Thu Apr 17 01:02:19 2008 UTC
# Line 38  Line 38 
38  end (* AMD64PseudoOps *)  end (* AMD64PseudoOps *)
39  *)  *)
40    
41    
42  functor AMD64PseudoOpsFn (  functor AMD64PseudoOpsFn (
43      structure T : MLTREE      structure T : MLTREE
44      structure MLTreeEval : MLTREE_EVAL where T = T      structure MLTreeEval : MLTREE_EVAL where T = T
45    ) : PSEUDO_OPS_BASIS = AMD64DarwinPseudoOps (    ) : PSEUDO_OPS_BASIS = AMD64GasPseudoOps (
46      structure T = T      structure T = T
47      structure MLTreeEval = MLTreeEval)      structure MLTreeEval = MLTreeEval)
48    
49    (*
50    functor AMD64PseudoOpsFn (
51        structure T : MLTREE
52        structure MLTreeEval : MLTREE_EVAL where T = T
53      ) : PSEUDO_OPS_BASIS = AMD64DarwinPseudoOps (
54        structure T = T
55        structure MLTreeEval = MLTreeEval)
56    *)
57    
58  structure AMD64PseudoOps = AMD64PseudoOpsFn(  structure AMD64PseudoOps = AMD64PseudoOpsFn(
59              structure T = AMD64MLTree              structure T = AMD64MLTree
# Line 68  Line 77 
77      structure PseudoOps = PseudoOps (structure Client = Client)      structure PseudoOps = PseudoOps (structure Client = Client)
78    end    end
79    
 (*structure PS = PseudoOps (structure Client = AMD64PseudoOps.Client)*)  
80  structure AMD64Stream = InstructionStream(PseudoOps.PseudoOps)  structure AMD64Stream = InstructionStream(PseudoOps.PseudoOps)
81  structure AMD64Instr = AMD64Instr (AMD64MLTree)  structure AMD64Instr = AMD64Instr (AMD64MLTree)
82  structure AMD64Shuffle = AMD64Shuffle(AMD64Instr)  structure AMD64Shuffle = AMD64Shuffle(AMD64Instr)

Legend:
Removed from v.2990  
changed lines
  Added in v.2993

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