(set_internal): Properly compare lisp objects.

[gnu-emacs] / src / puresize.h

diff --git a/src/puresize.h b/src/puresize.h
index 0b4d6023aebd7f8b144fa76255837b08be0f7a6c..edbf476f00d515d788367f2e8f38702913ba4770 100644 (file)
--- a/src/puresize.h
+++ b/src/puresize.h
@@ -42,11 +42,7 @@ Boston, MA 02111-1307, USA.  */
 #endif
 
 #ifndef BASE_PURESIZE
-#ifdef MULTI_FRAME
-#define BASE_PURESIZE (325000 + SYSTEM_PURESIZE_EXTRA + SITELOAD_PURESIZE_EXTRA)
-#else
-#define BASE_PURESIZE (240000 + SYSTEM_PURESIZE_EXTRA + SITELOAD_PURESIZE_EXTRA)
-#endif
+#define BASE_PURESIZE (490000 + SYSTEM_PURESIZE_EXTRA + SITELOAD_PURESIZE_EXTRA)
 #endif
 
 /* Increase BASE_PURESIZE by a ratio depending on the machine's word size.  */
@@ -67,6 +63,8 @@ Boston, MA 02111-1307, USA.  */
 #define CHECK_IMPURE(obj) \
   { if (PURE_P (obj))    \
       pure_write_error (); }
+
+extern void pure_write_error P_ ((void));
 \f
 /* Define PURE_P.  */