diff options
| author | Paul Eggert | 2012-07-30 11:44:51 -0700 |
|---|---|---|
| committer | Paul Eggert | 2012-07-30 11:44:51 -0700 |
| commit | c32af1e4a04ef689097f73430982b28392d72372 (patch) | |
| tree | 0c9f154afec3197c03ff1bd18b5c04f28944344f /src | |
| parent | 302fc036e8b6305a45aca868e0001dd8fb3ed123 (diff) | |
| download | emacs-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/ChangeLog | 9 | ||||
| -rw-r--r-- | src/alloc.c | 3 | ||||
| -rw-r--r-- | src/lisp.h | 9 |
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 @@ | |||
| 1 | 2012-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 | |||
| 1 | 2012-07-30 Eli Zaretskii <eliz@gnu.org> | 10 | 2012-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 | ||
| 401 | static int const VALMASK = -1 << GCTYPEBITS; | 401 | enum 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 '/' | 3307 | static 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 |