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-2017 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 (at
11 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/>. */
25 #include <stdlib.h> /* for exit */
27 #ifdef ENABLE_CHECKING
28 #define STATIC_HEAP_SIZE (28 * 1024 * 1024)
30 #define STATIC_HEAP_SIZE (19 * 1024 * 1024)
35 #define BLOCKSIZE 4096
37 char bss_sbrk_buffer
[STATIC_HEAP_SIZE
];
38 /* The following is needed in gmalloc.c */
39 void *bss_sbrk_buffer_end
= bss_sbrk_buffer
+ STATIC_HEAP_SIZE
;
41 char *max_bss_sbrk_ptr
;
42 int bss_sbrk_did_unexec
;
45 bss_sbrk (ptrdiff_t request_size
)
49 max_bss_sbrk_ptr
= bss_sbrk_ptr
= bss_sbrk_buffer
;
51 sbrk (BLOCKSIZE
); /* force space for fork to work */
55 if (!(int) request_size
)
57 return (bss_sbrk_ptr
);
59 else if (bss_sbrk_ptr
+ (int) request_size
< bss_sbrk_buffer
)
62 ("attempt to free too much: avail %d used %d failed request %d\n",
63 STATIC_HEAP_SIZE
, bss_sbrk_ptr
- bss_sbrk_buffer
,
68 else if (bss_sbrk_ptr
+ (int) request_size
>
69 bss_sbrk_buffer
+ STATIC_HEAP_SIZE
)
71 printf ("static heap exhausted: avail %d used %d failed request %d\n",
73 bss_sbrk_ptr
- bss_sbrk_buffer
, (int) request_size
);
77 else if ((int) request_size
< 0)
79 bss_sbrk_ptr
+= (int) request_size
;
81 printf ("freed size %d\n", request_size
);
86 char *ret
= bss_sbrk_ptr
;
88 printf ("allocated 0x%08x size %d\n", ret
, request_size
);
89 bss_sbrk_ptr
+= (int) request_size
;
90 if (bss_sbrk_ptr
> max_bss_sbrk_ptr
)
91 max_bss_sbrk_ptr
= bss_sbrk_ptr
;
97 report_sheap_usage (int die_if_pure_storage_exceeded
)
100 sprintf (buf
, "Maximum static heap usage: %d of %d bytes",
101 max_bss_sbrk_ptr
- bss_sbrk_buffer
, STATIC_HEAP_SIZE
);
102 /* Don't log messages, cause at this point, we're not allowed to create
104 message1_nolog (buf
);