Mercurial > hg > xemacs-beta

comparison src/opaque.h @ 5120:d1247f3cc363 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
latest work on lisp-object workspace; more changes eliminating LCRECORD in place of LISP_OBJECT; now compiles and runs.
author Ben Wing <ben@xemacs.org>
date Mon, 28 Dec 2009 01:15:52 -0600
parents e0db3c197671
children a9c41067dd88
comparison
equal deleted inserted replaced
5119:d877c14318b3 5120:d1247f3cc363
26 #ifndef INCLUDED_opaque_h_ 26 #ifndef INCLUDED_opaque_h_
27 #define INCLUDED_opaque_h_ 27 #define INCLUDED_opaque_h_
28 28
29 typedef struct Lisp_Opaque 29 typedef struct Lisp_Opaque
30 { 30 {
31 struct LCRECORD_HEADER header; 31 LISP_OBJECT_HEADER header;
32 Bytecount size; 32 Bytecount size;
33 max_align_t data[1]; 33 max_align_t data[1];
34 } Lisp_Opaque; 34 } Lisp_Opaque;
35 35
36 DECLARE_LISP_OBJECT (opaque, Lisp_Opaque); 36 DECLARE_LISP_OBJECT (opaque, Lisp_Opaque);
52 52
53 Lisp_Object make_opaque (const void *data, Bytecount size); 53 Lisp_Object make_opaque (const void *data, Bytecount size);
54 54
55 typedef struct Lisp_Opaque_Ptr 55 typedef struct Lisp_Opaque_Ptr
56 { 56 {
57 struct LCRECORD_HEADER header; 57 LISP_OBJECT_HEADER header;
58 void *ptr; 58 void *ptr;
59 } Lisp_Opaque_Ptr; 59 } Lisp_Opaque_Ptr;
60 60
61 DECLARE_LISP_OBJECT (opaque_ptr, Lisp_Opaque_Ptr); 61 DECLARE_LISP_OBJECT (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)