mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-09 15:10:29 +02:00
12 lines
376 B
C
12 lines
376 B
C
#ifndef CONSERVATIVE_ROOTS_API_H
|
|
#define CONSERVATIVE_ROOTS_API_H
|
|
|
|
#include "conservative-roots-types.h"
|
|
|
|
#define HANDLE_TO(T) union { T* v; struct handle handle; }
|
|
#define HANDLE_REF(h) h.v
|
|
#define HANDLE_SET(h,val) do { h.v = val; } while (0)
|
|
#define PUSH_HANDLE(cx, h) do { (void) &h; } while (0)
|
|
#define POP_HANDLE(cx) do { } while (0)
|
|
|
|
#endif // CONSERVATIVE_ROOTS_API_H
|