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

bug in indexing code

Browse Source 
fix warning messages for write.c


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1626 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2006-05-02 16:39:06 +00:00
parent 8a7745bff6
commit 9bb06c4c7e
3 changed files with 15 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
C/write.c
View File

@@ -147,12 +147,10 @@ wrputref(CODEADDR ref, int Quote_illegal, wrf writech) /* writes a data base r
putAtom(AtomDBRef, Quote_illegal, writech);
#if SHORT_INTS
sprintf(s, "(0x%p,0)", ref);
#else
#ifdef linux
#elif __linux__
sprintf(s, "(%p,0)", ref);
#else
sprintf(s, "(0x%p,0)", ref);
#endif
#endif
wrputs(s, writech);
lastw = alphanum;
@@ -456,8 +454,8 @@ writeTerm(Term t, int p, int depth, int rinfixarg, struct write_globs *wglb)
MP_INT *big = Yap_BigIntOfTerm(t);
char *s = (char *)TR;
if (s+2+mpz_sizeinbase(big, 10) >= Yap_TrailTop) {
s = H;
if (s+2+mpz_sizeinbase(big, 10) >= ASP) {
s = (char *)H;
if (s+2+mpz_sizeinbase(big, 10) >= (char *)ASP) {
return;
}
}