diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 1999-11-30 17:09:30 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 1999-11-30 17:09:30 +0000 |
| commit | 71d0a1a1816220a2f0b26593ce9acebff6f600d0 (patch) | |
| tree | 8e14d898eb93c3003cad7e6201985ee2ceb72b19 /asmrun/mlvalues.h | |
| parent | 1b3923e514ab9ccc028d5ee53b0c24026fa4e17d (diff) | |
dead files
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2654 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 b05a134ac..000000000 --- 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 |