(Fcall_interactively): Use & PSEUDOVECTOR_SIZE_MASK on `size' field of

compiled byte-code object.

(Fcall_interactively): Use & PSEUDOVECTOR_SIZE_MASK on `size' field of
compiled byte-code object.
4e87700b · Roland McGrath · 96277b2d · 4e87700b
Commit 4e87700b authored Jan 05, 1995 by Roland McGrath
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

src/callint.c src/callint.c +2 -2

No files found.
--- a/src/callint.c
+++ b/src/callint.c
 /* 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];
    }