Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
7e773529
Commit
7e773529
authored
Apr 08, 2006
by
Eli Zaretskii
Browse files
(PSEUDOVECSIZE): Fix last change.
parent
6bfd98e7
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
12 additions
and
8 deletions
+12
-8
src/ChangeLog
src/ChangeLog
+4
-0
src/lisp.h
src/lisp.h
+8
-8
No files found.
src/ChangeLog
View file @
7e773529
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',
...
...
src/lisp.h
View file @
7e773529
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment