Mercurial > emacs

diff src/callint.c @ 10343:daaf64864c1c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcall_interactively): Use & PSEUDOVECTOR_SIZE_MASK on `size' field of compiled byte-code object.
author Roland McGrath <roland@gnu.org>
date Thu, 05 Jan 1995 07:06:19 +0000
parents 89cf458ed188
children 9952a5ab70d1
line wrap: on
line diff
--- a/src/callint.c	Thu Jan 05 07:05:16 1995 +0000
+++ b/src/callint.c	Thu Jan 05 07:06:19 1995 +0000
@@ -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 @@
     }
   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];
     }