guile/guile-core/libguile ChangeLog tags.h

[Dirk Herrmann]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Dirk Herrmann <address@hidden>  00/12/04 08:31:03

Modified files:
        guile-core/libguile: ChangeLog tags.h 

Log message:
        * Eliminate hard-coded value of scm_tc7_smob.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1184&r2=1.1185
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/tags.h.diff?r1=1.69&r2=1.70

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1184 
guile/guile-core/libguile/ChangeLog:1.1185
--- guile/guile-core/libguile/ChangeLog:1.1184  Fri Dec  1 09:57:42 2000
+++ guile/guile-core/libguile/ChangeLog Mon Dec  4 08:31:03 2000
@@ -1,3 +1,8 @@
+2000-12-04  Dirk Herrmann  <address@hidden>
+
+       * tags.h (scm_tc_free_cell, scm_tc16_big, scm_tc16_real,
+       scm_tc16_complex):  Eliminate hard-coded value of scm_tc7_smob.
+
 2000-12-01  Dirk Herrmann  <address@hidden>
 
        * list.[ch] (scm_c_memq):  Added as a fast C level alternative for
Index: guile/guile-core/libguile/tags.h
diff -u guile/guile-core/libguile/tags.h:1.69 
guile/guile-core/libguile/tags.h:1.70
--- guile/guile-core/libguile/tags.h:1.69       Sat Nov 25 08:58:25 2000
+++ guile/guile-core/libguile/tags.h    Mon Dec  4 08:31:03 2000
@@ -395,16 +395,13 @@
 /* scm_tc_free_cell is also the 0th smob type.  We place this
  * in free cells to tell the conservative marker not to trace it.
  */
-#define scm_tc_free_cell       0x007f
+#define scm_tc_free_cell       (scm_tc7_smob + 0 * 256L)
 
-/* Smob type 1 (note the dependency on the predicate SCM_NUMP)
+/* Smob type 1 to 3 (note the dependency on the predicate SCM_NUMP)
  */
-#define scm_tc16_big           0x017f
-
-/* Smob types 2 and 3:
- */
-#define scm_tc16_real           0x027f
-#define scm_tc16_complex        0x037f
+#define scm_tc16_big           (scm_tc7_smob + 1 * 256L)
+#define scm_tc16_real           (scm_tc7_smob + 2 * 256L)
+#define scm_tc16_complex        (scm_tc7_smob + 3 * 256L)
 
 
 /* {Immediate Values}