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 475 - (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 475 structure Alpha32Props = AlphaProps(Alpha32Instr)
9 :    
10 : monnier 411 structure Alpha32Shuffle = AlphaShuffle(Alpha32Instr)
11 : monnier 247
12 :     structure Alpha32PseudoOps =
13 : monnier 411 PseudoOpsLittle(structure M = Alpha32Spec val nop = NONE)
14 : monnier 247
15 :     (* Flowgraph data structure specialized to DEC alpha instructions *)
16 :     structure Alpha32FlowGraph =
17 :     FlowGraph(structure I=Alpha32Instr
18 :     structure P=Alpha32PseudoOps
19 : monnier 469 )
20 : monnier 247
21 : monnier 469 structure Alpha32Stream = InstructionStreamFn(Alpha32PseudoOps)
22 : monnier 411
23 : monnier 247 structure Alpha32AsmEmitter=
24 : monnier 411 AlphaAsmEmitter(structure Instr=Alpha32Instr
25 :     structure PseudoOps=Alpha32PseudoOps
26 :     structure Stream=Alpha32Stream
27 :     structure Shuffle = Alpha32Shuffle)
28 : monnier 247
29 :     structure Alpha32MCEmitter =
30 : monnier 411 AlphaMCEmitter(structure Instr=Alpha32Instr
31 :     structure PseudoOps=Alpha32PseudoOps
32 :     structure Stream=Alpha32Stream
33 :     structure CodeString=CodeString)
34 : monnier 247
35 :     structure Alpha32MLTree =
36 :     MLTreeF(structure Const=SMLNJConstant
37 :     structure R=CPSRegions
38 : monnier 429 structure S=Alpha32Stream
39 : monnier 411 type rextension = unit
40 :     type fextension = unit
41 :     )
42 : monnier 247
43 : monnier 475 structure Alpha32PseudoInstrs =
44 :     Alpha32PseudoInstrs(structure T = Alpha32MLTree
45 :     structure Instr = Alpha32Instr)
46 :    
47 :    

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