Author: yamakenz
Date: Mon Aug 6 03:41:11 2007
New Revision: 4791
Modified:
trunk/uim/uim.c
Log:
* uim/uim.c
- (uim_get_im_name): Remove the test code for broken
l_freelist problem resolved in sigscheme-trunk r4790
Modified: trunk/uim/uim.c
==============================================================================
--- trunk/uim/uim.c (original)
+++ trunk/uim/uim.c Mon Aug 6 03:41:11 2007
@@ -702,20 +702,9 @@
if (UIM_SCM_FALSEP(im))
return NULL;
-#if 1
protected1 = str = uim_scm_callf("im-name", "o", im);
return uim_scm_refer_c_str(str);
-#else
- /* FIXME: This code breaks l_freelist as follows. Though the
- * unprotected variable causes unexpected sweep, l_freelist is not
- * supposed to be broken. -- 2007-04-05 YamaKen
- *
- * $ fep/uim-fep
- * lt-uim-fep: ../sigscheme/src/storage-gc.c:178: scm_alloc_cell: Assertion
`!((scm_uintobj_t)(((scm_g_instance_static_gc).l_freelist)) % sizeof(ScmCell))'
failed.
- */
- return uim_scm_refer_c_str(uim_scm_callf("im-name", "o", im));
-#endif
}
const char *
