mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-22 09:40:38 -07:00
Code Issues Projects Releases Packages Wiki Activity

Remove unneeded locks from GC_get_bytes_since_gc() and related functions.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-08-23 14:30:44 +02:00
parent c1b98706fa
commit 202ff8b393
1 changed files with 5 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

35
src/gc-unstable/misc.c
View file

@ -401,25 +401,15 @@ GC_API size_t GC_CALL GC_size(const void * p)
GC_API size_t GC_CALL GC_get_heap_size(void)
{
size_t value;
DCL_LOCK_STATE;
LOCK();
/* ignore the memory space returned to OS (i.e. count only the */
/* space owned by the garbage collector) */
value = (size_t)(GC_heapsize - GC_unmapped_bytes);
UNLOCK();
return value;
return (size_t)(GC_heapsize - GC_unmapped_bytes);
}
GC_API size_t GC_CALL GC_get_free_bytes(void)
{
size_t value;
DCL_LOCK_STATE;
LOCK();
/* ignore the memory space returned to OS */
value = (size_t)(GC_large_free_bytes - GC_unmapped_bytes);
UNLOCK();
return value;
return (size_t)(GC_large_free_bytes - GC_unmapped_bytes);
}
/* The _inner versions assume the caller holds the allocation lock. */
@ -437,12 +427,7 @@ GC_API size_t GC_CALL GC_get_free_bytes_inner(void)
GC_API size_t GC_CALL GC_get_unmapped_bytes(void)
{
# ifdef USE_MUNMAP
size_t value;
DCL_LOCK_STATE;
LOCK();
value = (size_t)GC_unmapped_bytes;
UNLOCK();
return value;
return (size_t)GC_unmapped_bytes;
# else
return 0;
# endif
@ -450,22 +435,12 @@ GC_API size_t GC_CALL GC_get_unmapped_bytes(void)
GC_API size_t GC_CALL GC_get_bytes_since_gc(void)
{
size_t value;
DCL_LOCK_STATE;
LOCK();
value = GC_bytes_allocd;
UNLOCK();
return value;
return GC_bytes_allocd;
}
GC_API size_t GC_CALL GC_get_total_bytes(void)
{
size_t value;
DCL_LOCK_STATE;
LOCK();
value = GC_bytes_allocd+GC_bytes_allocd_before_gc;
UNLOCK();
return value;
return GC_bytes_allocd+GC_bytes_allocd_before_gc;
}
#ifdef THREADS