fix locking for YapOr

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@173 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2001-10-30 22:13:18 +00:00
parent a543874856
commit 418fb0680a
10 changed files with 13 additions and 16 deletions
--- a/C/c_interface.c
+++ b/C/c_interface.c
@@ -677,7 +677,7 @@ YapInit(yap_init_args *yap_init)
    InitYaamRegs();
 #endif
    /* slaves, waiting for work */
-    CurrentModule = 1;
+    *CurrentModulePtr = MkIntTerm(1);
    P = GETWORK_FIRST_TIME;
    exec_absmi(FALSE);
    abort_optyap("abstract machine unexpected exit");