From e6215e807306ebd34c4f52f051ac8e60871cfb0e Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 15 May 2002 03:57:09 +0000
Subject: [PATCH] handle delay overflow while in copy_attachments.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@472 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/dbase.c | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/C/dbase.c b/C/dbase.c
index 1521dfacf..27483b1ab 100644
--- a/C/dbase.c
+++ b/C/dbase.c
@@ -2018,9 +2018,14 @@ static void
 copy_attachments(CELL *ts)
 {
   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]);
-    if (ts[3] == TermNil) return;
-    ts = RepAppl(ts[3])+1;
+    t = *ASP;
+    ASP++;
+    if (t == TermNil) return;
+    ts = RepAppl(t)+1;
   }
 }
 #endif