diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

yapor had gotten broken with recent thread changes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2210 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-04-04 16:11:40 +00:00
parent 32df516386
commit 6da72b2c9f
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
C/absmi.c
View File

@ -10,8 +10,13 @@
* * * *
* File: absmi.c * * File: absmi.c *
* comments: Portable abstract machine interpreter * * comments: Portable abstract machine interpreter *
* Last rev: $Date: 2008-04-03 13:26:37 $,$Author: vsc $ * * Last rev: $Date: 2008-04-04 16:11:40 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.239 2008/04/03 13:26:37 vsc
* protect signal handling with locks for threaded version.
* fix close/1 entry in manual (obs from Nicos).
* fix -f option in chr Makefile.
*
* Revision 1.238 2008/04/03 10:50:23 vsc * Revision 1.238 2008/04/03 10:50:23 vsc
* term_variables could store local variable in global. * term_variables could store local variable in global.
* *
@ -8072,15 +8077,17 @@ Yap_absmi(int inp)
H += 2; H += 2;
{ {
PredEntry *pt0; PredEntry *pt0;
#ifdef THREADS
LOCK(ThreadHandlesLock); LOCK(ThreadHandlesLock);
#endif
pt0 = SpyCode; pt0 = SpyCode;
P_before_spy = PREG; P_before_spy = PREG;
PREG = pt0->CodeOfPred; PREG = pt0->CodeOfPred;
/* for profiler */ /* for profiler */
#ifdef THREADS #ifdef THREADS
pthread_mutex_lock(&(ThreadHandle[worker_id].tlock)); pthread_mutex_lock(&(ThreadHandle[worker_id].tlock));
#endif
UNLOCK(ThreadHandlesLock); UNLOCK(ThreadHandlesLock);
#endif
save_pc(); save_pc();
CACHE_A1(); CACHE_A1();
#ifdef LOW_LEVEL_TRACER #ifdef LOW_LEVEL_TRACER