git.chise.org Git - chise/xemacs-chise.git.1/blob - src/pure.c

   1 /* This file is part of XEmacs.
   2
   3 XEmacs is free software; you can redistribute it and/or modify it
   4 under the terms of the GNU General Public License as published by the
   5 Free Software Foundation; either version 2, or (at your option) any
   6 later version.
   7
   8 XEmacs is distributed in the hope that it will be useful, but WITHOUT
   9 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  10 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  11 for more details.
  12
  13 You should have received a copy of the GNU General Public License
  14 along with XEmacs; see the file COPYING.  If not, write to
  15 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  16 Boston, MA 02111-1307, USA.  */
  17
  18 /* Synched up with: FSF 19.30.  Split out of alloc.c. */
  19
  20 #include <config.h>
  21 #include "lisp.h"
  22 #include "puresize.h"
  23
  24 /* Moved from puresize.h to here so alloc.c does not get recompiled */
  25
  26 # include <puresize-adjust.h>
  27 #define PURESIZE ((RAW_PURESIZE) + (PURESIZE_ADJUSTMENT))
  28
  29 size_t
  30 get_PURESIZE (void)
  31 {
  32   return PURESIZE;
  33 }
  34
  35 /* Force linker to put it into data space! */
  36 EMACS_INT pure[PURESIZE / sizeof (EMACS_INT)] = { (EMACS_INT) 0};