scheme48write-barrier-bibop.h 614 B

1234567891011121314151617181920212223242526272829
  1. /* Copyright (c) 1993-2007 by Richard Kelsey and Jonathan Rees.
  2. See file COPYING. */
  3. #ifdef __COMPILING_SCHEME48_ITSELF__
  4. /* The VM has only a few occurrences, which we want to inline. */
  5. #include "area_roots.h"
  6. #define S48_WRITE_BARRIER(stob, address, value) \
  7. s48_write_barrier_inline((stob), (address), (value))
  8. #else
  9. /*
  10. * For external code, the inlined version may be too hefty. Use the
  11. * separate version here.
  12. */
  13. extern void s48_write_barrier(long stob, char* address, long value);
  14. #define S48_WRITE_BARRIER(stob, address, value) \
  15. s48_write_barrier((stob), (address), (value))
  16. #endif