Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/compiler/CodeGen/cpscompile/smlnj-mltreeext.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 563 - (download) (annotate)
Fri Mar 3 16:39:32 2000 UTC (21 years ago) by george
File size: 703 byte(s)
lal-20000303-new mltree -- take II
structure SMLNJMLTreeExt =
struct
   type ('s,'r,'f,'c) sx = unit
   type ('s,'r,'f,'c) rx = unit
   type ('s,'r,'f,'c) fx = unit
   type ('s,'r,'f,'c) ccx = unit
end

functor SMLNJMLTreeExtComp
   (structure T : MLTREE
    structure I : INSTRUCTIONS
      sharing T.LabelExp = I.LabelExp
   ) : MLTREE_EXTENSION_COMP =
struct
   structure T = T
   structure I = I
   structure C = I.C
   type reducer =
     (I.instruction,C.regmap,C.cellset,I.operand,I.addressing_mode) T.reducer
   fun unimplemented _ = MLRiscErrorMsg.impossible "SMLNJMLTreeExtComp" 
   val compileSext  = unimplemented
   val compileRext  = unimplemented
   val compileFext  = unimplemented
   val compileCCext = unimplemented
end

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