aboutsummaryrefslogtreecommitdiffstats
path: root/src/bytecode.c
diff options
context:
space:
mode:
authorStefan Monnier2011-02-01 12:09:25 -0500
committerStefan Monnier2011-02-01 12:09:25 -0500
commit8f1d2ef658f95549eb33fe5265f8f11c5129bece (patch)
treeb7cd852a1adb423384532cfe22c31547160b22bc /src/bytecode.c
parent590130fb19e1f433965c421d98fedeb2d7c33310 (diff)
parent1dc4075fa8809805aed5092e93e225e889725c94 (diff)
downloademacs-8f1d2ef658f95549eb33fe5265f8f11c5129bece.tar.gz
emacs-8f1d2ef658f95549eb33fe5265f8f11c5129bece.zip
Merge from trunk
Diffstat (limited to 'src/bytecode.c')
-rw-r--r--src/bytecode.c16
1 files changed, 5 insertions, 11 deletions
diff --git a/src/bytecode.c b/src/bytecode.c
index eb12b9c4963..96d2aa273f2 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -1,6 +1,5 @@
1/* Execution of byte code produced by bytecomp.el. 1/* Execution of byte code produced by bytecomp.el.
2 Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002, 2003, 2004, 2 Copyright (C) 1985-1988, 1993, 2000-2011 Free Software Foundation, Inc.
3 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
4 3
5This file is part of GNU Emacs. 4This file is part of GNU Emacs.
6 5
@@ -58,9 +57,7 @@ by Hallvard:
58 57
59#ifdef BYTE_CODE_METER 58#ifdef BYTE_CODE_METER
60 59
61Lisp_Object Vbyte_code_meter, Qbyte_code_meter; 60Lisp_Object Qbyte_code_meter;
62int byte_metering_on;
63
64#define METER_2(code1, code2) \ 61#define METER_2(code1, code2) \
65 XFASTINT (XVECTOR (XVECTOR (Vbyte_code_meter)->contents[(code1)]) \ 62 XFASTINT (XVECTOR (XVECTOR (Vbyte_code_meter)->contents[(code1)]) \
66 ->contents[(code2)]) 63 ->contents[(code2)])
@@ -938,7 +935,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
938 case Btemp_output_buffer_setup: 935 case Btemp_output_buffer_setup:
939 BEFORE_POTENTIAL_GC (); 936 BEFORE_POTENTIAL_GC ();
940 CHECK_STRING (TOP); 937 CHECK_STRING (TOP);
941 temp_output_buffer_setup (SDATA (TOP)); 938 temp_output_buffer_setup (SSDATA (TOP));
942 AFTER_POTENTIAL_GC (); 939 AFTER_POTENTIAL_GC ();
943 TOP = Vstandard_output; 940 TOP = Vstandard_output;
944 break; 941 break;
@@ -1799,7 +1796,7 @@ syms_of_bytecode (void)
1799 1796
1800#ifdef BYTE_CODE_METER 1797#ifdef BYTE_CODE_METER
1801 1798
1802 DEFVAR_LISP ("byte-code-meter", &Vbyte_code_meter, 1799 DEFVAR_LISP ("byte-code-meter", Vbyte_code_meter,
1803 doc: /* A vector of vectors which holds a histogram of byte-code usage. 1800 doc: /* A vector of vectors which holds a histogram of byte-code usage.
1804\(aref (aref byte-code-meter 0) CODE) indicates how many times the byte 1801\(aref (aref byte-code-meter 0) CODE) indicates how many times the byte
1805opcode CODE has been executed. 1802opcode CODE has been executed.
@@ -1807,7 +1804,7 @@ opcode CODE has been executed.
1807indicates how many times the byte opcodes CODE1 and CODE2 have been 1804indicates how many times the byte opcodes CODE1 and CODE2 have been
1808executed in succession. */); 1805executed in succession. */);
1809 1806
1810 DEFVAR_BOOL ("byte-metering-on", &byte_metering_on, 1807 DEFVAR_BOOL ("byte-metering-on", byte_metering_on,
1811 doc: /* If non-nil, keep profiling information on byte code usage. 1808 doc: /* If non-nil, keep profiling information on byte code usage.
1812The variable byte-code-meter indicates how often each byte opcode is used. 1809The variable byte-code-meter indicates how often each byte opcode is used.
1813If a symbol has a property named `byte-code-meter' whose value is an 1810If a symbol has a property named `byte-code-meter' whose value is an
@@ -1825,6 +1822,3 @@ integer, it is incremented each time that symbol's function is called. */);
1825 } 1822 }
1826#endif 1823#endif
1827} 1824}
1828
1829/* arch-tag: b9803b6f-1ed6-4190-8adf-33fd3a9d10e9
1830 (do not change this comment) */