Mercurial > emacs
changeset 13778:7b2f71009e4c
(PURE_P): New macro (three definitions).
(CHECK_IMPURE): Use PURE_P.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 21 Dec 1995 17:13:56 +0000 |
| parents | 5e0cbd5fcb46 |
| children | 5abcd2653057 |
| files | src/puresize.h |
| diffstat | 1 files changed, 22 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/src/puresize.h Thu Dec 21 17:13:25 1995 +0000 +++ b/src/puresize.h Thu Dec 21 17:13:56 1995 +0000 @@ -62,31 +62,38 @@ #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 (); } + +/* Define PURE_P. */ + #ifdef VIRT_ADDR_VARIES - /* For machines like APOLLO where text and data can go anywhere in virtual memory. */ -#define CHECK_IMPURE(obj) \ - { extern EMACS_INT pure[]; \ - if ((PNTR_COMPARISON_TYPE) XPNTR (obj) < (PNTR_COMPARISON_TYPE) ((char *) pure + PURESIZE) \ - && (PNTR_COMPARISON_TYPE) XPNTR (obj) >= (PNTR_COMPARISON_TYPE) pure) \ - pure_write_error (); } + +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). */ -/* when PNTR_COMPARISON_TYPE is not the default (unsigned int) */ -#define CHECK_IMPURE(obj) \ - { extern char my_edata[]; \ - if ((PNTR_COMPARISON_TYPE) XPNTR (obj) < (PNTR_COMPARISON_TYPE) my_edata) \ - pure_write_error (); } +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 */ -#define CHECK_IMPURE(obj) \ - { extern char my_edata[]; \ - if (XPNTR (obj) < (unsigned int) my_edata) \ - pure_write_error (); } +extern char my_edata[]; + +#define PURE_P(obj) \ + (XPNTR (obj) < (unsigned int) my_edata) #endif /* PNTR_COMPARISON_TYPE */ #endif /* VIRT_ADDRESS_VARIES */