mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-18 02:47:36 +00:00
d7306fe6b1
* eval.c: Move struct catchtag definition ... * lisp.h: ... here. * image.c: Move png.h #include earlier to avoid warnings. * xterm.c: * xsmfns.c: * xselect.c: * xrdb.c: * xmenu.c: * xftfont.c: * xfont.c: * xfns.c: * xfaces.c: * xdisp.c: * window.c: * widget.c: * w32xfns.c: * w32uniscribe.c: * w32term.c: * w32select.c: * w32reg.c: * w32proc.c: * w32menu.c: * w32inevt.c: * w32heap.c: * w32font.c: * w32fns.c: * w32console.c: * w32.c: * w16select.c: * vm-limit.c: * unexsol.c: * unexec.c: * unexcw.c: * unexaix.c: * undo.c: * tparam.c: * textprop.c: * terminfo.c: * terminal.c: * termcap.c: * term.c: * syntax.c: * sound.c: * sheap.c: * search.c: * scroll.c: * region-cache.c: * regex.c: * ralloc.c: * process.c: * print.c: * msdos.c: * minibuf.c: * menu.c: * marker.c: * macros.c: * keymap.c: * keyboard.c: * intervals.c: * insdel.c: * indent.c: * gtkutil.c: * ftxfont.c: * ftfont.c: * fringe.c: * frame.c: * fontset.c: * font.c: * fns.c: * floatfns.c: * filelock.c: * fileio.c: * emacs.c: * editfns.c: * dosfns.c: * doprnt.c: * doc.c: * dispnew.c: * dired.c: * dbusbind.c: * data.c: * composite.c: * coding.c: * cmds.c: * cm.c: * chartab.c: * charset.c: * character.c: * ccl.c: * category.c: * casetab.c: * casefiddle.c: * callproc.c: * callint.c: * bytecode.c: * buffer.c: * atimer.c: Include setjmp.h. (Bug#4643) * xlwmenu.c: * lwlib.c: * lwlib-utils.c: * lwlib-Xm.c: * lwlib-Xlw.c: * lwlib-Xaw.c: Include setjmp.h.
98 lines
2.6 KiB
C
98 lines
2.6 KiB
C
/* simulate `sbrk' with an array in .bss, for `unexec' support for Cygwin;
|
|
complete rewrite of xemacs Cygwin `unexec' code
|
|
|
|
Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
|
|
|
|
This file is part of GNU Emacs.
|
|
|
|
GNU Emacs 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 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
GNU Emacs 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 GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
|
#include <config.h>
|
|
#include <stdio.h>
|
|
#include <setjmp.h>
|
|
#include "lisp.h"
|
|
|
|
#include <unistd.h>
|
|
|
|
#define STATIC_HEAP_SIZE (12 * 1024 * 1024)
|
|
|
|
int debug_sheap = 0;
|
|
|
|
#define BLOCKSIZE 4096
|
|
|
|
char bss_sbrk_buffer[STATIC_HEAP_SIZE];
|
|
char *bss_sbrk_ptr;
|
|
int bss_sbrk_did_unexec;
|
|
|
|
void *
|
|
bss_sbrk (ptrdiff_t request_size)
|
|
{
|
|
if (!bss_sbrk_ptr)
|
|
{
|
|
bss_sbrk_ptr = bss_sbrk_buffer;
|
|
#ifdef CYGWIN
|
|
sbrk (BLOCKSIZE); /* force space for fork to work */
|
|
#endif
|
|
}
|
|
|
|
if (!(int) request_size)
|
|
{
|
|
return (bss_sbrk_ptr);
|
|
}
|
|
else if (bss_sbrk_ptr + (int) request_size < bss_sbrk_buffer)
|
|
{
|
|
printf
|
|
("attempt to free too much: avail %d used %d failed request %d\n",
|
|
STATIC_HEAP_SIZE, bss_sbrk_ptr - bss_sbrk_buffer,
|
|
(int) request_size);
|
|
exit (-1);
|
|
return 0;
|
|
}
|
|
else if (bss_sbrk_ptr + (int) request_size >
|
|
bss_sbrk_buffer + STATIC_HEAP_SIZE)
|
|
{
|
|
printf ("static heap exhausted: avail %d used %d failed request %d\n",
|
|
STATIC_HEAP_SIZE,
|
|
bss_sbrk_ptr - bss_sbrk_buffer, (int) request_size);
|
|
exit (-1);
|
|
return 0;
|
|
}
|
|
else if ((int) request_size < 0)
|
|
{
|
|
bss_sbrk_ptr += (int) request_size;
|
|
if (debug_sheap)
|
|
printf ("freed size %d\n", request_size);
|
|
return bss_sbrk_ptr;
|
|
}
|
|
else
|
|
{
|
|
char *ret = bss_sbrk_ptr;
|
|
if (debug_sheap)
|
|
printf ("allocated 0x%08x size %d\n", ret, request_size);
|
|
bss_sbrk_ptr += (int) request_size;
|
|
return ret;
|
|
}
|
|
}
|
|
|
|
void
|
|
report_sheap_usage (int die_if_pure_storage_exceeded)
|
|
{
|
|
char buf[200];
|
|
sprintf (buf, "Static heap usage: %d of %d bytes",
|
|
bss_sbrk_ptr - bss_sbrk_buffer, STATIC_HEAP_SIZE);
|
|
message ("%s", buf);
|
|
}
|
|
|
|
/* arch-tag: 1bc386e8-71c2-4da4-b8b5-c1674a9cf926
|
|
(do not change this comment) */
|