# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 752962304 0
# Node ID 99edf052bfa001fe32a92fa53a481c919a3312c2
# Parent  dd67510308ae1978ee3ff3586a9e8e5d6264cb36
Include puresize.h.
(create_root_interval): Check to see if PARENT is in
pure memory.  If so, we cannot write it.

diff -r dd67510308ae -r 99edf052bfa0 src/intervals.c
--- a/src/intervals.c	Wed Nov 10 20:09:54 1993 +0000
+++ b/src/intervals.c	Wed Nov 10 20:11:44 1993 +0000
@@ -42,6 +42,7 @@
 #include "lisp.h"
 #include "intervals.h"
 #include "buffer.h"
+#include "puresize.h"
 
 /* The rest of the file is within this conditional.  */
 #ifdef USE_TEXT_PROPERTIES
@@ -58,7 +59,11 @@
 create_root_interval (parent)
      Lisp_Object parent;
 {
-  INTERVAL new = make_interval ();
+  INTERVAL new;
+
+  CHECK_IMPURE (parent);
+
+  new = make_interval ();
 
   if (XTYPE (parent) == Lisp_Buffer)
     {