diff src/sheap.c @ 412:697ef44129c6 r21-2-14

Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents de805c49cfc1
children da8ed4261e83
line wrap: on
line diff
--- a/src/sheap.c	Mon Aug 13 11:19:22 2007 +0200
+++ b/src/sheap.c	Mon Aug 13 11:20:41 2007 +0200
@@ -19,12 +19,13 @@
 02111-1307, USA.*/
 
 #include <config.h>
+#include <stdio.h>
 #include "lisp.h"
-
+#include <stddef.h>
 #include <unistd.h>
 #include <sheap-adjust.h>
 
-#define STATIC_HEAP_BASE	0x800000
+#define STATIC_HEAP_BASE	0x600000
 #define STATIC_HEAP_SLOP	0x40000
 #define STATIC_HEAP_SIZE \
 (STATIC_HEAP_BASE + SHEAP_ADJUSTMENT + STATIC_HEAP_SLOP)
@@ -40,7 +41,6 @@
 int 	static_heap_initialized=0;
 int 	static_heap_dumped=0;
 
-void* more_static_core ( ptrdiff_t increment );
 void* more_static_core ( ptrdiff_t increment )
 {
   int size = (int) increment;
@@ -59,7 +59,7 @@
       static_heap_ptr=static_heap_base;
       static_heap_size=STATIC_HEAP_SIZE -
 	(static_heap_base-static_heap_buffer);
-#ifdef CYGWIN
+#ifdef __CYGWIN32__
       sbrk(BLOCKSIZE);		/* force space for fork to work */
 #endif
       static_heap_initialized=1;
@@ -103,7 +103,7 @@
   return result;
 }
 
-static void
+void
 sheap_adjust_h ()
 {
   FILE *stream = fopen ("sheap-adjust.h", "w");
@@ -120,32 +120,3 @@
   fclose (stream);
 }
 
-void report_sheap_usage (int die_if_pure_storage_exceeded);
-void
-report_sheap_usage (int die_if_pure_storage_exceeded)
-{
-  int rc = 0;
-
-  size_t lost = (STATIC_HEAP_BASE + STATIC_HEAP_SLOP + SHEAP_ADJUSTMENT)
-    - (static_heap_ptr - static_heap_buffer);
-  char buf[200];
-  sprintf (buf, "Static heap usage: %ld of %ld",
-               (long) (static_heap_ptr - static_heap_buffer),
-	   (long) (STATIC_HEAP_BASE + STATIC_HEAP_SLOP + SHEAP_ADJUSTMENT));
-
-  if (lost > STATIC_HEAP_SLOP) {
-    sprintf (buf + strlen (buf), " -- %ldk wasted", (long)(lost/1024));
-    if (die_if_pure_storage_exceeded) {
-      sheap_adjust_h();
-      rc = -1;
-    }
-    message ("%s", buf);
-  }
-
-  if (rc < 0) {
-    unlink("SATISFIED");
-    fatal ("Static heap size adjusted, Don't Panic!  I will restart the `make'");
-  }
-}
-
-