fix overflow when copying terms with attributes

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@430 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-04-06 03:54:18 +00:00
parent 8d579bb35d
commit bd654f1e18
4 changed files with 29 additions and 30 deletions
--- a/C/exec.c
+++ b/C/exec.c
@@ -1224,7 +1224,7 @@ p_restore_regs2(void)
  if (pt0 > B) {
    /* Wow, we're gonna cut!!! */
 #ifdef YAPOR
-    CUT_prune_to((choiceptr) d0);
+    CUT_prune_to(pt0);
 #else
    B = pt0;
 #endif /* YAPOR */