Mercurial > hg > xemacs-beta

comparison src/pure.c @ 171:929b76928fce r20-3b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b12
author cvs
date Mon, 13 Aug 2007 09:47:52 +0200
parents 376386a54a3c
children e121b013d1f0
comparison
equal deleted inserted replaced
170:98a42ee61975 171:929b76928fce
19 19
20 #include <config.h> 20 #include <config.h>
21 #include "puresize.h" 21 #include "puresize.h"
22 #include "lisp.h" 22 #include "lisp.h"
23 23
24 /* Moved from puresize.h to here so alloc.c does not get recompiled */
25
26 /* Current build process on NT does not generate a puresize_adjust.h */
27 /* file. --marcpa */
28 #ifdef WINDOWSNT
29 # define PURESIZE_ADJUSTMENT 1000000
30 #else
31 # include <puresize_adjust.h>
32 #endif
33 #define PURESIZE ((RAW_PURESIZE) + (PURESIZE_ADJUSTMENT))
34
35 long int
36 get_PURESIZE(void)
37 {
38 return PURESIZE;
39 }
40
24 Lisp_Object pure[PURESIZE / sizeof (Lisp_Object)] 41 Lisp_Object pure[PURESIZE / sizeof (Lisp_Object)]
25 /* Force linker to put it into data space! */ 42 /* Force linker to put it into data space! */
26 #ifdef NO_UNION_TYPE 43 #ifdef NO_UNION_TYPE
27 = {0}; 44 = {0};
28 #else 45 #else