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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-12-03 13:39:30 -0800 (Sat, 03 Dec 2005)
New Revision: 2341

Modified:
   branches/r5rs/sigscheme/debug.c
Log:
* sigscheme/debug.c
  - (SigScm_WriteToPortWithSharedStructure): initialize ents with
    SCM_INVALID, because SCM_INVALID in SCM_OBJ_COMPACT is not NULL
    pointer.


Modified: branches/r5rs/sigscheme/debug.c
===================================================================
--- branches/r5rs/sigscheme/debug.c	2005-12-03 21:07:29 UTC (rev 2340)
+++ branches/r5rs/sigscheme/debug.c	2005-12-03 21:39:30 UTC (rev 2341)
@@ -690,10 +690,14 @@
 void SigScm_WriteToPortWithSharedStructure(ScmObj port, ScmObj obj)
 {
     write_ss_context ctx = {{0}};
+    unsigned int i;
 
     ctx.next_index = 1;
     ctx.seen.size = 1 << 8; /* arbitrary initial size */
     ctx.seen.ents = calloc(ctx.seen.size, sizeof(hash_entry));
+    for (i = 0; i < ctx.seen.size; i++) {
+        ctx.seen.ents[i].key = SCM_INVALID;
+    }
 
     write_ss_scan(obj, &ctx);