diff options
| author | Joakim Verona | 2011-02-05 11:23:09 +0100 |
|---|---|---|
| committer | Joakim Verona | 2011-02-05 11:23:09 +0100 |
| commit | 4bd51ad5c3445b644dfb017d5b57b10a90aa325f (patch) | |
| tree | 894801e7308ce4ecc34933f959e28f4b9cff9533 /src/bytecode.c | |
| parent | 13cfe8df462ab8da9f0028e16cc84dcaceaca3d1 (diff) | |
| parent | 9bcaafce5351d270ac514e23cb69ff1a5fd35229 (diff) | |
| download | emacs-4bd51ad5c3445b644dfb017d5b57b10a90aa325f.tar.gz emacs-4bd51ad5c3445b644dfb017d5b57b10a90aa325f.zip | |
merge from upstream. currently seems to have bitroted and i get segfaults
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 88ac509e4ba..fd2680e4054 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)]) |
| @@ -874,7 +871,7 @@ If the third argument is incorrect, Emacs may crash. */) | |||
| 874 | case Btemp_output_buffer_setup: | 871 | case Btemp_output_buffer_setup: |
| 875 | BEFORE_POTENTIAL_GC (); | 872 | BEFORE_POTENTIAL_GC (); |
| 876 | CHECK_STRING (TOP); | 873 | CHECK_STRING (TOP); |
| 877 | temp_output_buffer_setup (SDATA (TOP)); | 874 | temp_output_buffer_setup (SSDATA (TOP)); |
| 878 | AFTER_POTENTIAL_GC (); | 875 | AFTER_POTENTIAL_GC (); |
| 879 | TOP = Vstandard_output; | 876 | TOP = Vstandard_output; |
| 880 | break; | 877 | break; |
| @@ -1686,7 +1683,7 @@ syms_of_bytecode (void) | |||
| 1686 | 1683 | ||
| 1687 | #ifdef BYTE_CODE_METER | 1684 | #ifdef BYTE_CODE_METER |
| 1688 | 1685 | ||
| 1689 | DEFVAR_LISP ("byte-code-meter", &Vbyte_code_meter, | 1686 | DEFVAR_LISP ("byte-code-meter", Vbyte_code_meter, |
| 1690 | doc: /* A vector of vectors which holds a histogram of byte-code usage. | 1687 | doc: /* A vector of vectors which holds a histogram of byte-code usage. |
| 1691 | \(aref (aref byte-code-meter 0) CODE) indicates how many times the byte | 1688 | \(aref (aref byte-code-meter 0) CODE) indicates how many times the byte |
| 1692 | opcode CODE has been executed. | 1689 | opcode CODE has been executed. |
| @@ -1694,7 +1691,7 @@ opcode CODE has been executed. | |||
| 1694 | indicates how many times the byte opcodes CODE1 and CODE2 have been | 1691 | indicates how many times the byte opcodes CODE1 and CODE2 have been |
| 1695 | executed in succession. */); | 1692 | executed in succession. */); |
| 1696 | 1693 | ||
| 1697 | DEFVAR_BOOL ("byte-metering-on", &byte_metering_on, | 1694 | DEFVAR_BOOL ("byte-metering-on", byte_metering_on, |
| 1698 | doc: /* If non-nil, keep profiling information on byte code usage. | 1695 | doc: /* If non-nil, keep profiling information on byte code usage. |
| 1699 | The variable byte-code-meter indicates how often each byte opcode is used. | 1696 | The variable byte-code-meter indicates how often each byte opcode is used. |
| 1700 | If a symbol has a property named `byte-code-meter' whose value is an | 1697 | If a symbol has a property named `byte-code-meter' whose value is an |
| @@ -1712,6 +1709,3 @@ integer, it is incremented each time that symbol's function is called. */); | |||
| 1712 | } | 1709 | } |
| 1713 | #endif | 1710 | #endif |
| 1714 | } | 1711 | } |
| 1715 | |||
| 1716 | /* arch-tag: b9803b6f-1ed6-4190-8adf-33fd3a9d10e9 | ||
| 1717 | (do not change this comment) */ | ||