From 11214d6ba946e7065e692996ca80ce8fbf94c5b5 Mon Sep 17 00:00:00 2001
From: Costa Vitor <vitor@quasar-20.(none)>
Date: Tue, 2 Jun 2009 09:51:57 -0500
Subject: [PATCH] fix atom garbage collector when found a wide atom (rep from
 Simon Strobl).

---
 H/rheap.h | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/H/rheap.h b/H/rheap.h
index a5945bd77..d7e838dbe 100644
--- 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,