fix small bug in recorded multi-threaded.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2069 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-01-28 18:21:26 +00:00
parent f1613bf732
commit c567a5aeb1

View File

@ -3483,6 +3483,9 @@ p_recorded(void)
P = cl->ClCode; P = cl->ClCode;
} else { } else {
CP = P; CP = P;
#if defined(YAPOR) || defined(THREADS)
PP = cl->ClPred;
#endif
P = cl->ClCode; P = cl->ClCode;
ENV = YENV; ENV = YENV;
YENV = ASP; YENV = ASP;