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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 41 - (download) (as text) (annotate)
Sun Mar 22 20:10:46 1998 UTC (22 years, 4 months ago) by monnier
File size: 1224 byte(s)
Initial revision
(* object-desc.sig
 *
 * COPYRIGHT (c) 1998 Bell Labs, Lucent Technologies.
 *
 * Abstract interface to the encoding of object description headers.
 *)

signature OBJECT_DESC =
  sig

    type tag

    val tagWidth : int (* number of bits to hold a tag *)
    val powTagWidth : int (* 2 ^ tagWidth *)
    val maxLength : int (* one greater than max length value *)

  (* tag values *)
    val tag_record : tag
    val tag_pair : tag
    val tag_array : tag
    val tag_string : tag
    val tag_word8array : tag
    val tag_reald : tag
    val tag_realdarray : tag
    val tag_cont : tag
    val tag_block : tag
    val tag_variant : tag (* currently not used *)
    val tag_special : tag
    val tag_backptr : tag

  (* build a descriptor from a tag and length *)
    val makeDesc : (int * tag) -> LargeWord.word

  (* fixed descriptors *)
    val desc_pair : LargeWord.word
    val desc_reald : LargeWord.word

  (* special descriptors *)
    val desc_special : LargeWord.word
    val special_evaled_susp : int
    val special_unevaled_susp : int
    val special_weak : int
    val special_nulled_weak : int

  end;

(*
 * $Log: object-desc-sig.sml,v $
 * Revision 1.2  1998/02/15 19:40:49  jhr
 *   Added CVS Log.
 *
 *)


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