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/cpscompile/smlnj-mltreeext.sml
ViewVC logotype

Annotation of /sml/trunk/src/compiler/CodeGen/cpscompile/smlnj-mltreeext.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 563 - (view) (download)

1 : george 563 structure SMLNJMLTreeExt =
2 :     struct
3 :     type ('s,'r,'f,'c) sx = unit
4 :     type ('s,'r,'f,'c) rx = unit
5 :     type ('s,'r,'f,'c) fx = unit
6 :     type ('s,'r,'f,'c) ccx = unit
7 :     end
8 :    
9 :     functor SMLNJMLTreeExtComp
10 :     (structure T : MLTREE
11 :     structure I : INSTRUCTIONS
12 :     sharing T.LabelExp = I.LabelExp
13 :     ) : MLTREE_EXTENSION_COMP =
14 :     struct
15 :     structure T = T
16 :     structure I = I
17 :     structure C = I.C
18 :     type reducer =
19 :     (I.instruction,C.regmap,C.cellset,I.operand,I.addressing_mode) T.reducer
20 :     fun unimplemented _ = MLRiscErrorMsg.impossible "SMLNJMLTreeExtComp"
21 :     val compileSext = unimplemented
22 :     val compileRext = unimplemented
23 :     val compileFext = unimplemented
24 :     val compileCCext = unimplemented
25 :     end

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