diff options
| author | Stefan Monnier | 2011-02-01 12:09:25 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2011-02-01 12:09:25 -0500 |
| commit | 8f1d2ef658f95549eb33fe5265f8f11c5129bece (patch) | |
| tree | b7cd852a1adb423384532cfe22c31547160b22bc /src/bytecode.c | |
| parent | 590130fb19e1f433965c421d98fedeb2d7c33310 (diff) | |
| parent | 1dc4075fa8809805aed5092e93e225e889725c94 (diff) | |
| download | emacs-8f1d2ef658f95549eb33fe5265f8f11c5129bece.tar.gz emacs-8f1d2ef658f95549eb33fe5265f8f11c5129bece.zip | |
Merge from trunk
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 16 |
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 | ||
| 5 | This file is part of GNU Emacs. | 4 | This 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 | ||
| 61 | Lisp_Object Vbyte_code_meter, Qbyte_code_meter; | 60 | Lisp_Object Qbyte_code_meter; |
| 62 | int 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 |
| 1805 | opcode CODE has been executed. | 1802 | opcode CODE has been executed. |
| @@ -1807,7 +1804,7 @@ opcode CODE has been executed. | |||
| 1807 | indicates how many times the byte opcodes CODE1 and CODE2 have been | 1804 | indicates how many times the byte opcodes CODE1 and CODE2 have been |
| 1808 | executed in succession. */); | 1805 | executed 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. |
| 1812 | The variable byte-code-meter indicates how often each byte opcode is used. | 1809 | The variable byte-code-meter indicates how often each byte opcode is used. |
| 1813 | If a symbol has a property named `byte-code-meter' whose value is an | 1810 | If 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) */ | ||