* lisp.h (EMACS_INT, EMACS_UINT, BITS_PER_EMACS_INT, pI): Simplify.

diff --git a/src/ChangeLog b/src/ChangeLog
index 2b71a06ae4acaf6512f83b12d17ae10470ee11f6..d75ec22b9f99739f5b98eab2e318e8c70d738f97 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2011-04-30  Paul Eggert  <eggert@cs.ucla.edu>
 
+       * lisp.h (EMACS_INT, EMACS_UINT, BITS_PER_EMACS_INT, pI): Simplify.
+
        * dbusbind.c: Do not use XPNTR on a value that may be an integer.
        Reported by Stefan Monnier in
        <http://lists.gnu.org/archive/html/emacs-devel/2011-04/msg00919.html>.

diff --git a/src/lisp.h b/src/lisp.h
index 41848ebae8ef83c7efb50bed51edd88da162d854..76938a49ac4f3d5d59b0b72e055709c1817d620c 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -35,33 +35,23 @@ extern void check_cons_list (void);
 #endif
 
 /* These are default choices for the types to use.  */
-#ifdef _LP64
 #ifndef EMACS_INT
-#define EMACS_INT long
-#define BITS_PER_EMACS_INT BITS_PER_LONG
-#define pI "l"
-#endif
-#ifndef EMACS_UINT
-#define EMACS_UINT unsigned long
-#endif
-#elif /* !_LP64 && */ BITS_PER_LONG < BITS_PER_LONG_LONG
-#ifndef EMACS_INT
-#define EMACS_INT long long
-#define BITS_PER_EMACS_INT BITS_PER_LONG_LONG
-#define pI "ll"
-#endif
-#ifndef EMACS_UINT
-#define EMACS_UINT unsigned long long
-#endif
-#else /* ! (_LP64 || BITS_PER_LONG < BITS_PER_LONG_LONG) */
-#ifndef EMACS_INT
-#define EMACS_INT int
-#define BITS_PER_EMACS_INT BITS_PER_INT
-#define pI ""
+# if BITS_PER_LONG < BITS_PER_LONG_LONG
+#  define EMACS_INT long long
+#  define BITS_PER_EMACS_INT BITS_PER_LONG_LONG
+#  define pI "ll"
+# elif BITS_PER_INT < BITS_PER_LONG
+#  define EMACS_INT long
+#  define BITS_PER_EMACS_INT BITS_PER_LONG
+#  define pI "l"
+# else
+#  define EMACS_INT int
+#  define BITS_PER_EMACS_INT BITS_PER_INT
+#  define pI ""
+# endif
 #endif
 #ifndef EMACS_UINT
-#define EMACS_UINT unsigned int
-#endif
+# define EMACS_UINT unsigned EMACS_INT
 #endif
 
 /* Extra internal type checking?  */