From 9b4c83ddb27ae337ca2c2e400f17b5f7c16f0e6f Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 7 Feb 2008 21:39:51 +0000
Subject: [PATCH] fix case where predicate is for an integer (DBEntry).

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2079 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 H/rheap.h | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/H/rheap.h b/H/rheap.h
index 349feb20d..6074568d6 100644
--- a/H/rheap.h
+++ b/H/rheap.h
@@ -11,8 +11,12 @@
 * File:		rheap.h							 *
 * comments:	walk through heap code					 *
 *									 *
-* Last rev:     $Date: 2008-01-23 17:57:55 $,$Author: vsc $						 *
+* Last rev:     $Date: 2008-02-07 21:39:51 $,$Author: vsc $						 *
 * $Log: not supported by cvs2svn $
+* Revision 1.83  2008/01/23 17:57:55  vsc
+* valgrind it!
+* enable atom garbage collection.
+*
 * Revision 1.82  2007/12/05 12:17:23  vsc
 * improve JT
 * fix graph compatibility with SICStus
@@ -1161,7 +1165,9 @@ CleanCode(PredEntry *pp)
   }
   if (pp->ArityOfPE) {
     if (pp->ModuleOfPred == IDB_MODULE) {
-      if (pp->PredFlags & AtomDBPredFlag) {
+      if (pp->PredFlags & NumberDBPredFlag) {
+	/* it's an integer, do nothing */
+      } else if (pp->PredFlags & AtomDBPredFlag) {
 	pp->FunctorOfPred = (Functor)AtomAdjust((Atom)(pp->FunctorOfPred));
       } else {
 	pp->FunctorOfPred = FuncAdjust(pp->FunctorOfPred);