[uim-commit] r1242 - branches/r5rs/sigscheme

[kzk at freedesktop.org]

Author: kzk
Date: 2005-08-20 02:18:36 -0700 (Sat, 20 Aug 2005)
New Revision: 1242

Modified:
   branches/r5rs/sigscheme/datas.c
Log:
* GC bugfix by Jun Inoue<jun.lambda at gmail.com>. Thank you!

* sigscheme/datas.c
  - (is_pointer_to_heap): bug fix


Modified: branches/r5rs/sigscheme/datas.c
===================================================================
--- branches/r5rs/sigscheme/datas.c	2005-08-20 08:12:23 UTC (rev 1241)
+++ branches/r5rs/sigscheme/datas.c	2005-08-20 09:18:36 UTC (rev 1242)
@@ -413,7 +413,7 @@
 	if ((head = scm_heaps[i])
 	    && (head <= obj)
 	    && (obj  <  head + SCM_HEAP_SIZE)
-	    && ((((char*)obj - (char*)head) % sizeof(ScmObj)) == 0))
+	    && ((((char*)obj - (char*)head) % sizeof(ScmObjInternal)) == 0))
 	    return 1;
     }