Author: yamakenz Date: Mon Aug 6 10:17:51 2007 New Revision: 4796 Modified: sigscheme-trunk/src/storage-compact.h
Log: * src/storage-compact.h - (SCM_UNTAG_PTR): Add ScmCell alignment assertion Modified: sigscheme-trunk/src/storage-compact.h ============================================================================== --- sigscheme-trunk/src/storage-compact.h (original) +++ sigscheme-trunk/src/storage-compact.h Mon Aug 6 10:17:51 2007 @@ -249,7 +249,7 @@ #define SCM_UNTAGGEDP(o) (!((o) & (SCM_GCBIT_MASK | SCM_PTAG_MASK))) -#define SCM_UNTAG_PTR(o) ((ScmCell *)SCM_DROP_TAG(o)) +#define SCM_UNTAG_PTR(o) (SCM_PTR(SCM_DROP_TAG(o))) /* Raw accessors. */ #define SCM_PTR(o) (SCM_ASSERT(!((scm_uintobj_t)(o) % sizeof(ScmCell))), \
