fix restore of EX
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1382 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
4164e56aa7
commit
47a784f97c
2
C/save.c
2
C/save.c
@ -992,6 +992,8 @@ restore_regs(int flag)
|
|||||||
HB = PtoLocAdjust(HB);
|
HB = PtoLocAdjust(HB);
|
||||||
YENV = PtoLocAdjust(YENV);
|
YENV = PtoLocAdjust(YENV);
|
||||||
S = PtoGloAdjust(S);
|
S = PtoGloAdjust(S);
|
||||||
|
if (EX)
|
||||||
|
EX = AbsAppl(PtoGloAdjust(RepAppl(EX)));
|
||||||
#ifdef COROUTINING
|
#ifdef COROUTINING
|
||||||
DelayedVars = AbsAppl(PtoGloAdjust(RepAppl(DelayedVars)));
|
DelayedVars = AbsAppl(PtoGloAdjust(RepAppl(DelayedVars)));
|
||||||
#ifdef MULTI_ASSIGNMENT_VARIABLES
|
#ifdef MULTI_ASSIGNMENT_VARIABLES
|
||||||
|
Reference in New Issue
Block a user