Mercurial > emacs

comparison src/puresize.h @ 8933:f060ee7326c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(PURESIZE_RATIO, BASE_PURESIZE): Defined. (PURESIZE): Define it based on those.
author Richard M. Stallman <rms@gnu.org>
date Tue, 20 Sep 1994 03:18:33 +0000
parents 02bbe8ec50ea
children 49f21ecbda41
comparison
equal deleted inserted replaced
8932:cdc7e11a5ca8 8933:f060ee7326c5
15 15
16 You should have received a copy of the GNU General Public License 16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to 17 along with GNU Emacs; see the file COPYING. If not, write to
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ 18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
19 19
20 /* # bytes of pure Lisp code to leave space for. 20 /* Define PURESIZE, the number of bytes of pure Lisp code to leave space for.
21 21
22 At one point, this was defined in config.h, meaning that changing 22 At one point, this was defined in config.h, meaning that changing
23 PURESIZE would make Make recompile all of Emacs. But only a few 23 PURESIZE would make Make recompile all of Emacs. But only a few
24 files actually use PURESIZE, so we split it out to its own .h file. 24 files actually use PURESIZE, so we split it out to its own .h file.
25 25
26 Make sure to include this file after config.h, since that tells us 26 Make sure to include this file after config.h, since that tells us
27 whether we are running X windows, which tells us how much pure 27 whether we are running X windows, which tells us how much pure
28 storage to allocate. */ 28 storage to allocate. */
29 29
30 /* First define a measure of the amount of data we have. */
31
32 #ifndef BASE_PURESIZE
33 #ifdef MULTI_FRAME
34 #define BASE_PURESIZE 255000
35 #else
36 #define BASE_PURESIZE 208000
37 #endif
38 #endif
39
40 /* Increase BASE_PURESIZE by a ratio depending on the machine's word size. */
41 #ifndef PURESIZE_RATIO
42 #if VALBITS + GCTYPEBITS + 1 > 32
43 #define PURESIZE_RATIO 8/5 /* Don't surround with `()'. */
44 #else
45 #define PURESIZE_RATIO 1
46 #endif
47 #endif
48
49 /* This is the actual size in bytes to allocate. */
30 #ifndef PURESIZE 50 #ifndef PURESIZE
31 #ifdef MULTI_FRAME 51 #define PURESIZE (BASE_PURESIZE * PURESIZE_RATIO)
32 #define PURESIZE 255000
33 #else
34 #define PURESIZE 208000
35 #endif
36 #endif 52 #endif
37 53
38 #ifdef VIRT_ADDR_VARIES 54 #ifdef VIRT_ADDR_VARIES
39 55
40 /* For machines like APOLLO where text and data can go anywhere 56 /* For machines like APOLLO where text and data can go anywhere