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-2014 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/>. */
29 #ifdef ENABLE_CHECKING
30 #define STATIC_HEAP_SIZE (28 * 1024 * 1024)
32 #define STATIC_HEAP_SIZE (19 * 1024 * 1024)
35 #ifdef ENABLE_CHECKING
36 #define STATIC_HEAP_SIZE (18 * 1024 * 1024)
38 #define STATIC_HEAP_SIZE (13 * 1024 * 1024)
44 #define BLOCKSIZE 4096
46 char bss_sbrk_buffer
[STATIC_HEAP_SIZE
];
47 char *bss_sbrk_buffer_end
= bss_sbrk_buffer
+ STATIC_HEAP_SIZE
;
49 char *max_bss_sbrk_ptr
;
50 int bss_sbrk_did_unexec
;
53 bss_sbrk (ptrdiff_t request_size
)
57 max_bss_sbrk_ptr
= bss_sbrk_ptr
= bss_sbrk_buffer
;
59 sbrk (BLOCKSIZE
); /* force space for fork to work */
63 if (!(int) request_size
)
65 return (bss_sbrk_ptr
);
67 else if (bss_sbrk_ptr
+ (int) request_size
< bss_sbrk_buffer
)
70 ("attempt to free too much: avail %d used %d failed request %d\n",
71 STATIC_HEAP_SIZE
, bss_sbrk_ptr
- bss_sbrk_buffer
,
76 else if (bss_sbrk_ptr
+ (int) request_size
>
77 bss_sbrk_buffer
+ STATIC_HEAP_SIZE
)
79 printf ("static heap exhausted: avail %d used %d failed request %d\n",
81 bss_sbrk_ptr
- bss_sbrk_buffer
, (int) request_size
);
85 else if ((int) request_size
< 0)
87 bss_sbrk_ptr
+= (int) request_size
;
89 printf ("freed size %d\n", request_size
);
94 char *ret
= bss_sbrk_ptr
;
96 printf ("allocated 0x%08x size %d\n", ret
, request_size
);
97 bss_sbrk_ptr
+= (int) request_size
;
98 if (bss_sbrk_ptr
> max_bss_sbrk_ptr
)
99 max_bss_sbrk_ptr
= bss_sbrk_ptr
;
105 report_sheap_usage (int die_if_pure_storage_exceeded
)
108 sprintf (buf
, "Maximum static heap usage: %d of %d bytes",
109 max_bss_sbrk_ptr
- bss_sbrk_buffer
, STATIC_HEAP_SIZE
);
110 /* Don't log messages, cause at this point, we're not allowed to create
112 message1_nolog (buf
);