comparison src/opaque.h @ 1650:34abfb24e891

[xemacs-hg @ 2003-08-28 15:44:04 by james] Fix the C++ build, with many module-specific fixes.
author james
date Thu, 28 Aug 2003 15:44:30 +0000
parents 64eaceca611d
children 6fa9919a9a0b
comparison
equal deleted inserted replaced
1649:9afdad50eaf7 1650:34abfb24e891
61 DECLARE_LRECORD (opaque_ptr, Lisp_Opaque_Ptr); 61 DECLARE_LRECORD (opaque_ptr, Lisp_Opaque_Ptr);
62 #define XOPAQUE_PTR(x) XRECORD (x, opaque_ptr, Lisp_Opaque_Ptr) 62 #define XOPAQUE_PTR(x) XRECORD (x, opaque_ptr, Lisp_Opaque_Ptr)
63 #define wrap_opaque_ptr(p) wrap_record (p, opaque_ptr) 63 #define wrap_opaque_ptr(p) wrap_record (p, opaque_ptr)
64 #define OPAQUE_PTRP(x) RECORDP (x, opaque_ptr) 64 #define OPAQUE_PTRP(x) RECORDP (x, opaque_ptr)
65 65
66 MODULE_API Lisp_Object make_opaque_ptr (void *val); 66 EXTERN_C MODULE_API Lisp_Object make_opaque_ptr (void *val);
67 MODULE_API void free_opaque_ptr (Lisp_Object ptr); 67 EXTERN_C MODULE_API void free_opaque_ptr (Lisp_Object ptr);
68 68
69 #define get_opaque_ptr(op) (XOPAQUE_PTR (op)->ptr) 69 #define get_opaque_ptr(op) (XOPAQUE_PTR (op)->ptr)
70 #define set_opaque_ptr(op, ptr_) (XOPAQUE_PTR (op)->ptr = (ptr_)) 70 #define set_opaque_ptr(op, ptr_) (XOPAQUE_PTR (op)->ptr = (ptr_))
71 71
72 #endif /* INCLUDED_opaque_h_ */ 72 #endif /* INCLUDED_opaque_h_ */