summaryrefslogtreecommitdiffstats
path: root/gc.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2014-01-10 07:23:56 -0800
committerKaz Kylheku <kaz@kylheku.com>2014-01-10 07:23:56 -0800
commit7649cd2cc9165ad8019d9d33af697927fd2e64b4 (patch)
treec8fc015fea133e53a8ba96557b50887211cc6bd3 /gc.c
parent8817d95ca84e7ce4478a29a82b65632979125980 (diff)
downloadtxr-7649cd2cc9165ad8019d9d33af697927fd2e64b4.tar.gz
txr-7649cd2cc9165ad8019d9d33af697927fd2e64b4.tar.bz2
txr-7649cd2cc9165ad8019d9d33af697927fd2e64b4.zip
* configure: Generate HAVE_VALGRIND as #define-d to 1, rathern
than just fdefined. * gc.c: Use #if HAVE_VALGRIND instaed of #ifdef HAVE_VALGRIND, consistently with other HAVE_* config variables. * lib.c: Likewise. * lib.h: Likewise. * txr.c: Likewise. * txr.h: Likewise.
Diffstat (limited to 'gc.c')
-rw-r--r--gc.c28
1 files changed, 14 insertions, 14 deletions
diff --git a/gc.c b/gc.c
index 33328b9e..fd1658bc 100644
--- a/gc.c
+++ b/gc.c
@@ -33,7 +33,7 @@
#include <wchar.h>
#include <signal.h>
#include "config.h"
-#ifdef HAVE_VALGRIND
+#if HAVE_VALGRIND
#include <valgrind/memcheck.h>
#endif
#include "lib.h"
@@ -62,7 +62,7 @@ typedef struct mach_context {
#define save_context(X) setjmp((X).buf)
int opt_gc_debug;
-#ifdef HAVE_VALGRIND
+#if HAVE_VALGRIND
int opt_vg_debug;
#endif
static val *gc_stack_bottom;
@@ -139,7 +139,7 @@ static void more(void)
heap->next = heap_list;
heap_list = heap;
-#ifdef HAVE_VALGRIND
+#if HAVE_VALGRIND
if (opt_vg_debug)
VALGRIND_MAKE_MEM_NOACCESS(&heap->block, sizeof heap->block);
#endif
@@ -164,12 +164,12 @@ val make_obj(void)
for (tries = 0; tries < 3; tries++) {
if (free_list) {
val ret = free_list;
-#ifdef HAVE_VALGRIND
+#if HAVE_VALGRIND
if (opt_vg_debug)
VALGRIND_MAKE_MEM_DEFINED(free_list, sizeof *free_list);
#endif
free_list = free_list->t.next;
-#ifdef HAVE_VALGRIND
+#if HAVE_VALGRIND
if (opt_vg_debug)
VALGRIND_MAKE_MEM_UNDEFINED(ret, sizeof *ret);
#endif
@@ -359,11 +359,11 @@ static void mark_mem_region(val *low, val *high)
while (low < high) {
val maybe_obj = *low;
-#ifdef HAVE_VALGRIND
+#if HAVE_VALGRIND
VALGRIND_MAKE_MEM_DEFINED(&maybe_obj, sizeof maybe_obj);
#endif
if (in_heap(maybe_obj)) {
-#ifdef HAVE_VALGRIND
+#if HAVE_VALGRIND
if (opt_vg_debug)
VALGRIND_MAKE_MEM_DEFINED(maybe_obj, SIZEOF_PTR);
#endif
@@ -371,7 +371,7 @@ static void mark_mem_region(val *low, val *high)
if ((t & FREE) == 0) {
mark_obj(maybe_obj);
} else {
-#ifdef HAVE_VALGRIND
+#if HAVE_VALGRIND
if (opt_vg_debug)
VALGRIND_MAKE_MEM_NOACCESS(maybe_obj, sizeof *maybe_obj);
#endif
@@ -416,7 +416,7 @@ static void mark(mach_context_t *pmc, val *gc_stack_top)
static int sweep_one(obj_t *block)
{
-#ifdef HAVE_VALGRIND
+#if HAVE_VALGRIND
const int vg_dbg = opt_vg_debug;
#else
const int vg_dbg = 0;
@@ -439,7 +439,7 @@ static int sweep_one(obj_t *block)
}
if (block->t.type & FREE) {
-#ifdef HAVE_VALGRIND
+#if HAVE_VALGRIND
if (vg_dbg)
VALGRIND_MAKE_MEM_NOACCESS(block, sizeof *block);
#endif
@@ -457,13 +457,13 @@ static int sweep_one(obj_t *block)
code which is still using the object will trip on
the freed object before it is recycled. */
if (vg_dbg || opt_gc_debug) {
-#ifdef HAVE_VALGRIND
+#if HAVE_VALGRIND
if (vg_dbg && free_tail != &free_list)
VALGRIND_MAKE_MEM_DEFINED(free_tail, sizeof *free_tail);
#endif
*free_tail = block;
block->t.next = nil;
-#ifdef HAVE_VALGRIND
+#if HAVE_VALGRIND
if (vg_dbg) {
if (free_tail != &free_list)
VALGRIND_MAKE_MEM_NOACCESS(free_tail, sizeof *free_tail);
@@ -483,7 +483,7 @@ static int_ptr_t sweep(void)
{
int_ptr_t free_count = 0;
heap_t *heap;
-#ifdef HAVE_VALGRIND
+#if HAVE_VALGRIND
const int vg_dbg = opt_vg_debug;
#endif
@@ -505,7 +505,7 @@ static int_ptr_t sweep(void)
for (heap = heap_list; heap != 0; heap = heap->next) {
obj_t *block, *end;
-#ifdef HAVE_VALGRIND
+#if HAVE_VALGRIND
if (vg_dbg)
VALGRIND_MAKE_MEM_DEFINED(&heap->block, sizeof heap->block);
#endif