Source

XEmacs / src / pure.c

Full commit
/* This file is part of XEmacs.

XEmacs is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 2, or (at your option) any
later version.

XEmacs is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
for more details.

You should have received a copy of the GNU General Public License
along with XEmacs; see the file COPYING.  If not, write to
the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA.  */

/* Synched up with: FSF 19.30.  Split out of alloc.c. */

#include <config.h>
#include "puresize.h"
#include "lisp.h"

/* Moved from puresize.h to here so alloc.c does not get recompiled */

/* Current build process on NT does not generate a puresize_adjust.h */
/* file. --marcpa */  
#ifdef WINDOWSNT
# define PURESIZE_ADJUSTMENT 1000000
#else
# include <puresize_adjust.h>
#endif
#define PURESIZE ((RAW_PURESIZE) + (PURESIZE_ADJUSTMENT))

long int
get_PURESIZE(void)
{
  return PURESIZE;
}

Lisp_Object pure[PURESIZE / sizeof (Lisp_Object)]
     /* Force linker to put it into data space! */
#ifdef NO_UNION_TYPE
     = {0};
#else
     /* Need this many braces to convince GCC not to complain */
     = {{{0}}};
#endif