From 47a784f97c11a1aa809fadd50b05bf6dc7a17dc2 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 23 Aug 2005 21:28:22 +0000
Subject: [PATCH] fix restore of EX

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

diff --git a/C/save.c b/C/save.c
index 516eb88db..1c4a60c21 100644
--- 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