fix restore of EX

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1382 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2005-08-23 21:28:22 +00:00 · 2005-08-23 21:28:22 +00:00 · 47a784f97c
parent 4164e56aa7
commit 47a784f97c
1 changed files with 2 additions and 0 deletions
--- a/C/save.c
+++ b/C/save.c
@ -992,6 +992,8 @@ restore_regs(int flag)
    HB = PtoLocAdjust(HB);
    YENV = PtoLocAdjust(YENV);
    S = PtoGloAdjust(S);
+    if (EX)
+      EX = AbsAppl(PtoGloAdjust(RepAppl(EX)));
 #ifdef COROUTINING
    DelayedVars = AbsAppl(PtoGloAdjust(RepAppl(DelayedVars)));
 #ifdef MULTI_ASSIGNMENT_VARIABLES