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 468, Wed Nov 10 22:42:52 1999 UTC revision 469, Wed Nov 10 22:42:52 1999 UTC
# Line 15  Line 15 
15               structure AlphaMLTree = Alpha32MLTree               structure AlphaMLTree = Alpha32MLTree
16               structure PseudoInstrs = Alpha32PseudoInstrs               structure PseudoInstrs = Alpha32PseudoInstrs
17               val mode32bit = true (* simulate 32 bit mode *)               val mode32bit = true (* simulate 32 bit mode *)
              val useSU = false  
18               val multCost = ref 8 (* just guessing *)               val multCost = ref 8 (* just guessing *)
19               val useMultByConst = ref false (* just guessing *)               val useMultByConst = ref false (* just guessing *)
20              )              )
# Line 30  Line 29 
29                  structure Emitter = Alpha32MCEmitter)                  structure Emitter = Alpha32MCEmitter)
30    
31      structure RA =      structure RA =
32         RegAlloc         RegAlloc2
33           (structure I         = Alpha32Instr           (structure I         = Alpha32Instr
34            structure MachSpec  = Alpha32Spec            structure MachSpec  = Alpha32Spec
35            structure Flowgraph = Alpha32FlowGraph            structure Flowgraph = Alpha32FlowGraph
# Line 38  Line 37 
37            structure InsnProps = InsnProps            structure InsnProps = InsnProps
38            structure Rewrite   = AlphaRewrite(Alpha32Instr)            structure Rewrite   = AlphaRewrite(Alpha32Instr)
39            structure Asm       = Alpha32AsmEmitter            structure Asm       = Alpha32AsmEmitter
           functor Ra = AlphaRegAlloc  
40    
41            val sp = I.C.stackptrR            val sp = I.C.stackptrR
42            val stack = I.Region.stack            val stack = I.Region.stack
43    
44              fun pure _ = false
45    
46            (* make copies *)            (* make copies *)
47            fun copyR((rds as [_], rss as [_]), _) =            fun copyR((rds as [_], rss as [_]), _) =
48                I.COPY{dst=rds, src=rss, impl=ref NONE, tmp=NONE}                I.COPY{dst=rds, src=rss, impl=ref NONE, tmp=NONE}

Legend:
Removed from v.468  
changed lines
  Added in v.469

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