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

fix locking for YapOr

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@173 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2001-10-30 22:13:18 +00:00
parent a543874856
commit 418fb0680a
10 changed files with 13 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
C/init.c
View File

@@ -722,7 +722,7 @@ InitFlags(void)
yap_flags[SOURCE_MODE_FLAG] = FALSE;
yap_flags[CHARACTER_ESCAPE_FLAG] = ISO_CHARACTER_ESCAPES;
yap_flags[WRITE_QUOTED_STRING_FLAG] = FALSE;
#if defined(YAPOR) || defined(THREADS)
#if (defined(YAPOR) || defined(THREADS)) && VSC_FOR_YAPOR
yap_flags[ALLOW_ASSERTING_STATIC_FLAG] = FALSE;
#else
yap_flags[ALLOW_ASSERTING_STATIC_FLAG] = TRUE;
@@ -809,7 +809,7 @@ InitCodes(void)
heap_regs->clausecode.clause = NIL;
heap_regs->clausecode.func = NIL;
heap_regs->invisiblechain.Entry = 0;
heap_regs->invisiblechain.Entry = NIL;
INIT_RWLOCK(heap_regs->invisiblechain.AERWLock);
heap_regs->consultlow = (consult_obj *)AllocCodeSpace(sizeof(consult_obj)*InitialConsultCapacity);