Mercurial > emacs
changeset 10344:a6e8525a1a9d
(store_function_docstring, Fdocumentation): Use & PSEUDOVECTOR_SIZE_MASK on
`size' field of compiled byte-code object.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Thu, 05 Jan 1995 07:11:54 +0000 |
| parents | daaf64864c1c |
| children | 9952a5ab70d1 |
| files | src/doc.c |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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); } }