#ifndef INCLUDED_opaque_h_
#define INCLUDED_opaque_h_
-typedef union
-{
- struct { Lisp_Object obj; } obj;
- struct { void *p; } p;
- struct { double d; } d;
-} max_align_t;
-
typedef struct Lisp_Opaque
{
struct lcrecord_header header;
#define OPAQUE_SIZE(op) ((op)->size)
#define OPAQUE_DATA(op) ((void *) ((op)->data))
-#define OPAQUE_MARKFUN(op) ((op)->markfun)
#define XOPAQUE_SIZE(op) OPAQUE_SIZE (XOPAQUE (op))
#define XOPAQUE_DATA(op) OPAQUE_DATA (XOPAQUE (op))
-#define XOPAQUE_MARKFUN(op) OPAQUE_MARKFUN (XOPAQUE (op))
Lisp_Object make_opaque (const void *data, size_t size);