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

comparing int with ptr gives an error in HPUX 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@375 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
stasinos 2002-02-26 16:45:11 +00:00
parent c771c14b0f
commit 8896953bec
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
C/alloc.c
View File

@ -12,7 +12,7 @@
* Last rev: *
* mods: *
* comments: allocating space *
* version:$Id: alloc.c,v 1.14 2002-02-26 15:51:54 vsc Exp $ *
* version:$Id: alloc.c,v 1.15 2002-02-26 16:45:11 stasinos Exp $ *
*************************************************************************/
#ifdef SCCS
static char SccsId[] = "%W% %G%";
@ -140,7 +140,7 @@ FreeBlock(BlockHeader *b)
/* sanity check */
sp = &(b->b_size) + (b->b_size & ~InUseFlag);
if (Addr(b) <= 0x90c7a24 && sp >= 0x90c7a24) {
if (Addr(b) <= Addr(0x90c7a24) && sp >= (YAP_SEG_SIZE *)0x90c7a24) {
extern int do_low_level_trace;
fprintf(stderr,"vsc: Here3\n");
}
@ -233,7 +233,8 @@ AllocHeap(unsigned int size)
b->b_size |= InUseFlag;
UNLOCK(GLOBAL_LOCKS_alloc_block);
UNLOCK(FreeBlocksLock);
if (Addr(b) <= 0x90c7a24 && Addr(b)+(size*sizeof(CELL)+sizeof(YAP_SEG_SIZE)) >= 0x90c7a24)
if (Addr(b) <= Addr(0x90c7a24) &&
Addr(b)+(size*sizeof(CELL)+sizeof(YAP_SEG_SIZE)) >= Addr(0x90c7a24))
fprintf(stderr,"vsc: Here1\n");
return (Addr(b) + sizeof(YAP_SEG_SIZE));
}
@ -297,7 +298,8 @@ AllocHeap(unsigned int size)
if (!HEAPTOP_OWNER(worker_id)) {
UNLOCK(HeapTopLock);
}
if (Addr(b) <= 0x90c7a24 && Addr(b)+(size*sizeof(CELL)+sizeof(YAP_SEG_SIZE)) >= 0x90c7a24)
if (Addr(b) <= Addr(0x90c7a24) &&
Addr(b)+(size*sizeof(CELL)+sizeof(YAP_SEG_SIZE)) >= Addr(0x90c7a24))
fprintf(stderr,"vsc: Here2\nn");
return (Addr(b) + sizeof(YAP_SEG_SIZE));
}

4
C/cdmgr.c
View File

@ -1876,12 +1876,12 @@ do_toggle_static_predicates_in_use(int mask)
YP_fprintf(YP_stderr,"ENV %p %s/%d %s\n", env_ptr, RepAtom(NameOfFunctor(pe->FunctorOfPred))->StrOfAE, pe->ArityOfPE, op_names[op]);
else
YP_fprintf(YP_stderr,"ENV %p %s %s\n", env_ptr, RepAtom((Atom)(pe->FunctorOfPred))->StrOfAE, op_names[op]);
if (env_ptr == 0x21d0b24) {
if (env_ptr == (CELL *)0x21d0b24) {
CELL *next_ee = (CELL *)(env_ptr[E_E]);
do {
YP_fprintf(YP_stderr,"looking for parent %p with CP %x value %x\n", next_ee, next_ee[E_CP], EnvPreg(next_ee[E_CP]));
next_ee = (CELL *)(next_ee[E_E]);
} while (next_ee != 0x21d0f28);
} while (next_ee != (CELL *)0x21d0f28);
}
mark_pred(mask, pe);