Mercurial > emacs
changeset 69869:89bc86c44d7c
(OFFSETOF, PSEUDOVECSIZE): New macros.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 08 Apr 2006 14:15:04 +0000 |
| parents | 5ae8bd3108d4 |
| children | bc9116711ea3 |
| files | src/lisp.h |
| diffstat | 1 files changed, 14 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lisp.h Sat Apr 08 12:27:13 2006 +0000 +++ b/src/lisp.h Sat Apr 08 14:15:04 2006 +0000 @@ -702,6 +702,13 @@ unsigned char *data; }; +#ifdef offsetof +#define OFFSETOF(type,field) offsetof(type,field) +#else +#define OFFSETOF(type,field) \ + ((int)((char*)&((type*)0)->field - (char*)0)) +#endif + /* If a struct is made to look like a vector, this macro returns the length of the shortest vector that would hold that struct. */ #define VECSIZE(type) ((sizeof (type) - (sizeof (struct Lisp_Vector) \ @@ -709,6 +716,13 @@ + sizeof(Lisp_Object) - 1) /* round up */ \ / sizeof (Lisp_Object)) +/* Like VECSIZE, but used when the pseudo-vector has non-Lisp_Object fields + at the end and we need to compute the number of Lisp_Object fields (the + ones that the GC needs to trace). */ +#define PSEUDOVECSIZE(type, nonlispfield) \ + ((offsetof(type, nonlispfield) - offsetof(struct Lisp_Vector, contents[0])) \ + / sizeof (Lisp_Object)) + struct Lisp_Vector { EMACS_INT size;