# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1027088806 0
# Node ID 99d1224dfe6c75c5c3e74026802dbcd8d8fb0c30
# Parent  513411cc43084a9e8ac36130c616b8a20c545e60
(struct byte_stack): Pointers into byte string now
point to const.

diff -r 513411cc4308 -r 99d1224dfe6c src/bytecode.c
--- a/src/bytecode.c	Fri Jul 19 13:32:53 2002 +0000
+++ b/src/bytecode.c	Fri Jul 19 14:26:46 2002 +0000
@@ -239,7 +239,7 @@
 {
   /* Program counter.  This points into the byte_string below
      and is relocated when that string is relocated.  */
-  unsigned char *pc;
+  const unsigned char *pc;
 
   /* Top and bottom of stack.  The bottom points to an area of memory
      allocated with alloca in Fbyte_code.  */
@@ -249,7 +249,7 @@
      Storing this here protects it from GC because mark_byte_stack
      marks it.  */
   Lisp_Object byte_string;
-  unsigned char *byte_string_start;
+  const unsigned char *byte_string_start;
 
   /* The vector of constants used during byte-code execution.  Storing
      this here protects it from GC because mark_byte_stack marks it.  */