aboutsummaryrefslogtreecommitdiffstats
path: root/src/bytecode.c
diff options
context:
space:
mode:
authorJoakim Verona2011-02-05 11:23:09 +0100
committerJoakim Verona2011-02-05 11:23:09 +0100
commit4bd51ad5c3445b644dfb017d5b57b10a90aa325f (patch)
tree894801e7308ce4ecc34933f959e28f4b9cff9533 /src/bytecode.c
parent13cfe8df462ab8da9f0028e16cc84dcaceaca3d1 (diff)
parent9bcaafce5351d270ac514e23cb69ff1a5fd35229 (diff)
downloademacs-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.c16
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
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)])
@@ -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
1692opcode CODE has been executed. 1689opcode CODE has been executed.
@@ -1694,7 +1691,7 @@ opcode CODE has been executed.
1694indicates how many times the byte opcodes CODE1 and CODE2 have been 1691indicates how many times the byte opcodes CODE1 and CODE2 have been
1695executed in succession. */); 1692executed 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.
1699The variable byte-code-meter indicates how often each byte opcode is used. 1696The variable byte-code-meter indicates how often each byte opcode is used.
1700If a symbol has a property named `byte-code-meter' whose value is an 1697If 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) */