aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
authorPaul Eggert2017-09-09 11:10:35 -0700
committerPaul Eggert2017-09-09 11:11:51 -0700
commitd63123542ffd60dbec0c9038144329b99f0f1d65 (patch)
tree8338da31228034a2e5db48e8e0840d0d126e51ed /src/data.c
parent715f0835b5a0c17f2fcb43d1e75d55adce1639a5 (diff)
downloademacs-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.c6
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
2607cons_to_unsigned (Lisp_Object c, uintmax_t max) 2607cons_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
2661cons_to_signed (Lisp_Object c, intmax_t min, intmax_t max) 2661cons_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);