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 909, Fri Aug 24 17:48:53 2001 UTC revision 984, Wed Nov 21 19:00:08 2001 UTC
# Line 5  Line 5 
5    MachineGen    MachineGen
6    ( structure I          = Alpha32Instr    ( structure I          = Alpha32Instr
7      structure MachSpec   = Alpha32Spec      structure MachSpec   = Alpha32Spec
8        structure ClientPseudoOps = Alpha32ClientPseudoOps
9      structure PseudoOps  = Alpha32PseudoOps      structure PseudoOps  = Alpha32PseudoOps
10      structure Ext        = SMLNJMLTreeExt(* generic extension *)      structure Ext        = SMLNJMLTreeExt(* generic extension *)
11      structure CpsRegs    = Alpha32CpsRegs      structure CpsRegs    = Alpha32CpsRegs
# Line 30  Line 31 
31                 (structure I = Alpha32Instr                 (structure I = Alpha32Instr
32                  structure T = Alpha32MLTree                  structure T = Alpha32MLTree
33                  structure CFG = Alpha32CFG                  structure CFG = Alpha32CFG
34                    structure TS = Alpha32MLTreeStream
35                 )                 )
36               val mode32bit = true (* simulate 32 bit mode *)               val mode32bit = true (* simulate 32 bit mode *)
37               val multCost = ref 8 (* just guessing *)               val multCost = ref 8 (* just guessing *)
# Line 40  Line 42 
42    
43      structure Jumps =      structure Jumps =
44         AlphaJumps(structure Instr=Alpha32Instr         AlphaJumps(structure Instr=Alpha32Instr
45                    structure Shuffle=Alpha32Shuffle)                    structure Shuffle=Alpha32Shuffle
46                      structure MLTreeEval=Alpha32MLTreeEval)
47    
48      structure BackPatch =      structure BackPatch =
49         BBSched2(structure CFG=Alpha32CFG         BBSched2(structure CFG=Alpha32CFG

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

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