Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/compiler/CodeGen/alpha32/alpha32MLTree.sml
ViewVC logotype

Annotation of /sml/trunk/compiler/CodeGen/alpha32/alpha32MLTree.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2162 - (view) (download)

1 : leunga 775 structure Alpha32MLTree =
2 :     MLTreeF(structure Constant=SMLNJConstant
3 :     structure Region=CPSRegions
4 :     structure Extension=SMLNJMLTreeExt
5 :     )
6 :    
7 : george 984 structure Alpha32MLTreeEval =
8 :     MLTreeEval
9 :     (structure T = Alpha32MLTree
10 :     fun eq _ _ = false
11 :     val eqRext = eq val eqFext = eq
12 :     val eqCCext = eq val eqSext = eq)
13 :    
14 :     structure Alpha32MLTreeHash =
15 :     MLTreeHash
16 :     (structure T = Alpha32MLTree
17 :     fun h _ _ = 0w0
18 :     val hashRext = h val hashFext = h
19 :     val hashCCext = h val hashSext = h)
20 :    
21 :    
22 :     structure Alpha32GasPseudoOps =
23 :     AlphaGasPseudoOps(structure T=Alpha32MLTree
24 :     structure MLTreeEval = Alpha32MLTreeEval)
25 :    
26 :     structure Alpha32ClientPseudoOps =
27 :     SMLNJPseudoOps(structure Asm = Alpha32GasPseudoOps)
28 :    
29 :     structure Alpha32PseudoOps = PseudoOps(structure Client=Alpha32ClientPseudoOps)
30 :    
31 :     structure Alpha32Stream = InstructionStream(Alpha32PseudoOps)
32 :    
33 :     structure Alpha32MLTreeStream =
34 :     MLTreeStream
35 :     (structure T = Alpha32MLTree
36 :     structure S = Alpha32Stream)
37 :    
38 : monnier 247 (* specialised alpha32 instruction set *)
39 : george 984 structure Alpha32Instr = AlphaInstr(Alpha32MLTree)
40 : monnier 247
41 : george 984 structure Alpha32Props =
42 :     AlphaProps(structure Instr=Alpha32Instr
43 :     structure MLTreeHash=Alpha32MLTreeHash
44 :     structure MLTreeEval=Alpha32MLTreeEval)
45 : monnier 475
46 : monnier 411 structure Alpha32Shuffle = AlphaShuffle(Alpha32Instr)
47 : monnier 247
48 :    
49 :     structure Alpha32AsmEmitter=
50 : monnier 411 AlphaAsmEmitter(structure Instr=Alpha32Instr
51 :     structure PseudoOps=Alpha32PseudoOps
52 :     structure Stream=Alpha32Stream
53 : george 984 structure Shuffle = Alpha32Shuffle
54 :     structure MLTreeEval=Alpha32MLTreeEval
55 :     structure S=Alpha32Stream)
56 : monnier 247
57 :     structure Alpha32MCEmitter =
58 : monnier 411 AlphaMCEmitter(structure Instr=Alpha32Instr
59 :     structure PseudoOps=Alpha32PseudoOps
60 : george 984 structure MLTreeEval=Alpha32MLTreeEval
61 : monnier 411 structure Stream=Alpha32Stream
62 :     structure CodeString=CodeString)
63 : monnier 247
64 : leunga 775 structure Alpha32PseudoInstrs = Alpha32PseudoInstrs(Alpha32Instr)
65 : monnier 247
66 : george 909 (* Flowgraph data structure specialized to DEC alpha instructions *)
67 :     structure Alpha32CFG =
68 :     ControlFlowGraph
69 :     (structure I = Alpha32Instr
70 :     structure PseudoOps = Alpha32PseudoOps
71 :     structure GraphImpl = DirectedGraph
72 :     structure InsnProps = Alpha32Props
73 :     structure Asm = Alpha32AsmEmitter)

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