From: Roland McGrath <roland@gnu.org>
Date: Thu, 5 Jan 1995 07:11:54 +0000 (+0000)
Subject: (store_function_docstring, Fdocumentation): Use & PSEUDOVECTOR_SIZE_MASK on
X-Git-Tag: emacs-19.34~5512
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=610f41b7515faeb775afe441b65767066839ac29;p=emacs.git

(store_function_docstring, Fdocumentation): Use & PSEUDOVECTOR_SIZE_MASK on
`size' field of compiled byte-code object.
---

diff --git a/src/doc.c b/src/doc.c
index d401fe73305..6c998636a7b 100644
--- a/src/doc.c
+++ b/src/doc.c
@@ -1,11 +1,11 @@
 /* Record indices of function doc strings stored in a file.
-   Copyright (C) 1985, 1986, 1993, 1994 Free Software Foundation, Inc.
+   Copyright (C) 1985, 1986, 1993, 1994, 1995 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
 GNU Emacs is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 1, or (at your option)
+the Free Software Foundation; either version 2, or (at your option)
 any later version.
 
 GNU Emacs is distributed in the hope that it will be useful,
@@ -279,7 +279,7 @@ string is passed through `substitute-command-keys'.")
     }
   else if (COMPILEDP (fun))
     {
-      if (XVECTOR (fun)->size <= COMPILED_DOC_STRING)
+      if (XVECTOR (fun)->size & PSEUDOVECTOR_SIZE_MASK <= COMPILED_DOC_STRING)
 	return Qnil;
       tem = XVECTOR (fun)->contents[COMPILED_DOC_STRING];
       if (STRINGP (tem))
@@ -394,7 +394,7 @@ store_function_docstring (fun, offset)
     {
       /* This bytecode object must have a slot for the
 	 docstring, since we've found a docstring for it.  */
-      if (XVECTOR (fun)->size > COMPILED_DOC_STRING)
+      if (XVECTOR (fun)->size & PSEUDOVECTOR_SIZE_MASK > COMPILED_DOC_STRING)
 	XSETFASTINT (XVECTOR (fun)->contents[COMPILED_DOC_STRING], offset);
     }
 }