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

handle delay overflow while in copy_attachments.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@472 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-05-15 03:57:09 +00:00
parent 92fe2d5c9f
commit e6215e8073
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C/dbase.c
View File

@ -2018,9 +2018,14 @@ static void
copy_attachments(CELL *ts) copy_attachments(CELL *ts)
{ {
while (TRUE) { while (TRUE) {
Term t;
/* store away in case there is an overflow */
*--ASP = ts[3];
attas[IntegerOfTerm(ts[2])].term_to_op(ts[1], ts[0]); attas[IntegerOfTerm(ts[2])].term_to_op(ts[1], ts[0]);
if (ts[3] == TermNil) return; t = *ASP;
ts = RepAppl(ts[3])+1; ASP++;
if (t == TermNil) return;
ts = RepAppl(t)+1;
} }
} }
#endif #endif