diff options
author | Lars Brinkhoff <lars@nocrew.org> | 2017-04-03 08:42:18 +0200 |
---|---|---|
committer | Lars Brinkhoff <lars@nocrew.org> | 2017-04-10 08:32:23 +0200 |
commit | c9b173eff5154cfd2d7567cdf400e48c88fd51d2 (patch) | |
tree | e87ce1ccc69052906f8713f4720d9578be6e5534 /src/eval.c | |
parent | 0fb52dcc45742af58a081bd6ca27b70f6a6a1899 (diff) | |
download | emacs-scratch/pvsize.tar.gz |
Please revew: PVSIZE, pseudovector size.scratch/pvsize
Diffstat (limited to 'src/eval.c')
-rw-r--r-- | src/eval.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/eval.c b/src/eval.c index 16d1cf810ea..af0912fd14f 100644 --- a/src/eval.c +++ b/src/eval.c @@ -1881,8 +1881,7 @@ then strings and vectors are not accepted. */) have an element whose index is COMPILED_INTERACTIVE, which is where the interactive spec is stored. */ else if (COMPILEDP (fun)) - return ((ASIZE (fun) & PSEUDOVECTOR_SIZE_MASK) > COMPILED_INTERACTIVE - ? Qt : if_prop); + return (PVSIZE (fun) > COMPILED_INTERACTIVE ? Qt : if_prop); /* Strings and vectors are keyboard macros. */ if (STRINGP (fun) || VECTORP (fun)) @@ -2922,7 +2921,7 @@ funcall_lambda (Lisp_Object fun, ptrdiff_t nargs, } else if (COMPILEDP (fun)) { - ptrdiff_t size = ASIZE (fun) & PSEUDOVECTOR_SIZE_MASK; + ptrdiff_t size = PVSIZE (fun); if (size <= COMPILED_STACK_DEPTH) xsignal1 (Qinvalid_function, fun); syms_left = AREF (fun, COMPILED_ARGLIST); @@ -3103,7 +3102,7 @@ lambda_arity (Lisp_Object fun) } else if (COMPILEDP (fun)) { - ptrdiff_t size = ASIZE (fun) & PSEUDOVECTOR_SIZE_MASK; + ptrdiff_t size = PVSIZE (fun); if (size <= COMPILED_STACK_DEPTH) xsignal1 (Qinvalid_function, fun); syms_left = AREF (fun, COMPILED_ARGLIST); @@ -3148,7 +3147,7 @@ DEFUN ("fetch-bytecode", Ffetch_bytecode, Sfetch_bytecode, if (COMPILEDP (object)) { - ptrdiff_t size = ASIZE (object) & PSEUDOVECTOR_SIZE_MASK; + ptrdiff_t size = PVSIZE (object); if (size <= COMPILED_STACK_DEPTH) xsignal1 (Qinvalid_function, object); if (CONSP (AREF (object, COMPILED_BYTECODE))) |