From: Ken Raeburn <raeburn@raeburn.org>
Date: Fri, 19 Jul 2002 14:26:46 +0000 (+0000)
Subject: (struct byte_stack): Pointers into byte string now
X-Git-Tag: ttn-vms-21-2-B4~13981
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=33b6c007b50f322dba803a6ce6e483d564e7b320;p=emacs.git

(struct byte_stack): Pointers into byte string now
point to const.
---

diff --git a/src/bytecode.c b/src/bytecode.c
index bcb80596944..82051779e8e 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -239,7 +239,7 @@ struct byte_stack
 {
   /* 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 @@ struct byte_stack
      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.  */