aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorRichard M. Stallman1994-09-17 00:41:40 +0000
committerRichard M. Stallman1994-09-17 00:41:40 +0000
commit5647f9794b2e4770399556c7d4a4c6fc45dfb3f5 (patch)
tree8514e540fd3bbe006711a46eba24ed471a68a617 /src
parent1687325e19705137657af1e0170299708251cc21 (diff)
downloademacs-5647f9794b2e4770399556c7d4a4c6fc45dfb3f5.tar.gz
emacs-5647f9794b2e4770399556c7d4a4c6fc45dfb3f5.zip
(CHECK_IMPURE, all versions): Use EMACS_INT.
Diffstat (limited to 'src')
-rw-r--r--src/puresize.h6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/puresize.h b/src/puresize.h
index 0391bc380b8..3aa6e75c2dc 100644
--- a/src/puresize.h
+++ b/src/puresize.h
@@ -40,7 +40,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
40/* For machines like APOLLO where text and data can go anywhere 40/* For machines like APOLLO where text and data can go anywhere
41 in virtual memory. */ 41 in virtual memory. */
42#define CHECK_IMPURE(obj) \ 42#define CHECK_IMPURE(obj) \
43 { extern int pure[]; \ 43 { extern EMACS_INT pure[]; \
44 if ((PNTR_COMPARISON_TYPE) XPNTR (obj) < (PNTR_COMPARISON_TYPE) ((char *) pure + PURESIZE) \ 44 if ((PNTR_COMPARISON_TYPE) XPNTR (obj) < (PNTR_COMPARISON_TYPE) ((char *) pure + PURESIZE) \
45 && (PNTR_COMPARISON_TYPE) XPNTR (obj) >= (PNTR_COMPARISON_TYPE) pure) \ 45 && (PNTR_COMPARISON_TYPE) XPNTR (obj) >= (PNTR_COMPARISON_TYPE) pure) \
46 pure_write_error (); } 46 pure_write_error (); }
@@ -50,14 +50,14 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
50 50
51/* when PNTR_COMPARISON_TYPE is not the default (unsigned int) */ 51/* when PNTR_COMPARISON_TYPE is not the default (unsigned int) */
52#define CHECK_IMPURE(obj) \ 52#define CHECK_IMPURE(obj) \
53 { extern int my_edata; \ 53 { extern EMACS_INT my_edata; \
54 if ((PNTR_COMPARISON_TYPE) XPNTR (obj) < (PNTR_COMPARISON_TYPE) &my_edata) \ 54 if ((PNTR_COMPARISON_TYPE) XPNTR (obj) < (PNTR_COMPARISON_TYPE) &my_edata) \
55 pure_write_error (); } 55 pure_write_error (); }
56 56
57#else /* not VIRT_ADDRESS_VARIES, not PNTR_COMPARISON_TYPE */ 57#else /* not VIRT_ADDRESS_VARIES, not PNTR_COMPARISON_TYPE */
58 58
59#define CHECK_IMPURE(obj) \ 59#define CHECK_IMPURE(obj) \
60 { extern int my_edata; \ 60 { extern EMACS_INT my_edata; \
61 if (XPNTR (obj) < (unsigned int) &my_edata) \ 61 if (XPNTR (obj) < (unsigned int) &my_edata) \
62 pure_write_error (); } 62 pure_write_error (); }
63 63