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/branches/SMLNJ/src/compiler/CodeGen/alpha32/alpha32MLTree.sml
ViewVC logotype

Annotation of /sml/branches/SMLNJ/src/compiler/CodeGen/alpha32/alpha32MLTree.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 469 - (view) (download)

1 : monnier 247 (* constants specialised to the alpha32 *)
2 :    
3 :     (* specialised alpha32 instruction set *)
4 :     structure Alpha32Instr =
5 : monnier 411 AlphaInstr(structure Const=SMLNJConstant
6 :     structure Region=CPSRegions)
7 : monnier 247
8 : monnier 411 structure Alpha32Shuffle = AlphaShuffle(Alpha32Instr)
9 : monnier 247
10 :     structure Alpha32PseudoInstrs =
11 :     Alpha32PseudoInstrs(structure Instr = Alpha32Instr)
12 :    
13 :     structure Alpha32PseudoOps =
14 : monnier 411 PseudoOpsLittle(structure M = Alpha32Spec val nop = NONE)
15 : monnier 247
16 :     (* Flowgraph data structure specialized to DEC alpha instructions *)
17 :     structure Alpha32FlowGraph =
18 :     FlowGraph(structure I=Alpha32Instr
19 :     structure P=Alpha32PseudoOps
20 : monnier 469 )
21 : monnier 247
22 : monnier 469 structure Alpha32Stream = InstructionStreamFn(Alpha32PseudoOps)
23 : monnier 411
24 : monnier 247 structure Alpha32AsmEmitter=
25 : monnier 411 AlphaAsmEmitter(structure Instr=Alpha32Instr
26 :     structure PseudoOps=Alpha32PseudoOps
27 :     structure Stream=Alpha32Stream
28 :     structure Shuffle = Alpha32Shuffle)
29 : monnier 247
30 :     structure Alpha32MCEmitter =
31 : monnier 411 AlphaMCEmitter(structure Instr=Alpha32Instr
32 :     structure PseudoOps=Alpha32PseudoOps
33 :     structure Stream=Alpha32Stream
34 :     structure CodeString=CodeString)
35 : monnier 247
36 :     structure Alpha32MLTree =
37 :     MLTreeF(structure Const=SMLNJConstant
38 :     structure R=CPSRegions
39 : monnier 429 structure S=Alpha32Stream
40 : monnier 411 type rextension = unit
41 :     type fextension = unit
42 :     )
43 : monnier 247

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