miscellaneous fixes

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@556 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-07-17 20:25:30 +00:00
parent e476bc0abc
commit c27b23f3a5
12 changed files with 531 additions and 143 deletions
--- a/C/dbase.c
+++ b/C/dbase.c
@@ -2065,7 +2065,9 @@ GetDBTerm(DBRef DBSP)
 #endif
 #ifdef COROUTINING
    if (DBSP->attachments != 0L)  {
+      *--ASP = (CELL)HOld;
      copy_attachments((CELL *)AdjustIDBPtr(DBSP->attachments,(CELL)(HOld-1)));
+      HOld = CellPtr(*ASP++);
    }
 #endif
    return (AdjustIDBPtr((Term)(DBSP->Entry),Unsigned(HOld)-sizeof(CELL)));