view src/puresize.h @ 38514:10482dd382e7

* viper-ex.el (ex-token-list,ex-cmd-execute): Revamped, courtesy of Scott Bronson. (ex-cmd-assoc,ex-compile,ex-cmd-one-letr): New functions. (viper-check-sub,viper-get-ex-command,viper-execute-ex-command): Deleted functions. (viper-get-ex-com-subr,viper-ex,ex-mark): Changed to use the new ex-token-list. (viper-get-ex-address-subr): convert registers to char data type. * viper-util.el (viper-int-to-char,viper-char-equal): new functions. (viper-memq-char): use viper-int-to-char. (viper-file-checked-in-p): use vc-locking-user, if vc doesn't have vc-locking-state. (viper-read-key): use viper-read-key-sequence. * viper.el (viper-major-mode-modifier-list): added inferior-emacs-lisp-mode. (this-major-mode-requires-vi-state): new function that uses simple heuristics to decide if vi state is appropriate. (set-viper-state-in-major-mode): use this-major-mode-requires-vi-state. (viper-non-hook-settings): don't advise read-key-sequence. (viper-read-key-sequence): new function that replaces the previously used advice to read-key-sequence. * viper-cmd.el (viper-test-com-defun,viper-exec-change, viper-exec-Change,viper-execute-com,viper-insert,viper-append, viper-Append,viper-Insert,viper-open-line,viper-Open-line, viper-open-line-at-point,viper-substitute,viper-overwrite, viper-replace-char-subr,viper-forward-word,viper-forward-Word): got rid of the negative character hack. (viper-escape-to-state,viper-replace-state-exit-cmd): use viper-read-key-sequence. (viper-envelop-ESC-key): no need for ad-get-orig-definition. (viper-minibuffer-standard-hook,viper-read-string-with-history): don't override existing minibuffer-setup-hook. (viper-mark-point,viper-goto-mark-subr,viper-brac-function): convert registers to char data type. (viper-autoindent): use viper-indent-line. * viper-keym.el: use viper-exec-key-in-emacs. * viper.texi: Added credits, new commands, like :make. * ediff-util.el: Copyright years. (ediff-choose-syntax-table): New function. (ediff-setup): Use ediff-choose-syntax-table. (ediff-file-checked-out-p,ediff-file-checked-in-p): check if vc-state is available. (ediff-make-temp-file): use ediff-coding-system-for-write. * ediff-init.el (ediff-with-syntax-table): New macro, uses with-syntax-table. (ediff-coding-system-for-read): from ediff-diff.el (ediff-coding-system-for-write): new variable. (ediff-highest-priority): fixed the bug having to do with disappearing overlays. (ediff-file-remote-p): use file-remote-p, if available. (ediff-listable-file): new function. (ediff-file-attributes): use ediff-listable-file. * ediff-mult.el (ediff-meta-insert-file-info1): use ediff-listable-file. * ediff-ptch.el (ediff-prompt-for-patch-file): use ediff-coding-system-for-read. (ediff-patch-file-internal): use ediff-coding-system-for-write. * ediff-diff.el (ediff-coding-system-for-read): moved to ediff-init.el. (ediff-match-diff3-line,ediff-get-diff3-group): improved pattern. * ediff.el: Date of last update, copyright years. * ediff-wind (ediff-setup-control-frame): Nill->nil. * ediff.texi: added clarifications, acknowledgements.

+
鐃緒申��申鐃緒申/* How much read-only Lisp storage a dumped Emacs needs.
+
鐃緒申��申鐃緒申   Copyright (C) 1993 Free Software Foundation, Inc.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申This file is part of GNU Emacs.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申GNU Emacs 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.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申GNU Emacs 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 GNU Emacs; see the file COPYING.  If not, write to
+
鐃緒申��申鐃緒申the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+
鐃緒申��申鐃緒申Boston, MA 02111-1307, USA.  */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/* Define PURESIZE, the number of bytes of pure Lisp code to leave space for.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申   At one point, this was defined in config.h, meaning that changing
+
鐃緒申��申鐃緒申   PURESIZE would make Make recompile all of Emacs.  But only a few
+
鐃緒申��申鐃緒申   files actually use PURESIZE, so we split it out to its own .h file.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申   Make sure to include this file after config.h, since that tells us
+
鐃緒申��申鐃緒申   whether we are running X windows, which tells us how much pure
+
鐃緒申��申鐃緒申   storage to allocate.  */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/* First define a measure of the amount of data we have.  */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/* A system configuration file may set this to request a certain extra
+
鐃緒申��申鐃緒申   amount of storage.  This is a lot more update-robust that defining
+
鐃緒申��申鐃緒申   BASE_PURESIZE or even PURESIZE directly.  */
+
鐃緒申��申鐃緒申#ifndef SYSTEM_PURESIZE_EXTRA
+
鐃緒申��申鐃緒申#define SYSTEM_PURESIZE_EXTRA 0
+
鐃緒申��申鐃緒申#endif
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#ifndef SITELOAD_PURESIZE_EXTRA
+
鐃緒申��申鐃緒申#define SITELOAD_PURESIZE_EXTRA 0
+
鐃緒申��申鐃緒申#endif
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#ifndef BASE_PURESIZE
+
鐃緒申��申鐃緒申#define BASE_PURESIZE (700000 + SYSTEM_PURESIZE_EXTRA + SITELOAD_PURESIZE_EXTRA)
+
鐃緒申��申鐃緒申#endif
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/* Increase BASE_PURESIZE by a ratio depending on the machine's word size.  */
+
鐃緒申��申鐃緒申#ifndef PURESIZE_RATIO
+
鐃緒申��申鐃緒申#if VALBITS + GCTYPEBITS + 1 > 32
+
鐃緒申��申鐃緒申#define PURESIZE_RATIO 8/5	/* Don't surround with `()'. */
+
鐃緒申��申鐃緒申#else
+
鐃緒申��申鐃緒申#define PURESIZE_RATIO 1
+
鐃緒申��申鐃緒申#endif
+
鐃緒申��申鐃緒申#endif
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/* This is the actual size in bytes to allocate.  */
+
鐃緒申��申鐃緒申#ifndef PURESIZE
+
鐃緒申��申鐃緒申#define PURESIZE  (BASE_PURESIZE * PURESIZE_RATIO)
+
鐃緒申��申鐃緒申#endif
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/* Signal an error if OBJ is pure.  */
+
鐃緒申��申鐃緒申#define CHECK_IMPURE(obj) \
+
鐃緒申��申鐃緒申  { if (PURE_P (obj))	  \
+
鐃緒申��申鐃緒申      pure_write_error (); }
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申extern void pure_write_error P_ ((void));
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/* Define PURE_P.  */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#ifdef VIRT_ADDR_VARIES
+
鐃緒申��申鐃緒申/* For machines like APOLLO where text and data can go anywhere
+
鐃緒申��申鐃緒申   in virtual memory.  */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申extern EMACS_INT pure[];
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#define PURE_P(obj) \
+
鐃緒申��申鐃緒申 ((PNTR_COMPARISON_TYPE) XPNTR (obj) < (PNTR_COMPARISON_TYPE) ((char *) pure + PURESIZE) \
+
鐃緒申��申鐃緒申  && (PNTR_COMPARISON_TYPE) XPNTR (obj) >= (PNTR_COMPARISON_TYPE) pure)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#else /* not VIRT_ADDR_VARIES */
+
鐃緒申��申鐃緒申#ifdef PNTR_COMPARISON_TYPE
+
鐃緒申��申鐃緒申/* When PNTR_COMPARISON_TYPE is not the default (unsigned int).  */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申extern char my_edata[];
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#define PURE_P(obj) \
+
鐃緒申��申鐃緒申  ((PNTR_COMPARISON_TYPE) XPNTR (obj) < (PNTR_COMPARISON_TYPE) my_edata)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#else /* not VIRT_ADDRESS_VARIES, not PNTR_COMPARISON_TYPE */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申extern char my_edata[];
+
鐃緒申��申鐃緒申    
+
鐃緒申��申鐃緒申#define PURE_P(obj) \
+
鐃緒申��申鐃緒申  (XPNTR (obj) < (unsigned int) my_edata)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#endif /* PNTR_COMPARISON_TYPE */
+
鐃緒申��申鐃緒申#endif /* VIRT_ADDRESS_VARIES */