; Auto-commit of loaddefs files.
[emacs.git] / src / sheap.c
blob58a6a0b1cd3212c68fe1dafe6ddb4052f1707360
1 /* simulate `sbrk' with an array in .bss, for `unexec' support for Cygwin;
2 complete rewrite of xemacs Cygwin `unexec' code
4 Copyright (C) 2004-2015 Free Software Foundation, Inc.
6 This file is part of GNU Emacs.
8 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 GNU Emacs is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
21 #include <config.h>
22 #include <stdio.h>
24 #include "lisp.h"
26 #include <unistd.h>
28 #ifdef __x86_64__
29 #ifdef ENABLE_CHECKING
30 #define STATIC_HEAP_SIZE (28 * 1024 * 1024)
31 #else
32 #define STATIC_HEAP_SIZE (19 * 1024 * 1024)
33 #endif
34 #else /* x86 */
35 #ifdef ENABLE_CHECKING
36 #define STATIC_HEAP_SIZE (18 * 1024 * 1024)
37 #else
38 #define STATIC_HEAP_SIZE (13 * 1024 * 1024)
39 #endif
40 #endif /* x86 */
42 int debug_sheap = 0;
44 #define BLOCKSIZE 4096
46 char bss_sbrk_buffer[STATIC_HEAP_SIZE];
47 /* The following is needed in gmalloc.c */
48 void *bss_sbrk_buffer_end = bss_sbrk_buffer + STATIC_HEAP_SIZE;
49 char *bss_sbrk_ptr;
50 char *max_bss_sbrk_ptr;
51 int bss_sbrk_did_unexec;
53 void *
54 bss_sbrk (ptrdiff_t request_size)
56 if (!bss_sbrk_ptr)
58 max_bss_sbrk_ptr = bss_sbrk_ptr = bss_sbrk_buffer;
59 #ifdef CYGWIN
60 sbrk (BLOCKSIZE); /* force space for fork to work */
61 #endif
64 if (!(int) request_size)
66 return (bss_sbrk_ptr);
68 else if (bss_sbrk_ptr + (int) request_size < bss_sbrk_buffer)
70 printf
71 ("attempt to free too much: avail %d used %d failed request %d\n",
72 STATIC_HEAP_SIZE, bss_sbrk_ptr - bss_sbrk_buffer,
73 (int) request_size);
74 exit (-1);
75 return 0;
77 else if (bss_sbrk_ptr + (int) request_size >
78 bss_sbrk_buffer + STATIC_HEAP_SIZE)
80 printf ("static heap exhausted: avail %d used %d failed request %d\n",
81 STATIC_HEAP_SIZE,
82 bss_sbrk_ptr - bss_sbrk_buffer, (int) request_size);
83 exit (-1);
84 return 0;
86 else if ((int) request_size < 0)
88 bss_sbrk_ptr += (int) request_size;
89 if (debug_sheap)
90 printf ("freed size %d\n", request_size);
91 return bss_sbrk_ptr;
93 else
95 char *ret = bss_sbrk_ptr;
96 if (debug_sheap)
97 printf ("allocated 0x%08x size %d\n", ret, request_size);
98 bss_sbrk_ptr += (int) request_size;
99 if (bss_sbrk_ptr > max_bss_sbrk_ptr)
100 max_bss_sbrk_ptr = bss_sbrk_ptr;
101 return ret;
105 void
106 report_sheap_usage (int die_if_pure_storage_exceeded)
108 char buf[200];
109 sprintf (buf, "Maximum static heap usage: %d of %d bytes",
110 max_bss_sbrk_ptr - bss_sbrk_buffer, STATIC_HEAP_SIZE);
111 /* Don't log messages, cause at this point, we're not allowed to create
112 buffers. */
113 message1_nolog (buf);