diff options
| author | Paul Eggert | 2017-09-09 11:10:35 -0700 |
|---|---|---|
| committer | Paul Eggert | 2017-09-09 11:11:51 -0700 |
| commit | d63123542ffd60dbec0c9038144329b99f0f1d65 (patch) | |
| tree | 8338da31228034a2e5db48e8e0840d0d126e51ed /src/data.c | |
| parent | 715f0835b5a0c17f2fcb43d1e75d55adce1639a5 (diff) | |
| download | emacs-d63123542ffd60dbec0c9038144329b99f0f1d65.tar.gz emacs-d63123542ffd60dbec0c9038144329b99f0f1d65.zip | |
Improve --enable-gcc-warnings for MinGW64
This partially reverts my 2016-05-30 patch. Apparently MinGW64
still requires pacifications that GCC 7.1.1 x86-64 (Fedora 26)
does not. Also, pacify tparam.c, which isn’t used on Fedora.
* lib-src/etags.c (process_file_name, TeX_commands):
* src/buffer.c (fix_overlays_before):
* src/data.c (Fmake_variable_buffer_local, cons_to_unsigned)
(cons_to_signed):
* src/editfns.c (Ftranslate_region_internal):
Prefer UNINIT to some stray value, as this simplifies
code-reading later.
* src/eval.c (CACHEABLE): New macro.
(internal_lisp_condition_case): Use it.
* src/tparam.c (tparam1): Use FALLTHROUGH to pacify GCC.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/data.c b/src/data.c index 87010e3fb28..c9818b6b20f 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -1823,7 +1823,7 @@ The function `default-value' gets the default value and `set-default' sets it. | |||
| 1823 | struct Lisp_Symbol *sym; | 1823 | struct Lisp_Symbol *sym; |
| 1824 | struct Lisp_Buffer_Local_Value *blv = NULL; | 1824 | struct Lisp_Buffer_Local_Value *blv = NULL; |
| 1825 | union Lisp_Val_Fwd valcontents; | 1825 | union Lisp_Val_Fwd valcontents; |
| 1826 | bool forwarded = false; | 1826 | bool forwarded UNINIT; |
| 1827 | 1827 | ||
| 1828 | CHECK_SYMBOL (variable); | 1828 | CHECK_SYMBOL (variable); |
| 1829 | sym = XSYMBOL (variable); | 1829 | sym = XSYMBOL (variable); |
| @@ -2607,7 +2607,7 @@ uintmax_t | |||
| 2607 | cons_to_unsigned (Lisp_Object c, uintmax_t max) | 2607 | cons_to_unsigned (Lisp_Object c, uintmax_t max) |
| 2608 | { | 2608 | { |
| 2609 | bool valid = false; | 2609 | bool valid = false; |
| 2610 | uintmax_t val = max; | 2610 | uintmax_t val UNINIT; |
| 2611 | if (INTEGERP (c)) | 2611 | if (INTEGERP (c)) |
| 2612 | { | 2612 | { |
| 2613 | valid = XINT (c) >= 0; | 2613 | valid = XINT (c) >= 0; |
| @@ -2661,7 +2661,7 @@ intmax_t | |||
| 2661 | cons_to_signed (Lisp_Object c, intmax_t min, intmax_t max) | 2661 | cons_to_signed (Lisp_Object c, intmax_t min, intmax_t max) |
| 2662 | { | 2662 | { |
| 2663 | bool valid = false; | 2663 | bool valid = false; |
| 2664 | intmax_t val = max; | 2664 | intmax_t val UNINIT; |
| 2665 | if (INTEGERP (c)) | 2665 | if (INTEGERP (c)) |
| 2666 | { | 2666 | { |
| 2667 | val = XINT (c); | 2667 | val = XINT (c); |