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

more small fixes (thanks to Markis Triska)

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1953 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2007-10-11 14:25:09 +00:00
parent 225b5e84f6
commit 1656d383d5
3 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/dbase.c
View File

@ -2619,7 +2619,7 @@ new_lu_int_key(Int key)
UInt hash_key = (CELL)key % INT_KEYS_SIZE;
PredEntry *p;
Prop p0;
Functor fe;
Atom ae;
if (INT_LU_KEYS == NULL) {
init_int_lu_keys();
@ -2630,9 +2630,9 @@ new_lu_int_key(Int key)
return NULL;
}
}
fe = (Functor)Yap_FullLookupAtom("$integer");
ae = Yap_FullLookupAtom("$integer");
WRITE_LOCK(fe->FRWLock);
p0 = Yap_NewPredPropByAtom(fe,IDB_MODULE);
p0 = Yap_NewPredPropByAtom(ae,IDB_MODULE);
p = RepPredProp(p0);
p->NextOfPE = INT_LU_KEYS[hash_key];
p->src.IndxId = key;

2
C/heapgc.c
View File

@ -3065,8 +3065,6 @@ compact_heap(void)
, &depfr
#endif
);
if (GcCalls==355)
fprintf(stderr,"Start=%p,%p %d\n",H-1,H0,H-H0);
for (current = H - 1; current >= start_from; current--) {
if (MARKED_PTR(current)) {
CELL ccell = UNMARK_CELL(*current);

2
C/utilpreds.c
View File

@ -212,7 +212,7 @@ copy_complex_term(CELL *pt0, CELL *pt0_end, int share, int newattvs, CELL *ptf,
*ptf++ = (CELL) ptd0;
} else {
#if COROUTINING
if (IsAttachedTerm((CELL)ptd0)) {
if (newattvs && IsAttachedTerm((CELL)ptd0)) {
/* if unbound, call the standard copy term routine */
struct cp_frame *bp[1];