diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix case where predicate is for an integer (DBEntry).

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2079 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-02-07 21:39:51 +00:00
parent 10afcef66b
commit 9b4c83ddb2
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
H/rheap.h
View File

@ -11,8 +11,12 @@
* File: rheap.h * * File: rheap.h *
* comments: walk through heap code * * 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 $ * $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 * Revision 1.82 2007/12/05 12:17:23 vsc
* improve JT * improve JT
* fix graph compatibility with SICStus * fix graph compatibility with SICStus
@ -1161,7 +1165,9 @@ CleanCode(PredEntry *pp)
} }
if (pp->ArityOfPE) { if (pp->ArityOfPE) {
if (pp->ModuleOfPred == IDB_MODULE) { 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)); pp->FunctorOfPred = (Functor)AtomAdjust((Atom)(pp->FunctorOfPred));
} else { } else {
pp->FunctorOfPred = FuncAdjust(pp->FunctorOfPred); pp->FunctorOfPred = FuncAdjust(pp->FunctorOfPred);