scheme48/c/scheme48write-barrier.h

/*
 * Part of Scheme 48 1.9.  See file COPYING for notices and license.
 *
 * Authors: Richard Kelsey, Jonathan Rees, David Frese
 */

#ifdef S48_GC_BIBOP
#ifdef __COMPILING_SCHEME48_ITSELF__

/* The VM has only a few occurrences, which we want to inline. */

#include "area_roots.h"

#define S48_WRITE_BARRIER(stob, address, value) \
  s48_write_barrier_inline((stob), (address), (value))

#else

/*
 * For external code, the inlined version may be too hefty.  Use the
 * separate version here.
 */

extern void s48_write_barrier(long stob, char* address, long value);

#define S48_WRITE_BARRIER(stob, address, value) \
  s48_write_barrier((stob), (address), (value))
#endif

#elif defined(S48_GC_TWOSPACE)
/*
 * No write barrier is needed for the two-space collector;
 */

#define	S48_WRITE_BARRIER(stob, address, value)	((void)0)

#endif