Mercurial > hg > xemacs-beta
diff src/opaque.h @ 442:abe6d1db359e r21-2-36
Import from CVS: tag r21-2-36
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:35:02 +0200 |
parents | 8de8e3f6228a |
children | d7a9135ec789 |
line wrap: on
line diff
--- a/src/opaque.h Mon Aug 13 11:33:40 2007 +0200 +++ b/src/opaque.h Mon Aug 13 11:35:02 2007 +0200 @@ -26,7 +26,8 @@ #ifndef INCLUDED_opaque_h_ #define INCLUDED_opaque_h_ -typedef union { +typedef union +{ struct { Lisp_Object obj; } obj; struct { void *p; } p; struct { double d; } d; @@ -48,8 +49,8 @@ functions should not be doing this. */ /* Alternative DATA arguments to make_opaque() */ -#define OPAQUE_CLEAR ((CONST void *) 0) -#define OPAQUE_UNINIT ((CONST void *) -1) +#define OPAQUE_CLEAR ((const void *) 0) +#define OPAQUE_UNINIT ((const void *) -1) #define OPAQUE_SIZE(op) ((op)->size) #define OPAQUE_DATA(op) ((void *) ((op)->data)) @@ -58,7 +59,7 @@ #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); +Lisp_Object make_opaque (const void *data, size_t size); typedef struct Lisp_Opaque_Ptr {