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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-20 04:37:44 -0800 (Tue, 20 Dec 2005)
New Revision: 2664

Modified:
   branches/r5rs/sigscheme/storage.c
Log:
* sigscheme/storage.c
  - (scm_make_int, scm_make_char): Eliminate dummy cell allocation
    when SCM_OBJ_COMPACT


Modified: branches/r5rs/sigscheme/storage.c
===================================================================
--- branches/r5rs/sigscheme/storage.c	2005-12-20 12:33:09 UTC (rev 2663)
+++ branches/r5rs/sigscheme/storage.c	2005-12-20 12:37:44 UTC (rev 2664)
@@ -165,8 +165,12 @@
 ScmObj
 scm_make_int(int val)
 {
-    ScmObj obj = scm_alloc_cell();
+    ScmObj obj;
 
+#if !SCM_OBJ_COMPACT
+    obj = scm_alloc_cell();
+#endif
+
     SCM_ENTYPE_INT(obj);
     SCM_INT_SET_VALUE(obj, val);
 
@@ -188,8 +192,12 @@
 ScmObj
 scm_make_char(int val)
 {
-    ScmObj obj = scm_alloc_cell();
+    ScmObj obj;
 
+#if !SCM_OBJ_COMPACT
+    obj = scm_alloc_cell();
+#endif
+
     SCM_ENTYPE_CHAR(obj);
     SCM_CHAR_SET_VALUE(obj, val);