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/sparcMLTreeExtComp.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 933 - (view) (download)

1 : blume 840 functor SparcMLTreeExtComp
2 : george 933 (structure T : MLTREE
3 :     where Extension = Sparc_SMLNJMLTreeExt
4 :     structure I : SPARCINSTR
5 :     where T = T
6 :     structure CFG : CONTROL_FLOW_GRAPH
7 :     where I = I
8 :     and P = T.PseudoOp) : MLTREE_EXTENSION_COMP =
9 : blume 840 struct
10 :     structure T = T
11 :     structure I = I
12 :     structure C = I.C
13 :     structure Ext = Sparc_SMLNJMLTreeExt
14 : george 909 structure CFG = CFG
15 :     structure SparcCompInstrExt =
16 :     SparcCompInstrExt(structure I = I structure CFG = CFG)
17 : blume 840
18 :     type reducer =
19 : george 909 (I.instruction,C.cellset,I.operand,I.addressing_mode, CFG.cfg) T.reducer
20 : blume 840
21 :     fun unimplemented _ = MLRiscErrorMsg.impossible "SparcMLTreeExtComp"
22 :    
23 :     val compileSext = SparcCompInstrExt.compileSext
24 :     val compileRext = unimplemented
25 :     val compileCCext = unimplemented
26 :     val compileFext = unimplemented
27 :     end

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