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 554, Thu Mar 2 21:29:44 2000 UTC revision 555, Fri Mar 3 16:10:30 2000 UTC
# Line 9  Line 9 
9      structure CpsRegs    = Alpha32CpsRegs      structure CpsRegs    = Alpha32CpsRegs
10      structure InsnProps  = Alpha32Props      structure InsnProps  = Alpha32Props
11      structure Asm        = Alpha32AsmEmitter      structure Asm        = Alpha32AsmEmitter
12        structure Shuffle    = Alpha32Shuffle
13    
14      structure MLTreeComp=      structure MLTreeComp=
15         Alpha(structure AlphaInstr = Alpha32Instr         Alpha(structure AlphaInstr = Alpha32Instr
16               structure AlphaMLTree = Alpha32MLTree               structure AlphaMLTree = Alpha32MLTree
17               structure PseudoInstrs = Alpha32PseudoInstrs               structure PseudoInstrs = Alpha32PseudoInstrs
18                 structure ExtensionComp = SMLNJMLTreeExtComp
19                   (structure I = Alpha32Instr
20                    structure T = Alpha32MLTree
21                   )
22               val mode32bit = true (* simulate 32 bit mode *)               val mode32bit = true (* simulate 32 bit mode *)
23               val multCost = ref 8 (* just guessing *)               val multCost = ref 8 (* just guessing *)
24               val useMultByConst = ref false (* just guessing *)               val useMultByConst = ref false (* just guessing *)

Legend:
Removed from v.554  
changed lines
  Added in v.555

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