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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-20 05:27:08 -0800 (Sun, 20 Nov 2005)
New Revision: 2181

Modified:
   branches/r5rs/sigscheme/debug.c
Log:
* sigscheme/debug.c
  - (get_shared_index): Fix the case looking up unseen obj which
    causes SEGV


Modified: branches/r5rs/sigscheme/debug.c
===================================================================
--- branches/r5rs/sigscheme/debug.c	2005-11-20 10:58:40 UTC (rev 2180)
+++ branches/r5rs/sigscheme/debug.c	2005-11-20 13:27:08 UTC (rev 2181)
@@ -659,11 +659,13 @@
     if (write_ss_ctx) {
         ent = hash_lookup(&write_ss_ctx->seen, obj, 0, HASH_FIND);
 
-        if (ent->datum == DEFINING_DATUM) {
-            ent->datum = write_ss_ctx->next_index++;
-            return - (ent->datum);
+        if (ent) {
+            if (ent->datum == DEFINING_DATUM) {
+                ent->datum = write_ss_ctx->next_index++;
+                return - (ent->datum);
+            }
+            return ent->datum;
         }
-        return ent->datum;
     }
     return 0;
 }