SCM Repository
Annotation of /sml/trunk/src/compiler/CodeGen/sparc/sparcMLTree.sml
Parent Directory
|
Revision Log
Revision 134 - (view) (download)
1 : | monnier | 134 | (* sparcMLTree.sml --- customize MLRISC for the Sparc. |
2 : | * | ||
3 : | * COPYRIGHT (c) 1998 AT&T Bell Laboratories. | ||
4 : | *) | ||
5 : | |||
6 : | (* constants specialised to the sparc *) | ||
7 : | structure SparcConst = RegMaskConst(structure RegMask = SparcMask) | ||
8 : | |||
9 : | (* specialised sparc instruction set *) | ||
10 : | structure SparcInstr = | ||
11 : | SparcInstr(structure Const = SparcConst | ||
12 : | structure Region = CPSRegions | ||
13 : | (* | ||
14 : | structure Annotations = SMLNJAnnotations | ||
15 : | *) | ||
16 : | ) | ||
17 : | |||
18 : | structure SparcPseudoInstrs = SparcPseudoInstrs(SparcInstr) | ||
19 : | |||
20 : | structure SparcShuffle = SparcShuffle(SparcInstr) | ||
21 : | |||
22 : | structure SparcPseudoOps = PseudoOpsBig(SparcSpec) | ||
23 : | |||
24 : | (* flowgraph data structure specialized to Sparc instructions *) | ||
25 : | structure SparcFlowGraph = | ||
26 : | FlowGraph(structure I=SparcInstr | ||
27 : | structure P=SparcPseudoOps | ||
28 : | structure B=FunctionNames) | ||
29 : | |||
30 : | structure SparcAsmEmitter = | ||
31 : | SparcAsmEmitter(structure Instr=SparcInstr | ||
32 : | structure Shuffle=SparcShuffle | ||
33 : | structure FlowGraph=SparcFlowGraph) | ||
34 : | |||
35 : | structure SparcMCEmitter = | ||
36 : | SparcMCEmitter(structure Instr=SparcInstr | ||
37 : | structure Assembler=SparcAsmEmitter | ||
38 : | structure FlowGraph=SparcFlowGraph) | ||
39 : | |||
40 : | structure SparcMLTree = | ||
41 : | MLTreeF(structure Const=SparcConst | ||
42 : | structure R=CPSRegions | ||
43 : | structure P=SparcPseudoOps | ||
44 : | structure B=FunctionNames) | ||
45 : | |||
46 : | |||
47 : | (* | ||
48 : | * $Log$ | ||
49 : | *) |
root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
Powered by ViewVC 1.0.0 |