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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-19 20:08:31 -0800 (Sat, 19 Nov 2005)
New Revision: 2170

Modified:
   branches/r5rs/sigscheme/sigschemeinternal.h
   branches/r5rs/sigscheme/storage-continuation.c
Log:
* sigscheme/sigschemeinternal.h
  - (INVALID_CONTINUATION_OPAQUE): Replace the value NULL with
    SCM_FALSE since NULL is not a safe ScmObj

* sigscheme/storage-continuation.c
  - (struct continuation_frame): Reorder members


Modified: branches/r5rs/sigscheme/sigschemeinternal.h
===================================================================
--- branches/r5rs/sigscheme/sigschemeinternal.h	2005-11-19 12:38:27 UTC (rev 2169)
+++ branches/r5rs/sigscheme/sigschemeinternal.h	2005-11-20 04:08:31 UTC (rev 2170)
@@ -301,7 +301,7 @@
 #define ASSERT_ERROBJP(obj)  ASSERT_TYPE(ERROBJP, "error object", (obj))
 
 /* Macros For Handling Continuation Object */
-#define INVALID_CONTINUATION_OPAQUE  NULL
+#define INVALID_CONTINUATION_OPAQUE  SCM_FALSE
 
 /* Symbol Name Hash Size */
 #define NAMEHASH_SIZE 1024

Modified: branches/r5rs/sigscheme/storage-continuation.c
===================================================================
--- branches/r5rs/sigscheme/storage-continuation.c	2005-11-19 12:38:27 UTC (rev 2169)
+++ branches/r5rs/sigscheme/storage-continuation.c	2005-11-20 04:08:31 UTC (rev 2170)
@@ -67,8 +67,10 @@
   File Local Type Definitions
 =======================================*/
 struct continuation_frame {
+    /* to ensure that the struct is even-byte aligned on stack, a ScmObj is
+       listed first */
+    ScmObj dyn_ext;
     jmp_buf *env;
-    ScmObj dyn_ext;
 };
 
 /*=======================================