klisp

an open source interpreter for the Kernel Programming Language.
git clone http://git.hanabi.in/repos/klisp.git
Log | Files | Refs | README

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:
Msrc/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 */