[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 02/06: Tweak value of tc7-smob.
From: |
Andy Wingo |
Subject: |
[Guile-commits] 02/06: Tweak value of tc7-smob. |
Date: |
Tue, 6 Sep 2016 10:21:48 +0000 (UTC) |
wingo pushed a commit to branch master
in repository guile.
commit 1bed03224906b2891fedc2c23abc073d4a60adda
Author: Andy Wingo <address@hidden>
Date: Tue Sep 6 09:21:49 2016 +0200
Tweak value of tc7-smob.
* libguile/tags.h (scm_tc7_smob):
* module/system/base/types.scm (%tc7-smob): Tweak this value, just to
prove that it can be done. Remove scary comment.
---
libguile/tags.h | 15 ++-------------
module/system/base/types.scm | 2 +-
2 files changed, 3 insertions(+), 14 deletions(-)
diff --git a/libguile/tags.h b/libguile/tags.h
index cf40c3d..5b0bc8c 100644
--- a/libguile/tags.h
+++ b/libguile/tags.h
@@ -400,26 +400,20 @@ typedef union SCM { struct { scm_t_bits n; } n; } SCM;
#define scm_tc7_symbol 0x05
#define scm_tc7_variable 0x07
-
-/* couple */
#define scm_tc7_vector 0x0d
#define scm_tc7_wvect 0x0f
-
#define scm_tc7_string 0x15
#define scm_tc7_number 0x17
#define scm_tc7_stringbuf 0x27
#define scm_tc7_bytevector 0x4d
-
#define scm_tc7_pointer 0x1f
#define scm_tc7_hashtable 0x1d
#define scm_tc7_fluid 0x25
#define scm_tc7_dynamic_state 0x2d
-
#define scm_tc7_frame 0x2f
#define scm_tc7_keyword 0x35
#define scm_tc7_unused_55 0x37
#define scm_tc7_vm_cont 0x47
-
#define scm_tc7_unused_17 0x3d
#define scm_tc7_unused_21 0x3f
#define scm_tc7_program 0x45
@@ -433,14 +427,9 @@ typedef union SCM { struct { scm_t_bits n; } n; } SCM;
#define scm_tc7_unused_13 0x6d
#define scm_tc7_unused_14 0x6f
#define scm_tc7_unused_15 0x75
-#define scm_tc7_unused_16 0x77
+#define scm_tc7_unused_16 0x7f
#define scm_tc7_port 0x7d
-
-/* There are 256 smob subtypes. [**] If you change scm_tc7_smob, you must
- * also change the places it is hard coded in this file and possibly others.
- * Dirk:FIXME:: Any hard coded reference to scm_tc7_smob must be replaced by a
- * symbolic reference. */
-#define scm_tc7_smob 0x7f /* DO NOT CHANGE [**] */
+#define scm_tc7_smob 0x77
/* Definitions for tc16: */
diff --git a/module/system/base/types.scm b/module/system/base/types.scm
index a963488..cf3c7c9 100644
--- a/module/system/base/types.scm
+++ b/module/system/base/types.scm
@@ -265,7 +265,7 @@ the matching bits, possibly with bitwise operations to
extract it from BITS."
(define %tc7-array #x5d)
(define %tc7-bitvector #x5f)
(define %tc7-port #x7d)
-(define %tc7-smob #x7f)
+(define %tc7-smob #x77)
(define %tc16-bignum (+ %tc7-number (* 1 256)))
(define %tc16-real (+ %tc7-number (* 2 256)))
- [Guile-commits] branch master updated (605a01b -> 32f309d), Andy Wingo, 2016/09/06
- [Guile-commits] 02/06: Tweak value of tc7-smob.,
Andy Wingo <=
- [Guile-commits] 04/06: Add atomic boxes, Andy Wingo, 2016/09/06
- [Guile-commits] 03/06: Reorder tc7 type codes, Andy Wingo, 2016/09/06
- [Guile-commits] 05/06: Fix fixnum min/max for assembler, Andy Wingo, 2016/09/06
- [Guile-commits] 06/06: Compiler support for atomics, Andy Wingo, 2016/09/06
- [Guile-commits] 01/06: Convert tc7 values to hex in tags.h and elsewhere, Andy Wingo, 2016/09/06