Mercurial > emacs

diff src/alloc.c @ 86160:1ede747999c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 16 Nov 2007 20:36:34 +0000
parents 01258ecfc38e
children d28f1d2b83d5
line wrap: on
line diff
--- a/src/alloc.c	Fri Nov 16 18:50:35 2007 +0000
+++ b/src/alloc.c	Fri Nov 16 20:36:34 2007 +0000
@@ -2967,7 +2967,7 @@
 
 /* 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 @@
   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)