improve threads support

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@976 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-02-11 01:20:56 +00:00
parent 31b6bedf67
commit acbf57f59d
12 changed files with 227 additions and 103 deletions
--- a/C/index.c
+++ b/C/index.c
@@ -6556,10 +6556,12 @@ Yap_FollowIndexingCode(PredEntry *ap, yamop *ipc, Term t1, Term tb, Term tr, yam
    case _unlock_lu:
      ipc = NEXTOP(ipc,e);
      break;
-#if THREADS
    case _thread_local:
-      break;
+#if THREADS
+      ap = Yap_GetThreadPred(ap);
+      ipc = ap->CodeOfPred;
 #endif
+      break;
    case _index_pred:
    case _spy_pred:
      Yap_IPred(ap);