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

View of /sml/branches/arith64/compiler/CodeGen/cpscompile/smlnj-mltreeext.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 4874 - (download) (annotate)
Fri Oct 5 14:33:11 2018 UTC (10 months, 1 week ago) by jhr
File size: 1054 byte(s)
  merge in edits from trunk
(* smlnj-mltreeext.sml
 *
 * COPYRIGHT (c) 2017 The Fellowship of SML/NJ (http://www.smlnj.org)
 * All rights reserved.
 *)

structure SMLNJMLTreeExt : SMLNJ_MLTREE_EXT =
  struct
    type ('s,'r,'f,'c) sx = unit
    type ('s,'r,'f,'c) rx = unit
    type ('s,'r,'f,'c) ccx = unit
    datatype ('s,'r,'f,'c) fx
     = FSINE of 'f
     | FCOSINE of 'f
     | FTANGENT of 'f
  end

(* This is the default extension compilation module
 * used for all architectures except the x86.
 *)
functor SMLNJMLTreeExtComp
   (structure TS  : MLTREE_STREAM
    structure CFG : CONTROL_FLOW_GRAPH
		    where P = TS.S.P
   ) : MLTREE_EXTENSION_COMP =
struct
   structure TS = TS
   structure T  = TS.T
   structure I = CFG.I
   structure CFG = CFG

   type reducer =
     (I.instruction,I.C.cellset,I.operand,I.addressing_mode,CFG.cfg) TS.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