aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorPaul Eggert2012-07-30 11:44:51 -0700
committerPaul Eggert2012-07-30 11:44:51 -0700
commitc32af1e4a04ef689097f73430982b28392d72372 (patch)
tree0c9f154afec3197c03ff1bd18b5c04f28944344f /src
parent302fc036e8b6305a45aca868e0001dd8fb3ed123 (diff)
downloademacs-c32af1e4a04ef689097f73430982b28392d72372.tar.gz
emacs-c32af1e4a04ef689097f73430982b28392d72372.zip
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.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog9
-rw-r--r--src/alloc.c3
-rw-r--r--src/lisp.h9
3 files changed, 18 insertions, 3 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index be60f3d22b3..7aa4982f6ca 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,12 @@
12012-07-30 Paul Eggert <eggert@cs.ucla.edu>
2
3 Export DIRECTORY_SEP, TYPEMASK, VALMASK to GDB.
4 * alloc.c (gdb_make_enums_visible) [USE_LSB_TAG]: Add lsb_bits.
5 * lisp.h (enum lsb_bits) [USE_LSB_TAG]: New enum, for
6 gdb_make_enums_visible.
7 (TYPEMASK, VALMASK) [USE_LSB_TAGS]: Now enum constants, not macros.
8 (DIRECTORY_SEP): Now a constant, not a macro.
9
12012-07-30 Eli Zaretskii <eliz@gnu.org> 102012-07-30 Eli Zaretskii <eliz@gnu.org>
2 11
3 * w32fns.c (w32_wnd_proc): Pass w32_keyboard_codepage to 12 * w32fns.c (w32_wnd_proc): Pass w32_keyboard_codepage to
diff --git a/src/alloc.c b/src/alloc.c
index c5ed1980d7c..4227b168c6b 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -6882,4 +6882,7 @@ union
6882 enum MAX_ALLOCA MAX_ALLOCA; 6882 enum MAX_ALLOCA MAX_ALLOCA;
6883 enum More_Lisp_Bits More_Lisp_Bits; 6883 enum More_Lisp_Bits More_Lisp_Bits;
6884 enum pvec_type pvec_type; 6884 enum pvec_type pvec_type;
6885#if USE_LSB_TAG
6886 enum lsb_bits lsb_bits;
6887#endif
6885} const EXTERNALLY_VISIBLE gdb_make_enums_visible = {0}; 6888} const EXTERNALLY_VISIBLE gdb_make_enums_visible = {0};
diff --git a/src/lisp.h b/src/lisp.h
index 1b88a51d2d4..2690ab90cb0 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -398,8 +398,11 @@ enum More_Lisp_Bits
398 398
399#if USE_LSB_TAG 399#if USE_LSB_TAG
400 400
401static int const VALMASK = -1 << GCTYPEBITS; 401enum lsb_bits
402#define TYPEMASK ((1 << GCTYPEBITS) - 1) 402 {
403 TYPEMASK = (1 << GCTYPEBITS) - 1,
404 VALMASK = ~ TYPEMASK
405 };
403#define XTYPE(a) ((enum Lisp_Type) (XLI (a) & TYPEMASK)) 406#define XTYPE(a) ((enum Lisp_Type) (XLI (a) & TYPEMASK))
404#define XINT(a) (XLI (a) >> INTTYPEBITS) 407#define XINT(a) (XLI (a) >> INTTYPEBITS)
405#define XUINT(a) ((EMACS_UINT) XLI (a) >> INTTYPEBITS) 408#define XUINT(a) ((EMACS_UINT) XLI (a) >> INTTYPEBITS)
@@ -3301,7 +3304,7 @@ extern void init_system_name (void);
3301 in addition to a device separator. Set the path separator 3304 in addition to a device separator. Set the path separator
3302 to '/', and don't test for a device separator in IS_ANY_SEP. */ 3305 to '/', and don't test for a device separator in IS_ANY_SEP. */
3303 3306
3304#define DIRECTORY_SEP '/' 3307static char const DIRECTORY_SEP = '/';
3305#ifndef IS_DIRECTORY_SEP 3308#ifndef IS_DIRECTORY_SEP
3306#define IS_DIRECTORY_SEP(_c_) ((_c_) == DIRECTORY_SEP) 3309#define IS_DIRECTORY_SEP(_c_) ((_c_) == DIRECTORY_SEP)
3307#endif 3310#endif