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

SCM Repository

[smlnj] Annotation of /sml/trunk/src/compiler/PervEnv/Boot/dummy.sml
ViewVC logotype

Annotation of /sml/trunk/src/compiler/PervEnv/Boot/dummy.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 89 - (view) (download)

1 : monnier 89 (* Copyright 1996 by Bell Laboratories *)
2 :     (* dummy.sml *)
3 :    
4 :     structure Assembly :> ASSEMBLYBOXED =
5 :     struct
6 :     type object = object
7 :     datatype 'a option = NONE | SOME of 'a
8 :    
9 :     (*
10 :     * Declarations whose right handside is a primOp do not
11 :     * generate any code. This is a hack, and should be cleaned
12 :     * in the future. (ZHONG)
13 :     *)
14 :     val cast : 'a -> 'b = InLine.cast
15 :    
16 :     structure A =
17 :     struct
18 :     type c_function = c_function
19 :     type word8array = word8array
20 :     type real64array = real64array
21 :     type spin_lock = spin_lock
22 :    
23 :     fun array (x: object): object = cast x
24 :     fun bind_cfun (x: object): object = cast x
25 :     fun callc (x: object): object = cast x
26 :     fun create_b (x: object) : word8array = cast x
27 :     fun create_r (x: object) : real64array = cast x
28 :     fun create_s (x: object): string = cast x
29 :     fun create_v (x: object): object = cast x
30 :     fun floor (x: object): object = cast x
31 :     fun logb (x: object): object = cast x
32 :     fun scalb (x: object): object = cast x
33 :     fun try_lock (x: spin_lock): object = cast x
34 :     fun unlock (x: spin_lock): object = cast x
35 :     end
36 :    
37 :     exception Div
38 :     exception Overflow
39 :     exception SysErr of (string * int option)
40 :    
41 :     val array0 : 'a array = cast()
42 :     val vector0 : 'a vector = cast()
43 :     val word8array0 : A.word8array = cast()
44 :     val profCurrent : int ref = cast()
45 :     val pollEvent : bool ref = cast()
46 :     val pollFreq : int ref = cast()
47 :     val pollHandler : (unit cont -> unit cont) ref = cast()
48 :     val activeProcs : int ref = cast()
49 :     val pstruct : object ref = cast()
50 :     val real64array0 : A.real64array = cast()
51 :     val sighandler : ((int * int * unit cont) -> unit cont) ref = cast()
52 :    
53 :     end (* abstraction Assembly *)
54 :    
55 :    
56 :     (*
57 :     * $Log: dummy.sml,v $
58 :     * Revision 1.1.1.1 1998/04/08 18:40:05 george
59 :     * Version 110.5
60 :     *
61 :     *)

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