mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-27 18:30:47 -08:00
Code Issues Projects Releases Wiki Activity

Store libgccjit version into generated code

Browse source 
* src/comp.c (emit_ctxt_code): Add libgccjit version into
	stored optimize qualities.
	(syms_of_comp): Define Qgccjit here.

	* src/w32fns.c (syms_of_w32fns): Move out Qgccjit definition.
This commit is contained in:
Andrea Corallo 2020-05-31 22:26:08 +01:00
parent ce3c1ea83e
commit 2e25eebfbd
2 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/comp.c
View file

@ -2634,8 +2634,10 @@ emit_ctxt_code (void)
{ Fcons (Qcomp_speed,
Fsymbol_value (Qcomp_speed)),
Fcons (Qcomp_debug,
Fsymbol_value (Qcomp_debug)) };
emit_static_object (TEXT_OPTIM_QLY_SYM, Flist (2, opt_qly));
Fsymbol_value (Qcomp_debug)),
Fcons (Qgccjit,
Fcomp_libgccjit_version ()) };
emit_static_object (TEXT_OPTIM_QLY_SYM, Flist (ARRAYELTS (opt_qly), opt_qly));
emit_static_object (TEXT_FDOC_SYM,
CALL1I (comp-ctxt-function-docs, Vcomp_ctxt));
@ -4770,6 +4772,7 @@ syms_of_comp (void)
DEFSYM (Qscratch, "scratch");
DEFSYM (Qlate, "late");
DEFSYM (Qlambda_fixup, "lambda-fixup");
DEFSYM (Qgccjit, "gccjit");
/* To be signaled by the compiler. */
DEFSYM (Qnative_compiler_error, "native-compiler-error");

1
src/w32fns.c
View file

@ -10462,7 +10462,6 @@ syms_of_w32fns (void)
DEFSYM (Qzlib, "zlib");
DEFSYM (Qlcms2, "lcms2");
DEFSYM (Qjson, "json");
DEFSYM (Qgccjit, "gccjit");
Fput (Qundefined_color, Qerror_conditions,
pure_list (Qundefined_color, Qerror));