fix atom garbage collector when found a wide atom (rep from Simon Strobl).

2009-06-02 09:51:57 -05:00 · 2009-06-02 09:51:57 -05:00 · 11214d6ba9
commit 11214d6ba9
parent 627a4f8b1f
1 changed files with 4 additions and 0 deletions
--- a/H/rheap.h
+++ b/H/rheap.h
@ -1471,6 +1471,10 @@ RestoreEntries(PropEntry *pp, int int_key)
      pp->NextOfPE =
 	PropAdjust(pp->NextOfPE);
      break;
+    case WideAtomProperty:
+      pp->NextOfPE =
+	PropAdjust(pp->NextOfPE);
+      break;
    default:
      /* OOPS */
      Yap_Error(SYSTEM_ERROR, TermNil,