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/main/dummy-ccalls.sml
ViewVC logotype

View of /sml/trunk/src/compiler/CodeGen/main/dummy-ccalls.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1526 - (download) (annotate)
Fri Jul 9 03:48:36 2004 UTC (17 years, 1 month ago) by jhr
File size: 726 byte(s)
  Add missing components to C-calls stub.
(* dummy-ccalls.sml
 *)

functor DummyCCallsFn (T: MLTREE) :> C_CALLS where T = T =
  struct
    structure T = T

    datatype c_arg 
      = ARG of T.rexp	
      | FARG of T.fexp
      | ARGS of c_arg list

    fun genCall _ = ErrorMsg.impossible "C-calls not implemented (genCall)"

    val paramAreaOffset = 0

    datatype arg_location
      = Reg of T.ty * T.reg * T.I.machine_int option
      | FReg of T.fty * T.reg * T.I.machine_int option
      | Stk of T.ty * T.I.machine_int
      | FStk of T.fty * T.I.machine_int
      | Args of arg_location list

    fun layout _ = ErrorMsg.impossible "C-calls not implemented (layout)"

    val calleeSaveRegs : T.reg list = []
    val calleeSaveFRegs : T.reg list = []

  end

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