[Emacs-diffs] /srv/bzr/emacs/trunk r109301: Export DIRECTORY_SEP, TYPEMASK, VALMASK to GDB.

[Paul Eggert]

------------------------------------------------------------
revno: 109301
committer: Paul Eggert <address@hidden>
branch nick: trunk
timestamp: Mon 2012-07-30 11:44:51 -0700
message:
  Export DIRECTORY_SEP, TYPEMASK, VALMASK to GDB.
  
  * alloc.c (gdb_make_enums_visible) [USE_LSB_TAG]: Add lsb_bits.
  * lisp.h (enum lsb_bits) [USE_LSB_TAG]: New enum, for
  gdb_make_enums_visible.
  (TYPEMASK, VALMASK) [USE_LSB_TAGS]: Now enum constants, not macros.
  (DIRECTORY_SEP): Now a constant, not a macro.
modified:
  src/ChangeLog
  src/alloc.c
  src/lisp.h

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2012-07-30 17:07:33 +0000
+++ b/src/ChangeLog     2012-07-30 18:44:51 +0000
@@ -1,3 +1,12 @@
+2012-07-30  Paul Eggert  <address@hidden>
+
+       Export DIRECTORY_SEP, TYPEMASK, VALMASK to GDB.
+       * alloc.c (gdb_make_enums_visible) [USE_LSB_TAG]: Add lsb_bits.
+       * lisp.h (enum lsb_bits) [USE_LSB_TAG]: New enum, for
+       gdb_make_enums_visible.
+       (TYPEMASK, VALMASK) [USE_LSB_TAGS]: Now enum constants, not macros.
+       (DIRECTORY_SEP): Now a constant, not a macro.
+
 2012-07-30  Eli Zaretskii  <address@hidden>
 
        * w32fns.c (w32_wnd_proc): Pass w32_keyboard_codepage to

=== modified file 'src/alloc.c'
--- a/src/alloc.c       2012-07-30 05:41:10 +0000
+++ b/src/alloc.c       2012-07-30 18:44:51 +0000
@@ -6882,4 +6882,7 @@
   enum MAX_ALLOCA MAX_ALLOCA;
   enum More_Lisp_Bits More_Lisp_Bits;
   enum pvec_type pvec_type;
+#if USE_LSB_TAG
+  enum lsb_bits lsb_bits;
+#endif
 } const EXTERNALLY_VISIBLE gdb_make_enums_visible = {0};

=== modified file 'src/lisp.h'
--- a/src/lisp.h        2012-07-30 15:30:40 +0000
+++ b/src/lisp.h        2012-07-30 18:44:51 +0000
@@ -398,8 +398,11 @@
 
 #if USE_LSB_TAG
 
-static int const VALMASK = -1 << GCTYPEBITS;
-#define TYPEMASK ((1 << GCTYPEBITS) - 1)
+enum lsb_bits
+  {
+    TYPEMASK = (1 << GCTYPEBITS) - 1,
+    VALMASK = ~ TYPEMASK
+  };
 #define XTYPE(a) ((enum Lisp_Type) (XLI (a) & TYPEMASK))
 #define XINT(a) (XLI (a) >> INTTYPEBITS)
 #define XUINT(a) ((EMACS_UINT) XLI (a) >> INTTYPEBITS)
@@ -3301,7 +3304,7 @@
    in addition to a device separator.  Set the path separator
    to '/', and don't test for a device separator in IS_ANY_SEP.  */
 
-#define DIRECTORY_SEP '/'
+static char const DIRECTORY_SEP = '/';
 #ifndef IS_DIRECTORY_SEP
 #define IS_DIRECTORY_SEP(_c_) ((_c_) == DIRECTORY_SEP)
 #endif