# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1002411382 0
# Node ID 4baf64844f9cf5fd308b0233322b731a60fd4ca2
# Parent  a0bf0cb8ff3ea78cc407bb0106ea4b89b0242897
(syms_of_bytecode) [BYTE_CODE_METER]: Doc fix.
(METER_CODE): Use MOST_POSITIVE_FIXNUM.

diff -r a0bf0cb8ff3e -r 4baf64844f9c src/bytecode.c
--- a/src/bytecode.c	Sat Oct 06 23:32:01 2001 +0000
+++ b/src/bytecode.c	Sat Oct 06 23:36:22 2001 +0000
@@ -66,16 +66,16 @@
 
 #define METER_1(code) METER_2 (0, (code))
 
-#define METER_CODE(last_code, this_code)			\
-{								\
-  if (byte_metering_on)						\
-    {								\
-      if (METER_1 (this_code) != ((1<<VALBITS)-1))		\
-        METER_1 (this_code)++;					\
-      if (last_code						\
-	  && METER_2 (last_code, this_code) != ((1<<VALBITS)-1))\
-        METER_2 (last_code, this_code)++;			\
-    }								\
+#define METER_CODE(last_code, this_code)				\
+{									\
+  if (byte_metering_on)							\
+    {									\
+      if (METER_1 (this_code) < MOST_POSITIVE_FIXNUM)			\
+        METER_1 (this_code)++;						\
+      if (last_code							\
+	  && METER_2 (last_code, this_code) < MOST_POSITIVE_FIXNUM)	\
+        METER_2 (last_code, this_code)++;				\
+    }									\
 }
 
 #else /* no BYTE_CODE_METER */
@@ -1747,11 +1747,12 @@
 
   DEFVAR_LISP ("byte-code-meter", &Vbyte_code_meter,
    "A vector of vectors which holds a histogram of byte-code usage.\n\
-(aref (aref byte-code-meter 0) CODE) indicates how many times the byte\n\
+\(aref (aref byte-code-meter 0) CODE) indicates how many times the byte\n\
 opcode CODE has been executed.\n\
-(aref (aref byte-code-meter CODE1) CODE2), where CODE1 is not 0,\n\
+\(aref (aref byte-code-meter CODE1) CODE2), where CODE1 is not 0,\n\
 indicates how many times the byte opcodes CODE1 and CODE2 have been\n\
 executed in succession.");
+  
   DEFVAR_BOOL ("byte-metering-on", &byte_metering_on,
    "If non-nil, keep profiling information on byte code usage.\n\
 The variable byte-code-meter indicates how often each byte opcode is used.\n\