diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-11-16 20:36:34 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-11-16 20:36:34 +0000 |
| commit | 30f95089ed1c8b84dd111fc5edf07b8de07401b2 (patch) | |
| tree | 51c9396421f9f5d06f781b792189681df4aac8e1 /src/alloc.c | |
| parent | de8ebf6226a1948e9df250abd9a42b4ccff2a5c7 (diff) | |
| download | emacs-30f95089ed1c8b84dd111fc5edf07b8de07401b2.tar.gz | |
* alloc.c (ALLOCATE_PSEUDOVECTOR): Move to lisp.h.
(allocate_pseudovector): Make non-static.
* lisp.h (enum pvec_type): New tag PVEC_OTHER.
(allocate_pseudovector): Declare.
(ALLOCATE_PSEUDOVECTOR): Move from alloc.c
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/alloc.c b/src/alloc.c index 12b7ac5e0bf..52565255a1d 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -2967,7 +2967,7 @@ allocate_vector (nslots) /* Allocate other vector-like structures. */ -static struct Lisp_Vector * +struct Lisp_Vector * allocate_pseudovector (memlen, lisplen, tag) int memlen, lisplen; EMACS_INT tag; @@ -2983,10 +2983,6 @@ allocate_pseudovector (memlen, lisplen, tag) XSETPVECTYPE (v, tag); /* Add the appropriate tag. */ return v; } -#define ALLOCATE_PSEUDOVECTOR(typ,field,tag) \ - ((typ*) \ - allocate_pseudovector \ - (VECSIZE (typ), PSEUDOVECSIZE (typ, field), tag)) struct Lisp_Hash_Table * allocate_hash_table (void) |