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 796, Tue Mar 6 00:04:33 2001 UTC revision 909, Fri Aug 24 17:48:53 2001 UTC
# Line 13  Line 13 
13      structure Shuffle    = Alpha32Shuffle      structure Shuffle    = Alpha32Shuffle
14    
15      structure CCalls     = DummyCCallsFn (Alpha32MLTree)      structure CCalls     = DummyCCallsFn (Alpha32MLTree)
16        structure OmitFramePtr = struct
17          exception NotImplemented
18          structure CFG=Alpha32CFG
19          structure I=Alpha32Instr
20          val vfp = CpsRegs.vfp
21          fun omitframeptr _ = raise NotImplemented
22        end
23    
24    
25      structure MLTreeComp=      structure MLTreeComp=
26         Alpha(structure AlphaInstr = Alpha32Instr         Alpha(structure AlphaInstr = Alpha32Instr
# Line 21  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 34  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.796  
changed lines
  Added in v.909

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