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/idlbasis-devel/src/MLRISC/Tools/MDL/mdl-glue.sml
ViewVC logotype

Annotation of /sml/branches/idlbasis-devel/src/MLRISC/Tools/MDL/mdl-glue.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 848 - (view) (download)

1 : leunga 744 (*
2 :     * This file just links everything together
3 :     *)
4 :    
5 :     structure MDLAstUtil = MDLAstUtil(MDLAst)
6 :    
7 :     structure MDLPP = MDLAstPrettyPrinter(MDLAstUtil)
8 :    
9 :     structure MDLTypeUtils = MDLTypeUtils(MDLPP)
10 :    
11 :     structure MDLEnv = MDLEnv(MDLTypeUtils)
12 :    
13 :     structure MDLRewriter = MDLAstRewriter(MDLAst)
14 :     structure MDLTrans = MDLAstTranslation
15 :     (structure AstPP = MDLPP
16 :     structure AstRewriter = MDLRewriter
17 :     )
18 :    
19 :     structure MDLCompile = MDLCompile
20 :     (structure AstPP = MDLPP
21 :     structure Env = MDLEnv
22 :     structure AstUtil = MDLAstUtil
23 :     structure Rewriter = MDLRewriter
24 :     structure Trans = MDLTrans
25 :     structure Consts = MDLAstConstants(MDLAst)
26 :     structure AstUtil = MDLAstUtil
27 :     structure TypeUtils= MDLTypeUtils
28 :     )
29 :    
30 :     structure MDLTyping = MDLTyping
31 :     (structure Env = MDLEnv
32 :     structure TypeUtil = MDLTypeUtils
33 :     structure AstUtil = MDLAstUtil
34 :     structure AstPP = MDLPP
35 :     structure Comp = MDLCompile
36 :     )
37 :    
38 :     structure MDLRTLTools = MDLRTLTools
39 :     (structure AstUtil = MDLAstUtil
40 :     structure MLTreeRTL = MDLMLTreeRTL
41 :     )
42 :    
43 :     structure MLRiscTypes = MLRiscTypes
44 :     (structure Comp = MDLCompile
45 :     structure RTL = MDLMLTreeRTL
46 :     )
47 :    
48 :     structure MDLRTLComp = MDLRTLComp
49 :     (structure Comp = MDLCompile
50 :     structure Typing = MDLTyping
51 :     structure RTLTools = MDLRTLTools
52 :     structure MLRiscTypes = MLRiscTypes
53 :     )
54 :    
55 :     structure MDLParser =
56 :     MDLParserDriver
57 :     (structure AstPP = MDLPP
58 :     val MDLmode = true
59 :     open MDLAst
60 :     fun newCell(id,nickname) =
61 :     CELLdecl{id=id,nickname=nickname,
62 :     from=ref 0,to=ref ~1, alias=NONE, count=NONE,
63 :     bits=0,
64 :     print=LAMBDAexp[CLAUSE([WILDpat],NONE,
65 :     LITexp(STRINGlit id))],
66 :     aggregable=false,
67 :     defaults=[]
68 :     }
69 :     val extraCells =
70 :     [newCell("CELLSET","cellset")
71 :     ]
72 :     )
73 :    
74 :     structure MDLGen = MDLGen
75 :     ( structure Comp = MDLCompile
76 :     structure Parser = MDLParser
77 :     structure Cells = MDLGenCells(MDLCompile)
78 :     structure Instr = MDLGenInstr(MDLCompile)
79 :     structure Shuffle = MDLDummyGen(MDLCompile)
80 :     structure Asm = MDLGenAsm(MDLCompile)
81 :     structure MC = MDLGenMC(MDLCompile)
82 :     structure Jumps = MDLDummyGen(MDLCompile)
83 :     structure Dasm = MDLDummyGen(MDLCompile)
84 :     structure Props = MDLGenInsnProps(MDLRTLComp)
85 :     structure Rewrite = MDLGenRewrite(MDLRTLComp)
86 :     structure RTLComp = MDLRTLComp
87 :     structure RTLProps = MDLGenRTLProps(MDLRTLComp)
88 :     structure SSAProps = MDLGenSSAProps(MDLRTLComp)
89 :     (* structure DelaySlots = MDLDelaySlots(MDLCompile)
90 :     structure SchedProps = MDLSchedProps(MDLRTLComp)
91 :     *)
92 :     )

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