From: Roland McGrath <roland@gnu.org>
Date: Thu, 5 Jan 1995 07:06:19 +0000 (+0000)
Subject: (Fcall_interactively): Use & PSEUDOVECTOR_SIZE_MASK on `size' field of
X-Git-Tag: emacs-19.34~5513
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e87700b1e6a90e2c0ad43585c823de6c6724fe9;p=emacs.git

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

diff --git a/src/callint.c b/src/callint.c
index d8e48752b76..f01db7c5755 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -1,5 +1,5 @@
 /* Call a Lisp function interactively.
-   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.
 
@@ -229,7 +229,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
     }
   else if (COMPILEDP (fun))
     {
-      if (XVECTOR (fun)->size <= COMPILED_INTERACTIVE)
+      if (XVECTOR (fun)->size & PSEUDOVECTOR_SIZE_MASK <= COMPILED_INTERACTIVE)
 	goto lose;
       specs = XVECTOR (fun)->contents[COMPILED_INTERACTIVE];
     }