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 /MLRISC/trunk/c-calls/unimplemented-c-calls.sml
ViewVC logotype

View of /MLRISC/trunk/c-calls/unimplemented-c-calls.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2126 - (download) (annotate)
Thu Nov 2 16:11:29 2006 UTC (12 years, 7 months ago) by blume
File size: 922 byte(s)
moved MLRISC to toplevel
(* unimplemented-c-calls.sml
 *
 *   A dummy (placeholder) "implementation" of the c-calls interface.
 *
 * Copyright (c) 2004 by The Fellowship of SML/NJ
 *)
functor UnimplementedCCallsFn
	    (structure T: MLTREE
	     val impossible: string -> 'a) :> 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 _ = impossible "C-calls not implemented (genCall)"

    val paramAreaOffset = 0

    val naturalIntSz = 32

    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 _ = 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