* 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

diff --git a/src/ChangeLog b/src/ChangeLog
index f0a2e29bfee4d66518b1772e6ad8b0108ba148af..bdc58ad4639bf678e06673c5a100d769ff8f8142 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,7 +1,15 @@
+2007-11-16  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * 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
+
 2007-11-15  Andreas Schwab  <schwab@suse.de>
 
-       * editfns.c (Fformat): Correctly format EMACS_INT values.  Also
-       take precision into account when formatting an integer.
+       * editfns.c (Fformat): Correctly format EMACS_INT values.
+       Also take precision into account when formatting an integer.
 
        * keyboard.c (Fevent_symbol_parse_modifiers): Fix declaration.
 

diff --git a/src/alloc.c b/src/alloc.c
index 12b7ac5e0bfb05a323d9c8cddf6442b6da74e5b2..52565255a1d3a959f19de04dd954a845f130db8a 100644 (file)
--- 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)

diff --git a/src/lisp.h b/src/lisp.h
index 89c26b4f1f90ed11f829dfa175731f8601778e29..0d351e92895055aba3e0a2feca5269c6c1000734 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -348,7 +348,8 @@ enum pvec_type
   PVEC_BUFFER = 0x20000,
   PVEC_HASH_TABLE = 0x40000,
   PVEC_TERMINAL = 0x80000,
-  PVEC_TYPE_MASK = 0xffe00
+  PVEC_OTHER = 0x100000,
+  PVEC_TYPE_MASK = 0x1ffe00
 
 #if 0 /* This is used to make the value of PSEUDOVECTOR_FLAG available to
         GDB.  It doesn't work on OS Alpha.  Moved to a variable in
@@ -2606,6 +2607,11 @@ EXFUN (Fmake_char_table, 2);
 extern Lisp_Object make_sub_char_table P_ ((Lisp_Object));
 extern Lisp_Object Qchar_table_extra_slots;
 extern struct Lisp_Vector *allocate_vector P_ ((EMACS_INT));
+extern struct Lisp_Vector *allocate_pseudovector P_ ((int memlen, int lisplen, EMACS_INT tag));
+#define ALLOCATE_PSEUDOVECTOR(typ,field,tag)                           \
+  ((typ*)                                                              \
+   allocate_pseudovector                                               \
+       (VECSIZE (typ), PSEUDOVECSIZE (typ, field), tag))
 extern struct Lisp_Vector *allocate_other_vector P_ ((EMACS_INT));
 extern struct Lisp_Hash_Table *allocate_hash_table P_ ((void));
 extern struct window *allocate_window P_ ((void));