aboutsummaryrefslogtreecommitdiffstats
path: root/src/bytecode.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/bytecode.c')
-rw-r--r--src/bytecode.c32
1 files changed, 16 insertions, 16 deletions
diff --git a/src/bytecode.c b/src/bytecode.c
index f8ecc4f64c0..c356eb3a262 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -412,12 +412,12 @@ unmark_byte_stack ()
412 412
413 413
414DEFUN ("byte-code", Fbyte_code, Sbyte_code, 3, 3, 0, 414DEFUN ("byte-code", Fbyte_code, Sbyte_code, 3, 3, 0,
415 "Function used internally in byte-compiled code.\n\ 415 doc: /* Function used internally in byte-compiled code.
416The first argument, BYTESTR, is a string of byte code;\n\ 416The first argument, BYTESTR, is a string of byte code;
417the second, VECTOR, a vector of constants;\n\ 417the second, VECTOR, a vector of constants;
418the third, MAXDEPTH, the maximum stack depth used in this function.\n\ 418the third, MAXDEPTH, the maximum stack depth used in this function.
419If the third argument is incorrect, Emacs may crash.") 419If the third argument is incorrect, Emacs may crash. */)
420 (bytestr, vector, maxdepth) 420 (bytestr, vector, maxdepth)
421 Lisp_Object bytestr, vector, maxdepth; 421 Lisp_Object bytestr, vector, maxdepth;
422{ 422{
423 int count = specpdl_ptr - specpdl; 423 int count = specpdl_ptr - specpdl;
@@ -1746,18 +1746,18 @@ syms_of_bytecode ()
1746#ifdef BYTE_CODE_METER 1746#ifdef BYTE_CODE_METER
1747 1747
1748 DEFVAR_LISP ("byte-code-meter", &Vbyte_code_meter, 1748 DEFVAR_LISP ("byte-code-meter", &Vbyte_code_meter,
1749 "A vector of vectors which holds a histogram of byte-code usage.\n\ 1749 doc: /* A vector of vectors which holds a histogram of byte-code usage.
1750\(aref (aref byte-code-meter 0) CODE) indicates how many times the byte\n\ 1750\(aref (aref byte-code-meter 0) CODE) indicates how many times the byte
1751opcode CODE has been executed.\n\ 1751opcode CODE has been executed.
1752\(aref (aref byte-code-meter CODE1) CODE2), where CODE1 is not 0,\n\ 1752\(aref (aref byte-code-meter CODE1) CODE2), where CODE1 is not 0,
1753indicates how many times the byte opcodes CODE1 and CODE2 have been\n\ 1753indicates how many times the byte opcodes CODE1 and CODE2 have been
1754executed in succession."); 1754executed in succession. */);
1755 1755
1756 DEFVAR_BOOL ("byte-metering-on", &byte_metering_on, 1756 DEFVAR_BOOL ("byte-metering-on", &byte_metering_on,
1757 "If non-nil, keep profiling information on byte code usage.\n\ 1757 doc: /* If non-nil, keep profiling information on byte code usage.
1758The variable byte-code-meter indicates how often each byte opcode is used.\n\ 1758The variable byte-code-meter indicates how often each byte opcode is used.
1759If a symbol has a property named `byte-code-meter' whose value is an\n\ 1759If a symbol has a property named `byte-code-meter' whose value is an
1760integer, it is incremented each time that symbol's function is called."); 1760integer, it is incremented each time that symbol's function is called. */);
1761 1761
1762 byte_metering_on = 0; 1762 byte_metering_on = 0;
1763 Vbyte_code_meter = Fmake_vector (make_number (256), make_number (0)); 1763 Vbyte_code_meter = Fmake_vector (make_number (256), make_number (0));