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

*** empty log message ***

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1683 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2006-08-05 03:06:31 +00:00
parent 089e864621
commit f69ba78f02
6 changed files with 64 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
C/readutil.c
View File

@@ -120,7 +120,6 @@ p_stream_to_codes(void)
RESET_VARIABLE(h0);
ARG4 = AbsPair(HBASE);
ARG5 = (CELL)h0;
fprintf(stderr,"+ %p-%p=%p\n",HBASE,H,H-HBASE);
if (!Yap_gc(5, ENV, P)) {
Yap_Error(OUT_OF_STACK_ERROR, ARG1, "read_stream_to_codes/3");
return FALSE;
@@ -128,7 +127,6 @@ p_stream_to_codes(void)
/* build a legal term again */
h0 = (CELL *)ARG5;
HBASE = RepPair(ARG4);
fprintf(stderr,"- %p-%p=%d\n",HBASE,h0,h0-HBASE);
}
}
if (H == HBASE)