Commit 7e773529 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(PSEUDOVECSIZE): Fix last change.

parent 6bfd98e7
2006-04-08 Eli Zaretskii <eliz@gnu.org>
* lisp.h (PSEUDOVECSIZE): Fix last change.
2006-04-08 Stefan Monnier <monnier@iro.umontreal.ca>
 
* process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
......
......@@ -713,6 +713,13 @@ struct Lisp_String
((int)((char*)&((type*)0)->field - (char*)0))
#endif
struct Lisp_Vector
{
EMACS_INT size;
struct Lisp_Vector *next;
Lisp_Object contents[1];
};
/* 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) \
......@@ -724,16 +731,9 @@ struct Lisp_String
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])) \
((OFFSETOF(type, nonlispfield) - OFFSETOF(struct Lisp_Vector, contents[0])) \
/ sizeof (Lisp_Object))
struct Lisp_Vector
{
EMACS_INT size;
struct Lisp_Vector *next;
Lisp_Object contents[1];
};
/* A char table is a kind of vectorlike, with contents are like a
vector but with a few other slots. For some purposes, it makes
sense to handle a chartable with type struct Lisp_Vector. An
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment