fix ^c abort for PCs: registers were not being reset properly.

fix error message in abort. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@628 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-10-08 14:32:42 +00:00
parent bfbc9c9dfc
commit 935665ec92
4 changed files with 11 additions and 6 deletions
--- a/C/exec.c
+++ b/C/exec.c
@@ -1659,6 +1659,9 @@ JumpToEnv(Term t) {
    /* uncaught throw */
    if (B == NULL) {
      B = B0;
+#if PUSH_REGS
+      restore_absmi_regs(&standard_regs);
+#endif
      siglongjmp(RestartEnv,1);
    }
    /* is it a continuation? */