procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

disable const vect per function

Browse source
This commit is contained in:
Andrea Corallo 2019-08-18 11:06:48 +02:00 • committed by Andrea Corallo
parent 52089993aa
commit 941937d295
2 changed files with 0 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/comp.el
View file

@ -773,9 +773,6 @@ the annotation emission."
(comp-emit-block 'entry)
(comp-emit-annotation (concat "Lisp function: "
(symbol-name (comp-func-symbol-name func))))
(comp-emit `(const-vector ,(concat (comp-func-c-func-name func) "_data_relocs")
,(prin1-to-string (aref (comp-func-byte-func func)
2))))
(if (comp-args-p args)
(cl-loop for i below (comp-args-max args)
do (cl-incf (comp-sp))