/* Static Heap management routines for XEmacs.
Copyright (C) 1994, 1998 Free Software Foundation, Inc.
This file is part of XEmacs.
XEmacs is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 2, or (at your option) any
XEmacs is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with XEmacs; see the file COPYING. If not, write to the Free
Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
#define STATIC_HEAP_BASE 0x600000
#define STATIC_HEAP_SLOP 0x40000
#define STATIC_HEAP_SIZE \
(STATIC_HEAP_BASE + SHEAP_ADJUSTMENT + STATIC_HEAP_SLOP)
#define BLOCKSIZE (1<<12)
#define ALLOC_UNIT (BLOCKSIZE-1)
#define ALLOC_MASK ~((unsigned long)(ALLOC_UNIT))
#define ALIGN_ALLOC(addr) ((((unsigned long)addr) + ALLOC_UNIT) & ALLOC_MASK)
unsigned long static_heap_size=STATIC_HEAP_SIZE;
void* more_static_core ( ptrdiff_t increment )
int size = (int) increment;
if (((unsigned long) static_heap_base & ~VALMASK) != 0)
printf ("error: The heap was allocated in upper memory.\n");
sbrk(BLOCKSIZE); /* force space for fork to work */
result = static_heap_ptr;
/* we don't need to align - handled by gmalloc. */
if (size < 0)
if (static_heap_ptr + size < static_heap_base)
if (static_heap_ptr + size >= static_heap_base + static_heap_size)
"\nRequested %d bytes, static heap exhausted! base is %p, current ptr
is %p. You have exhausted the static heap.
If you are simply trying to compile, remove sheap-adjust.h and
puresize-adjust.h and recompile from the top level. If this doesn't
work then STATIC_HEAP_SLOP (defined in this file) is too small.
If you want to run temacs, change SHEAP_ADJUSTMENT in sheap-adjust.h
to 0 or a +ve number. Generally you should *not* try to run temacs
with a static heap, you should dump first.\n", size,
static_heap_ptr += size;
FILE *stream = fopen ("sheap-adjust.h", "w");
if (stream == NULL)
report_file_error ("Opening sheap adjustment file",
Fcons (build_string ("sheap-adjust.h"), Qnil));
"/*\tDo not edit this file!\n"
"\tAutomatically generated by XEmacs */\n"
"# define SHEAP_ADJUSTMENT (%d)\n",
((static_heap_ptr - static_heap_buffer) - STATIC_HEAP_BASE));