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

SCM Repository

[smlnj] Diff of /sml/trunk/src/compiler/CodeGen/main/dummy-ccalls.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1525, Wed Jul 7 02:10:23 2004 UTC revision 1526, Fri Jul 9 03:48:36 2004 UTC
# Line 1  Line 1 
1  functor DummyCCallsFn (T: MLTREE) :> C_CALLS where T = T = struct  (* dummy-ccalls.sml
2     *)
3    
4    functor DummyCCallsFn (T: MLTREE) :> C_CALLS where T = T =
5      struct
6      structure T = T      structure T = T
7    
8      datatype c_arg      datatype c_arg
9        = ARG of T.rexp        = ARG of T.rexp
10        | FARG of T.fexp        | FARG of T.fexp
11        | ARGS of c_arg list        | ARGS of c_arg list
12    
13      fun genCall _ = ErrorMsg.impossible "C-calls not implemented"      fun genCall _ = ErrorMsg.impossible "C-calls not implemented (genCall)"
14    
15      val paramAreaOffset = 0      val paramAreaOffset = 0
16    
17        datatype arg_location
18          = Reg of T.ty * T.reg * T.I.machine_int option
19          | FReg of T.fty * T.reg * T.I.machine_int option
20          | Stk of T.ty * T.I.machine_int
21          | FStk of T.fty * T.I.machine_int
22          | Args of arg_location list
23    
24        fun layout _ = ErrorMsg.impossible "C-calls not implemented (layout)"
25    
26        val calleeSaveRegs : T.reg list = []
27        val calleeSaveFRegs : T.reg list = []
28    
29  end  end

Legend:
Removed from v.1525  
changed lines
  Added in v.1526

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