klisp

commit 8bdabb9fb89eb5407b644ff4e2069dea455e3496
parent 3a588bb82a1b9248f166c0c3f814ce65008a59d0
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Sat, 19 Feb 2011 21:25:49 -0300

Bugfix: reversed members in InnerTV so that tagged values are NaN (endianness problem). Added mark and source info members to Pair.

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

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/kobject.h b/src/kobject.h
@@ -185,8 +185,8 @@ typedef union {
 ** All Kernel non heap-allocated values (except doubles) tagged
 */
 typedef struct __attribute__ ((__packed__)) InnerTV {
-    uint32_t t;
     Value v;
+    uint32_t t;
 } InnerTV;
 
 /*
@@ -202,8 +202,10 @@ typedef __attribute__((aligned (8))) union {
 */
 typedef struct __attribute__ ((__packed__)) {
     CommonHeader;
+    TValue mark; /* for cycle/sharing aware algorithms */
     TValue car;
     TValue cdr;
+    TValue si; /* source code info (either () or (filename line col) */
 } Pair;
 
 /* XXX: Symbol should probably contain a String instead of a char buf */