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

symbol-value +1 test

Browse source
This commit is contained in:
Andrea Corallo 2019-07-13 17:24:44 +02:00 • committed by Andrea Corallo
parent 2e20dca7a0
commit fdbdf3da7f
2 changed files with 13 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -37,6 +37,8 @@
(defconst comp-debug t)
(defvar comp-speed 2)
(defconst comp-passes '(comp-recuparate-lap
comp-limplify)
"Passes to be executed in order.")
@ -268,15 +270,16 @@ VAL is known at compile time."
(comp-pop 1))
('byte-dup
(comp-push-slot-n (comp-sp)))
('byte-symbol-value
(comp-emit-set-call `(call Fsymbol_value ,(comp-slot))))
('byte-varref
(comp-push-call `(call Fsymbol_value ,(make-comp-mvar
:const-vld t
:constant (cadr inst)))))
('byte-varset
(comp-emit `(call set_internal
,(make-comp-mvar
:const-vld t
:constant (cadr inst))
,(make-comp-mvar :const-vld t
:constant (cadr inst))
,(comp-slot))))
('byte-constant
(comp-push-const (cadr inst)))