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 909 - (view) (download)

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

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