promotional, or sales literature without prior written consent from
MIT in each case. */
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/object.h,v 9.29 1988/08/15 20:52:18 cph Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/object.h,v 9.30 1989/05/24 18:14:52 jinx Rel $ */
/* This file contains definitions pertaining to the C view of
Scheme pointers: widths of fields, extraction macros, pre-computed
extraction masks, etc. */
\f
-/* The C type Pointer is defined at the end of CONFIG.H
+/* The C type Pointer is defined at the end of config.h
The definition of POINTER_LENGTH here assumes that Pointer is the same
as unsigned long. If that ever changes, this definition must also.
POINTER_LENGTH is defined this way to make it available to
the preprocessor. */
-#define POINTER_LENGTH ULONG_SIZE
+/* TYPE_CODE_LENGTH must match the value in Wsize.c! */
#define TYPE_CODE_LENGTH 8 /* Not CHAR_SIZE!! */
#define MAX_TYPE_CODE 0xFF /* ((1<<TYPE_CODE_LENGTH) - 1) */
+#define POINTER_LENGTH ULONG_SIZE
#ifndef b32 /* Portable versions */
promotional, or sales literature without prior written consent from
MIT in each case. */
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/object.h,v 9.29 1988/08/15 20:52:18 cph Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/object.h,v 9.30 1989/05/24 18:14:52 jinx Rel $ */
/* This file contains definitions pertaining to the C view of
Scheme pointers: widths of fields, extraction macros, pre-computed
extraction masks, etc. */
\f
-/* The C type Pointer is defined at the end of CONFIG.H
+/* The C type Pointer is defined at the end of config.h
The definition of POINTER_LENGTH here assumes that Pointer is the same
as unsigned long. If that ever changes, this definition must also.
POINTER_LENGTH is defined this way to make it available to
the preprocessor. */
-#define POINTER_LENGTH ULONG_SIZE
+/* TYPE_CODE_LENGTH must match the value in Wsize.c! */
#define TYPE_CODE_LENGTH 8 /* Not CHAR_SIZE!! */
#define MAX_TYPE_CODE 0xFF /* ((1<<TYPE_CODE_LENGTH) - 1) */
+#define POINTER_LENGTH ULONG_SIZE
#ifndef b32 /* Portable versions */