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

memory management bug fixes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1122 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2004-09-07 16:25:22 +00:00
parent 6711d93b9c
commit 93e5443dee
2 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
C/cdmgr.c
View File

@ -11,8 +11,11 @@
* File: cdmgr.c * * File: cdmgr.c *
* comments: Code manager * * comments: Code manager *
* * * *
* Last rev: $Date: 2004-09-03 03:11:07 $,$Author: vsc $ * * Last rev: $Date: 2004-09-07 16:25:22 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.128 2004/09/03 03:11:07 vsc
* memory management fixes
*
* Revision 1.127 2004/08/16 21:02:04 vsc * Revision 1.127 2004/08/16 21:02:04 vsc
* more fixes for ! * more fixes for !
* *
@ -2799,17 +2802,12 @@ code_in_pred(PredEntry *pp, Atom *pat, UInt *parity, yamop *codeptr) {
static Int static Int
PredForCode(yamop *codeptr, Atom *pat, UInt *parity, Term *pmodule) { PredForCode(yamop *codeptr, Atom *pat, UInt *parity, Term *pmodule) {
Int found = 0; Int found = 0;
Int i_table, idb_i = 0; Int i_table;
/* should we allow the user to see hidden predicates? */ /* should we allow the user to see hidden predicates? */
for (i_table = 0; i_table < NoOfModules; i_table++) { for (i_table = 0; i_table < NoOfModules; i_table++) {
PredEntry *pp; PredEntry *pp;
if (ModuleName[i_table] == IDB_MODULE) {
idb_i = i_table;
/* do IDB at the very end */
continue;
}
restart: restart:
pp = ModulePred[i_table]; pp = ModulePred[i_table];
while (pp != NULL) { while (pp != NULL) {
@ -2822,12 +2820,6 @@ PredForCode(yamop *codeptr, Atom *pat, UInt *parity, Term *pmodule) {
} }
pp = pp->NextPredOfModule; pp = pp->NextPredOfModule;
} }
if (!i_table) {
i_table = idb_i;
goto restart;
} else if (i_table == idb_i) {
return 0;
}
} }
return(0); return(0);
} }

2
C/grow.c
View File

@ -953,7 +953,7 @@ execute_growstack(long size0, int from_trail)
return FALSE; return FALSE;
} }
YAPEnterCriticalSection(); YAPEnterCriticalSection();
GDiff = DelayDiff = size-size0; GDiff = DelayDiff = size;
} else { } else {
YAPEnterCriticalSection(); YAPEnterCriticalSection();
if (Yap_GlobalBase != old_Yap_GlobalBase) { if (Yap_GlobalBase != old_Yap_GlobalBase) {