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

thread_local should be as dynamic in non-thread mode.

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-07-28 23:22:24 +01:00
parent 43ab7fe123
commit 3030247064
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/dbase.c
View File

@ -5386,7 +5386,6 @@ Yap_ReleaseTermFromDB(DBTerm *ref)
static Int static Int
p_install_thread_local(void) p_install_thread_local(void)
{ /* '$is_dynamic'(+P) */ { /* '$is_dynamic'(+P) */
#if THREADS
PredEntry *pe; PredEntry *pe;
Term t = Deref(ARG1); Term t = Deref(ARG1);
Term mod = Deref(ARG2); Term mod = Deref(ARG2);
@ -5418,11 +5417,14 @@ p_install_thread_local(void)
pe->cs.p_code.NOfClauses) { pe->cs.p_code.NOfClauses) {
return FALSE; return FALSE;
} }
#if THREADS
pe->PredFlags |= ThreadLocalPredFlag|LogUpdatePredFlag; pe->PredFlags |= ThreadLocalPredFlag|LogUpdatePredFlag;
pe->OpcodeOfPred = Yap_opcode(_thread_local); pe->OpcodeOfPred = Yap_opcode(_thread_local);
pe->CodeOfPred = (yamop *)&pe->OpcodeOfPred; pe->CodeOfPred = (yamop *)&pe->OpcodeOfPred;
UNLOCK(pe->PELock); #else
pe->PredFlags |= LogUpdatePredFlag;
#endif #endif
UNLOCK(pe->PELock);
return TRUE; return TRUE;
} }