diff options
| author | No author <no_author@ocaml.org> | 1996-06-12 14:30:50 +0000 |
|---|---|---|
| committer | No author <no_author@ocaml.org> | 1996-06-12 14:30:50 +0000 |
| commit | 8840c0d2eb51b915c2ee9a0141ee15bacd2edaf9 (patch) | |
| tree | e958cf7fcbd83fa76326751543fdb7b5db8c1f9d /asmrun/mlvalues.h | |
| parent | 27f9eb0fedb8be059f7413efc9fbb8c6d7ee8f92 (diff) | |
| download | ocaml-1.01.tar.gz | |
This commit was manufactured by cvs2svn to create tag 'ocaml101'.1.01
git-svn-id: http://caml.inria.fr/svn/ocaml/release/1.01@884 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'asmrun/mlvalues.h')
| -rw-r--r-- | asmrun/mlvalues.h | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/asmrun/mlvalues.h b/asmrun/mlvalues.h deleted file mode 100644 index b05a134ac6..0000000000 --- a/asmrun/mlvalues.h +++ /dev/null @@ -1,36 +0,0 @@ -typedef long value; - -#define Long_val(v) ((v) >> 1) -#define Val_long(n) (((long)(n) << 1) + 1) -#define Int_val(v) ((v) >> 1) -#define Val_int(n) (((n) << 1) + 1) - -#define Is_int(v) ((v) & 1) -#define Is_block(v) (((v) & 1) == 0) - -typedef unsigned long header_t; - -#define Header_val(v) *((header_t *)(v) - 1) -#define Tag_header(h) ((h) & 0xFF) -#define Size_header(h) ((h) >> 11) -#define Tag_val(v) Tag_header(Header_val(v)) -#define Size_val(v) Size_header(Header_val(v)) - -#define Field(v, n) (((value *)(v))[n]) - -#define Double_val(v) *((double *)(v)) - -#define No_scan_tag 0xFB - -#define Closure_tag 0xFA -#define Double_tag 0xFB -#define String_tag 0xFC -#define Abstract_tag 0xFD -#define Finalized_tag 0xFE -#define Infix_tag 0xFF - -#define Modified_mask 0x400 - -#define Val_false 1 -#define Val_true 3 -#define Val_unit 1 |