# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 789289914 0
# Node ID a6e8525a1a9d87bb50f95c6fe0460a709829e8ab
# Parent  daaf64864c1c6368afe817c947946d32ed112748
(store_function_docstring, Fdocumentation): Use & PSEUDOVECTOR_SIZE_MASK on
`size' field of compiled byte-code object.

diff -r daaf64864c1c -r a6e8525a1a9d src/doc.c
--- a/src/doc.c	Thu Jan 05 07:06:19 1995 +0000
+++ b/src/doc.c	Thu Jan 05 07:11:54 1995 +0000
@@ -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 @@
     }
   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 @@
     {
       /* 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);
     }
 }