# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1052488718 0
# Node ID d1b8ac33a6325c4884ab37093f923ea12a92ec51
# Parent  30a3c60d6de9183936e837b29d12a1dac075d527
(struct specbinding): Declare elements volatile.
(specpdl_ptr): Declare volatile.

diff -r 30a3c60d6de9 -r d1b8ac33a632 src/lisp.h
--- a/src/lisp.h	Fri May 09 13:54:51 2003 +0000
+++ b/src/lisp.h	Fri May 09 13:58:38 2003 +0000
@@ -1708,13 +1708,13 @@
 
 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;