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/CodeGen/main/object-desc.sig
ViewVC logotype

Annotation of /sml/trunk/src/compiler/CodeGen/main/object-desc.sig

Parent Directory Parent Directory | Revision Log Revision Log


Revision 245 - (view) (download) (as text)
Original Path: sml/branches/SMLNJ/src/compiler/CodeGen/main/object-desc.sig

1 : monnier 245 (* object-desc.sig
2 :     *
3 :     * COPYRIGHT (c) 1998 Bell Labs, Lucent Technologies.
4 :     *
5 :     * Abstract interface to the encoding of object description headers.
6 :     *)
7 :    
8 :     signature OBJECT_DESC =
9 :     sig
10 :    
11 :     type tag
12 :    
13 :     val tagWidth : int (* number of bits to hold a tag *)
14 :     val powTagWidth : int (* 2 ^ tagWidth *)
15 :     val maxLength : int (* one greater than max length value *)
16 :    
17 :     (* tag values *)
18 :     val tag_record : tag
19 :     val tag_ref : tag
20 :     val tag_vec_hdr : tag
21 :     val tag_vec_data : tag
22 :     val tag_arr_hdr : tag
23 :     val tag_arr_data : tag
24 :     val tag_raw32 : tag
25 :     val tag_raw64 : tag
26 :     val tag_special : tag
27 :    
28 :     (* build a descriptor from a tag and length *)
29 :     val makeDesc : (int * tag) -> LargeWord.word
30 :    
31 :     (* fixed descriptors *)
32 :     val desc_pair : LargeWord.word
33 :     val desc_ref : LargeWord.word
34 :     val desc_real64 : LargeWord.word
35 :     val desc_polyvec : LargeWord.word
36 :     val desc_polyarr : LargeWord.word
37 :     val desc_special : LargeWord.word (* with 0 length *)
38 :    
39 :     (* length codes for special descriptors *)
40 :     val special_evaled_susp : int
41 :     val special_unevaled_susp : int
42 :     val special_weak : int
43 :     val special_nulled_weak : int
44 :    
45 :     end;
46 :    
47 :     (*
48 :     * $Log: object-desc.sig,v $
49 :     * Revision 1.1.1.1 1998/04/08 18:39:54 george
50 :     * Version 110.5
51 :     *
52 :     *)
53 :    

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