mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-23 04:53:12 -08:00
Code Issues Projects Releases Wiki Activity

add symbol-value

Browse source
This commit is contained in:
Andrea Corallo 2019-05-24 15:00:34 +02:00 • committed by Andrea Corallo
parent bebd14acc1
commit 17807af213
2 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/comp.c
View file

@ -630,8 +630,11 @@ compile_f (const char *f_name, ptrdiff_t bytestr_length,
break;
case Bsymbol_value:
printf("Bsymbol_value\n");
POP1;
res = jit_emit_call ("Fsymbol_value", comp.lisp_obj_type, 1, args);
PUSH (gcc_jit_lvalue_as_rvalue (res));
break;
case Bsymbol_function:
printf("Bsymbol_function\n");
break;

11
test/src/comp-tests.el
View file

@ -96,6 +96,17 @@
(should (= (comp-tests-aref-aset-f) 100)))
(ert-deftest comp-tests-symbol-value ()
"Testing aref and aset."
(defvar comp-tests-var2 3)
(defun comp-tests-symbol-value-f ()
(symbol-value 'comp-tests-var2))
(byte-compile #'comp-tests-symbol-value-f)
(native-compile #'comp-tests-symbol-value-f)
(should (= (comp-tests-symbol-value-f) 3)))
(ert-deftest comp-tests-ffuncall ()
"Testing varset."
(defun comp-tests-ffuncall-callee-f (x y z)