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

support trace

Browse Source 
fix for ^c in readline


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@133 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2001-08-08 21:17:27 +00:00
parent 5d57058e8e
commit 8fd1bc92f3
16 changed files with 6442 additions and 2652 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
C/utilpreds.c
View File

@@ -101,7 +101,7 @@ static void copy_complex_term(register CELL *pt0, register CELL *pt0_end, CELL *
pt0_end = ap2 + 1;
ptf = H;
H += 2;
if (H > ENV - CreepFlag) {
if (H > ENV - 2048) {
goto overflow;
}
} else if (IsApplTerm(d0)) {
@@ -148,7 +148,7 @@ static void copy_complex_term(register CELL *pt0, register CELL *pt0_end, CELL *
H[0] = (CELL)f;
ptf = H+1;
H += 1+d0;
if (H > ENV - CreepFlag) {
if (H > ENV - 2048) {
goto overflow;
}
} else {
@@ -368,7 +368,7 @@ static void copy_complex_term_no_delays(register CELL *pt0, register CELL *pt0_e
pt0_end = ap2 + 1;
ptf = H;
H += 2;
if (H > ENV - CreepFlag) {
if (H > ENV - 2048) {
goto overflow;
}
} else if (IsApplTerm(d0)) {
@@ -413,7 +413,7 @@ static void copy_complex_term_no_delays(register CELL *pt0, register CELL *pt0_e
H[0] = (CELL)f;
ptf = H+1;
H += 1+d0;
if (H > ENV - CreepFlag) {
if (H > ENV - 2048) {
goto overflow;
}
} else {