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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 909 - (download) (annotate)
Fri Aug 24 17:48:53 2001 UTC (19 years, 2 months ago) by george
File size: 770 byte(s)
removed clusters from MLRISC
functor SparcMLTreeExtComp
   (structure T : MLTREE where Extension = Sparc_SMLNJMLTreeExt
    structure I : SPARCINSTR where T = T
    structure CFG : CONTROL_FLOW_GRAPH where I = I) : MLTREE_EXTENSION_COMP =
struct
   structure T = T
   structure I = I
   structure C = I.C
   structure Ext = Sparc_SMLNJMLTreeExt
   structure CFG = CFG
   structure SparcCompInstrExt = 
     SparcCompInstrExt(structure I = I structure CFG = CFG)

   type reducer = 
     (I.instruction,C.cellset,I.operand,I.addressing_mode, CFG.cfg) T.reducer

   fun unimplemented _ = MLRiscErrorMsg.impossible "SparcMLTreeExtComp" 

   val compileSext  = SparcCompInstrExt.compileSext
   val compileRext  = unimplemented
   val compileCCext = unimplemented
   val compileFext  = unimplemented
end

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