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/src/compiler/CodeGen/sparc/sparcMLTree.sml
ViewVC logotype

Annotation of /sml/trunk/src/compiler/CodeGen/sparc/sparcMLTree.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 419 - (view) (download)

1 : monnier 245 (* 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 = SMLNJConstant
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 : monnier 411 structure SparcStream = InstructionStreamFn(structure P=SparcPseudoOps
31 :     structure B=FunctionNames)
32 :    
33 : monnier 245 structure SparcAsmEmitter =
34 :     SparcAsmEmitter(structure Instr=SparcInstr
35 :     structure Shuffle=SparcShuffle
36 : monnier 411 structure Stream = SparcStream
37 :     structure PseudoOps=SparcPseudoOps
38 :     val V9 = false)
39 : monnier 245
40 :     structure SparcMCEmitter =
41 :     SparcMCEmitter(structure Instr=SparcInstr
42 :     structure Assembler=SparcAsmEmitter
43 : monnier 411 structure Stream = SparcStream
44 : monnier 245 structure CodeString=CodeString)
45 :    
46 :     structure SparcMLTree =
47 :     MLTreeF(structure Const=SparcConst
48 :     structure R=CPSRegions
49 :     structure P=SparcPseudoOps
50 : monnier 411 structure B=FunctionNames
51 :     type rextension = unit
52 :     type fextension = unit
53 :     )
54 : monnier 245
55 :    

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