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 411 - (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 :     structure B=FunctionNames)
21 :    
22 : monnier 411 structure Alpha32Stream = InstructionStreamFn(structure P = Alpha32PseudoOps
23 :     structure B = FunctionNames)
24 :    
25 : monnier 247 structure Alpha32AsmEmitter=
26 : monnier 411 AlphaAsmEmitter(structure Instr=Alpha32Instr
27 :     structure PseudoOps=Alpha32PseudoOps
28 :     structure Stream=Alpha32Stream
29 :     structure Shuffle = Alpha32Shuffle)
30 : monnier 247
31 :     structure Alpha32MCEmitter =
32 : monnier 411 AlphaMCEmitter(structure Instr=Alpha32Instr
33 :     structure PseudoOps=Alpha32PseudoOps
34 :     structure Stream=Alpha32Stream
35 :     structure CodeString=CodeString)
36 : monnier 247
37 : monnier 411 (* Don't need this any more!
38 :     We now support the alpha32x by generating different instructions.
39 :     -- Allen.
40 :    
41 : monnier 247 structure Alpha32XMCEmitter =
42 :     Alpha32XMCEmitter(structure Instr=Alpha32Instr
43 :     structure PseudoOps=Alpha32PseudoOps
44 :     structure CodeString=CodeString)
45 : monnier 411 *)
46 : monnier 247
47 :    
48 :     structure Alpha32MLTree =
49 :     MLTreeF(structure Const=SMLNJConstant
50 :     structure P=Alpha32PseudoOps
51 :     structure R=CPSRegions
52 : monnier 411 structure B=FunctionNames
53 :     type rextension = unit
54 :     type fextension = unit
55 :     )
56 : monnier 247
57 :     (*
58 :     * $Log: alpha32MLTree.sml,v $
59 :     * Revision 1.4 1998/12/30 20:21:21 jhr
60 :     * Modifications to support code generation directly into code objects.
61 :     *
62 :     * Revision 1.3 1998/10/06 13:59:57 george
63 :     * Flowgraph has been removed from modules that do not need it -- [leunga]
64 :     *
65 :     * Revision 1.2 1998/07/25 03:05:33 george
66 :     * changes to support block names in MLRISC
67 :     *
68 :     * Revision 1.1.1.1 1998/04/08 18:39:54 george
69 :     * Version 110.5
70 :     *
71 :     *)

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