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

use BGL lock for big operations.

Browse Source
This commit is contained in:
Vítor Santos Costa
2014-10-19 01:52:39 +01:00
parent c7d2973c1e
commit a351e1f38f
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
C/grow.c
View File

@@ -1428,12 +1428,12 @@ Yap_locked_growheap(bool fix_code, size_t in_size, void *cip)
bool blob_overflow = (NOfBlobs > NOfBlobsMax);
#ifdef THREADS
LOCK(GLOBAL_ThreadHandlesLock);
LOCK(GLOBAL_BGL);
#endif
// make sure that we cannot have more than a thread life
if (Yap_NOfThreads() > 1) {
#ifdef THREADS
UNLOCK(GLOBAL_ThreadHandlesLock);
UNLOCK(GLOBAL_BGL);
#endif
res = FALSE;
if (NOfAtoms > 2*AtomHashTableSize || blob_overflow) {
@@ -1454,14 +1454,14 @@ Yap_locked_growheap(bool fix_code, size_t in_size, void *cip)
res = growatomtable( PASS_REGS1 );
} else {
#ifdef THREADS
UNLOCK(GLOBAL_ThreadHandlesLock);
UNLOCK(GLOBAL_BGL);
#endif
return TRUE;
}
LeaveGrowMode(GrowHeapMode);
if (res) {
#ifdef THREADS
UNLOCK(GLOBAL_ThreadHandlesLock);
UNLOCK(GLOBAL_BGL);
#endif
return res;
}
@@ -1474,7 +1474,7 @@ Yap_locked_growheap(bool fix_code, size_t in_size, void *cip)
#endif
LeaveGrowMode(GrowHeapMode);
#ifdef THREADS
UNLOCK(GLOBAL_ThreadHandlesLock);
UNLOCK(GLOBAL_BGL);
#endif
return res;
}