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/compiler/CodeGen/alpha32/alpha32CG.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/CodeGen/alpha32/alpha32CG.sml

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

revision 823, Tue May 8 21:25:15 2001 UTC revision 909, Fri Aug 24 17:48:53 2001 UTC
# Line 15  Line 15 
15      structure CCalls     = DummyCCallsFn (Alpha32MLTree)      structure CCalls     = DummyCCallsFn (Alpha32MLTree)
16      structure OmitFramePtr = struct      structure OmitFramePtr = struct
17        exception NotImplemented        exception NotImplemented
18        structure F=Alpha32FlowGraph        structure CFG=Alpha32CFG
19        structure I=Alpha32Instr        structure I=Alpha32Instr
20        val vfp = CpsRegs.vfp        val vfp = CpsRegs.vfp
21        fun omitframeptr _ = raise NotImplemented        fun omitframeptr _ = raise NotImplemented
# Line 29  Line 29 
29               structure ExtensionComp = SMLNJMLTreeExtComp               structure ExtensionComp = SMLNJMLTreeExtComp
30                 (structure I = Alpha32Instr                 (structure I = Alpha32Instr
31                  structure T = Alpha32MLTree                  structure T = Alpha32MLTree
32                    structure CFG = Alpha32CFG
33                 )                 )
34               val mode32bit = true (* simulate 32 bit mode *)               val mode32bit = true (* simulate 32 bit mode *)
35               val multCost = ref 8 (* just guessing *)               val multCost = ref 8 (* just guessing *)
# Line 42  Line 43 
43                    structure Shuffle=Alpha32Shuffle)                    structure Shuffle=Alpha32Shuffle)
44    
45      structure BackPatch =      structure BackPatch =
46         BBSched2(structure Flowgraph = Alpha32FlowGraph         BBSched2(structure CFG=Alpha32CFG
47                  structure Jumps = Jumps                  structure Jumps = Jumps
48                    structure Placement = DefaultBlockPlacement(Alpha32CFG)
49                  structure Emitter = Alpha32MCEmitter)                  structure Emitter = Alpha32MCEmitter)
50    
51      structure RA =      structure RA =
52         RISC_RA         RISC_RA
53           (structure I         = Alpha32Instr           (structure I         = Alpha32Instr
54            structure Flowgraph = Alpha32FlowGraph            structure Flowgraph = Alpha32CFG
55            structure InsnProps = InsnProps            structure InsnProps = InsnProps
56            structure Rewrite   = AlphaRewrite(Alpha32Instr)            structure Rewrite   = AlphaRewrite(Alpha32Instr)
57            structure Asm       = Alpha32AsmEmitter            structure Asm       = Alpha32AsmEmitter

Legend:
Removed from v.823  
changed lines
  Added in v.909

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