klisp

commit fdb4c5d8c02293b0c4a6e915e640e4aa8bab4adf
parent b6859d87dfca3b9db76ddd9a25e477c44501a566
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Mon, 18 Apr 2011 19:33:42 -0300

Bugfix: in kobject the test in ttisbigint was wrong.

Diffstat:
M
src/kobject.h
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/kobject.h b/src/kobject.h
@@ -223,7 +223,7 @@ typedef struct __attribute__ ((__packed__)) GCheader {
 
 /* Simple types (value in TValue struct) */
 #define ttisfixint(o)	(tbasetype_(o) == K_TAG_FIXINT)
-#define ttisbigint(o)	(tbasetype_(o) == K_TAG_FIXINT)
+#define ttisbigint(o)	(tbasetype_(o) == K_TAG_BIGINT)
 #define ttisinteger(o_) ({ int32_t t_ = tbasetype_(o_); \
 	    t_ == K_TAG_FIXINT || t_ == K_TAG_BIGINT;})
 #define ttisnumber(o) (ttype(o) <= K_LAST_NUMBER_TYPE); })
@@ -449,6 +449,7 @@ typedef struct __attribute__ ((__packed__)) {
     CommonHeader;
     TValue mark; /* for cycle/sharing aware algorithms */
     uint32_t size; 
+    uint32_t hash; /* only used for immutable strings */
     char b[]; // buffer
 } String;