* lisp.h (struct vectorlike_header, struct Lisp_Subr): Signed sizes.

Use EMACS_INT, not EMACS_UINT, for sizes.  The code works equally
well either way, and we prefer signed to unsigned.

diff --git a/src/ChangeLog b/src/ChangeLog
index 9ad7da46ecff7ed8c59b11dfc1e433db6d299cef..e4702b4316b4eefb6c6ccf37201a7d5fd8131ea6 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 2011-07-05  Paul Eggert  <eggert@cs.ucla.edu>
 
+       * lisp.h (struct vectorlike_header, struct Lisp_Subr):  Signed sizes.
+       Use EMACS_INT, not EMACS_UINT, for sizes.  The code works equally
+       well either way, and we prefer signed to unsigned.
+
        Random fixes.  E.g., (random) never returned negative values.
        * fns.c (Frandom): Use GET_EMACS_TIME for random seed, and add the
        subseconds part to the entropy, as that's a bit more random.

diff --git a/src/lisp.h b/src/lisp.h
index 762d34abb9c81562aaddd3afafd5772462aa3bac..2835302947f43cc8e5b6992f698281cc35c7607a 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -833,7 +833,7 @@ struct Lisp_String
    <http://debbugs.gnu.org/cgi/bugreport.cgi?bug=8546>.  */
 struct vectorlike_header
   {
-    EMACS_UINT size;
+    EMACS_INT size;
 
     /* Pointer to the next vector-like object.  It is generally a buffer or a
        Lisp_Vector alias, so for convenience it is a union instead of a
@@ -1028,7 +1028,7 @@ struct Lisp_Bool_Vector
 
 struct Lisp_Subr
   {
-    EMACS_UINT size;
+    EMACS_INT size;
     union {
       Lisp_Object (*a0) (void);
       Lisp_Object (*a1) (Lisp_Object);