Mercurial > hg > xemacs-beta
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_ */ |