From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 9 May 2003 13:58:38 +0000 (+0000)
Subject: (struct specbinding): Declare elements volatile.
X-Git-Tag: ttn-vms-21-2-B4~10229
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e91a530f9b5e5e4abef6cdee7cc99c5c9dd8a0b;p=emacs.git

(struct specbinding): Declare elements volatile.
(specpdl_ptr): Declare volatile.
---

diff --git a/src/lisp.h b/src/lisp.h
index aa91a2b892e..d455e3c464f 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -1708,13 +1708,13 @@ extern void defvar_kboard P_ ((char *, int));
 
 struct specbinding
   {
-    Lisp_Object symbol, old_value;
-    Lisp_Object (*func) P_ ((Lisp_Object));
+    volatile Lisp_Object symbol, old_value;
+    volatile Lisp_Object (*func) P_ ((Lisp_Object));
     Lisp_Object unused;		/* Dividing by 16 is faster than by 12 */
   };
 
 extern struct specbinding *specpdl;
-extern struct specbinding *specpdl_ptr;
+extern volatile struct specbinding *specpdl_ptr;
 extern int specpdl_size;
 
 extern EMACS_INT max_specpdl_size;