more fixes for threads

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1000 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-02-20 18:56:07 +00:00
parent 0c1ed177f6
commit d81bcb58e3
8 changed files with 43 additions and 11 deletions
--- a/C/exec.c
+++ b/C/exec.c
@@ -1162,6 +1162,9 @@ do_goal(yamop *CodeAdr, int arity, CELL *pt, int top)
 #endif /* DEPTH_LIMIT */
  YENV = ASP = (CELL *)B;
  HB = H;
+#if defined(YAPOR) || defined(THREADS)
+  WPP = NULL;
+#endif
  YENV[E_CB] = Unsigned (B);
  P = (yamop *) CodeAdr;
  CP = YESCODE;