Commit 1ffcc3b1 authored by Dave Love's avatar Dave Love

(Vbyte_boolean_vars): New variable.

(defvar_bool, syms_of_lread): Use it.
parent 751d474c
...@@ -127,6 +127,9 @@ static int load_convert_to_unibyte; ...@@ -127,6 +127,9 @@ static int load_convert_to_unibyte;
compiled) instead of readevalloop. */ compiled) instead of readevalloop. */
Lisp_Object Vload_source_file_function; Lisp_Object Vload_source_file_function;
/* List of all DEFVAR_BOOL variables. Used by the byte optimizer. */
Lisp_Object Vbyte_boolean_vars;
/* List of descriptors now open for Fload. */ /* List of descriptors now open for Fload. */
static Lisp_Object load_descriptor_list; static Lisp_Object load_descriptor_list;
...@@ -3038,6 +3041,7 @@ defvar_bool (namestring, address) ...@@ -3038,6 +3041,7 @@ defvar_bool (namestring, address)
XMISCTYPE (val) = Lisp_Misc_Boolfwd; XMISCTYPE (val) = Lisp_Misc_Boolfwd;
XBOOLFWD (val)->boolvar = address; XBOOLFWD (val)->boolvar = address;
XSYMBOL (sym)->value = val; XSYMBOL (sym)->value = val;
Vbyte_boolean_vars = Fcons (sym, Vbyte_boolean_vars);
} }
/* Similar but define a variable whose value is the Lisp Object stored /* Similar but define a variable whose value is the Lisp Object stored
...@@ -3421,6 +3425,10 @@ You cannot count on them to still be there!"); ...@@ -3421,6 +3425,10 @@ You cannot count on them to still be there!");
"List of files that were preloaded (when dumping Emacs)."); "List of files that were preloaded (when dumping Emacs).");
Vpreloaded_file_list = Qnil; Vpreloaded_file_list = Qnil;
DEFVAR_LISP ("byte-boolean-vars", &Vbyte_boolean_vars,
"List of all DEFVAR_BOOL variables, used by the byte code optimizer.");
Vbyte_boolean_vars = Qnil;
/* Vsource_directory was initialized in init_lread. */ /* Vsource_directory was initialized in init_lread. */
load_descriptor_list = Qnil; load_descriptor_list = Qnil;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment