Previous definition of MAKE_OBJECT only worked if

(sizeof (int)) == (sizeof (long)) .

diff --git a/v7/src/microcode/object.h b/v7/src/microcode/object.h
index c4e9487a59a5414028d09ef4ef2b73f80eb2c502..0ae424c049e3b1f11691542f628f80fdc48ec459 100644 (file)
--- a/v7/src/microcode/object.h
+++ b/v7/src/microcode/object.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/object.h,v 9.36 1990/11/27 19:13:28 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/object.h,v 9.37 1992/02/10 13:05:22 jinx Exp $
 
-Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology
+Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -111,7 +111,7 @@ MIT in each case. */
 #define OBJECT_ADDRESS(object) (DATUM_TO_ADDRESS ((object) & DATUM_MASK))
 
 #define MAKE_OBJECT(type, datum)                                       \
-  ((((unsigned int) (type)) << DATUM_LENGTH) | (datum))
+  ((((unsigned long) (type)) << DATUM_LENGTH) | (datum))
 
 #define OBJECT_NEW_DATUM(type_object, datum)                           \
   (((type_object) & TYPE_CODE_MASK) | (datum))

diff --git a/v8/src/microcode/object.h b/v8/src/microcode/object.h
index 69bc6f162a82e2947e1368730b8a96365538155d..9b39a3df2eb3f174219176a197e57c6b91a4b444 100644 (file)
--- a/v8/src/microcode/object.h
+++ b/v8/src/microcode/object.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/object.h,v 9.36 1990/11/27 19:13:28 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/object.h,v 9.37 1992/02/10 13:05:22 jinx Exp $
 
-Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology
+Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -111,7 +111,7 @@ MIT in each case. */
 #define OBJECT_ADDRESS(object) (DATUM_TO_ADDRESS ((object) & DATUM_MASK))
 
 #define MAKE_OBJECT(type, datum)                                       \
-  ((((unsigned int) (type)) << DATUM_LENGTH) | (datum))
+  ((((unsigned long) (type)) << DATUM_LENGTH) | (datum))
 
 #define OBJECT_NEW_DATUM(type_object, datum)                           \
   (((type_object) & TYPE_CODE_MASK) | (datum))