Revision: 6237
Author: ek.kato
Date: Tue Mar  9 20:18:12 2010
Log: * src/storage-gc.c (within_heapp) : Don't assert the alignment of
  the ptr before checking whether the object is within the
  heap (bug #26950).

http://code.google.com/p/uim/source/detail?r=6237

Modified:
 /sigscheme-trunk/src/storage-gc.c

=======================================
--- /sigscheme-trunk/src/storage-gc.c   Wed Feb 13 07:03:48 2008
+++ /sigscheme-trunk/src/storage-gc.c   Tue Mar  9 20:18:12 2010
@@ -637,7 +637,7 @@
         return scm_false;
     /* The pointer on the stack is 'tagged' to represent its types.
      * So we need to ignore the tag to get its real pointer value. */
-    ptr = SCM_UNTAG_PTR(obj);
+    ptr = (ScmCell *)SCM_DROP_TAG(obj);
 #else /* SCM_USE_STORAGE_COMPACT */
     ptr = obj;
 #endif /* SCM_USE_STORAGE_COMPACT */

Reply via email to