[uim commit] r4733 - sigscheme-trunk/src/gcroots

[codesite-noreply]

Author: yamakenz
Date: Tue Jul 17 21:37:07 2007
New Revision: 4733

Modified:
   sigscheme-trunk/src/gcroots/gcroots.c

Log:
* src/gcroots/gcroots.c
  - (GCROOTS_fin, GCROOTS_call_with_gc_ready_stack,
    GCROOTS_mark): Add precondition for args


Modified: sigscheme-trunk/src/gcroots/gcroots.c
==============================================================================
--- sigscheme-trunk/src/gcroots/gcroots.c       (original)
+++ sigscheme-trunk/src/gcroots/gcroots.c       Tue Jul 17 21:37:07 2007
@@ -93,6 +93,8 @@
 SCM_EXPORT void
 GCROOTS_fin(GCROOTS_context *ctx)
 {
+    assert(ctx);
+
     /* Nothing to do for this implementation. Caller must free ctx. */
 }
 
@@ -104,6 +106,9 @@
     void *stack_top; /* approx */
     volatile GCROOTS_user_proc anti_inline_proc;
 
+    assert(ctx);
+    assert(proc);
+
     if (!ctx->stack_base)
         ctx->stack_base = &stack_top;
 
@@ -125,6 +130,8 @@
     jmp_buf env;
 #endif
     void (*volatile anti_inline_mark_internal)(GCROOTS_context *);
+
+    assert(ctx);
 
     if (ctx->stack_base) {
 #if HAVE_GETCONTEXT