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/compiler/CodeGen/ppc/ppcMLTree.sml
ViewVC logotype

Annotation of /sml/trunk/compiler/CodeGen/ppc/ppcMLTree.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 4388 - (view) (download)

1 : jhr 4388 (* ppcMLTree.sml
2 :     *
3 :     * COPYRIGHT (c) 2017 The Fellowship of SML/NJ (http://www.smlnj.org)
4 :     * All rights reserved.
5 :     *)
6 : monnier 245
7 : jhr 4388 structure PPCMLTree = MLTreeF(
8 :     structure Constant = SMLNJConstant
9 :     structure Region = CPSRegions
10 :     structure Extension = SMLNJMLTreeExt)
11 : leunga 775
12 : jhr 4388 structure PPCMLTreeEval = MLTreeEval(
13 :     structure T = PPCMLTree
14 :     fun eq _ _ = false
15 :     val eqRext = eq
16 :     val eqFext = eq
17 :     val eqCCext = eq
18 :     val eqSext = eq)
19 : george 984
20 : jhr 4388 structure PPCMLTreeHash = MLTreeHash(
21 :     structure T = PPCMLTree
22 :     fun h _ _ = 0w0
23 :     val hashRext = h
24 :     val hashFext = h
25 :     val hashCCext = h
26 :     val hashSext = h)
27 : monnier 245
28 : jhr 4388 structure PPCGasPseudoOps = PPCGasPseudoOps(
29 :     structure T = PPCMLTree
30 :     structure MLTreeEval = PPCMLTreeEval)
31 : monnier 475
32 : jhr 4388 structure PPCClientPseudoOps = SMLNJPseudoOps(structure Asm = PPCGasPseudoOps)
33 : george 984
34 :     structure PPCPseudoOps = PseudoOps(structure Client = PPCClientPseudoOps)
35 :    
36 :     structure PPCStream = InstructionStream(PPCPseudoOps)
37 :    
38 : jhr 4388 structure PPCMLTreeStream = MLTreeStream(
39 :     structure T = PPCMLTree
40 :     structure S = PPCStream)
41 : george 984
42 :     (* specialised powerpc instruction set *)
43 :     structure PPCInstr = PPCInstr(PPCMLTree)
44 :    
45 : jhr 4388 structure PPCProps = PPCProps(
46 :     structure PPCInstr = PPCInstr
47 :     structure MLTreeEval = PPCMLTreeEval
48 :     structure MLTreeHash = PPCMLTreeHash)
49 : george 984
50 : monnier 245 structure PPCShuffle = PPCShuffle(PPCInstr)
51 :    
52 : jhr 4388 structure PPCAsmEmitter = PPCAsmEmitter(
53 :     structure Instr = PPCInstr
54 :     structure PseudoOps = PPCPseudoOps
55 :     structure S = PPCStream
56 :     structure MLTreeEval = PPCMLTreeEval
57 :     structure Shuffle = PPCShuffle)
58 : monnier 245
59 : jhr 4388 structure PPCMCEmitter = PPCMCEmitter(
60 :     structure Instr = PPCInstr
61 :     structure PseudoOps = PPCPseudoOps
62 :     structure Stream = PPCStream
63 :     structure MLTreeEval = PPCMLTreeEval
64 :     structure CodeString = CodeString)
65 : monnier 245
66 : george 909 (* Flowgraph data structure specialized to DEC alpha instructions *)
67 : jhr 4388 structure PPCCFG = ControlFlowGraph(
68 :     structure I = PPCInstr
69 :     structure PseudoOps = PPCPseudoOps
70 :     structure GraphImpl = DirectedGraph
71 :     structure InsnProps = PPCProps
72 :     structure Asm = PPCAsmEmitter)

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