aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
authorEli Zaretskii2017-09-09 18:50:50 +0300
committerEli Zaretskii2017-09-09 18:50:50 +0300
commit2b84c1666274edcb6b810649fa0d6fc09e9e7a66 (patch)
tree77c5d68dfc12306eb39b9328a3960eba411562cf /src/data.c
parente91da7f8f2523057fa93ea4aace36863315abb5b (diff)
downloademacs-2b84c1666274edcb6b810649fa0d6fc09e9e7a66.tar.gz
emacs-2b84c1666274edcb6b810649fa0d6fc09e9e7a66.zip
Fix compilation warnings in MinGW64 build using GCC 7
Reported by Richard Copley <rcopley@gmail.com>. * src/w32heap.c (init_heap): Declare enable_lfh only for mingw.org's MinGW build. * src/w32console.c (w32con_write_glyphs): * src/unexw32.c (get_section_info, COPY_CHUNK, unexec): Fix some mismatches of data type vs format spec. * src/w32fns.c (compute_tip_xy): * src/w32proc.c (stop_timer_thread): * src/w32notify.c (remove_watch): * src/eval.c (internal_lisp_condition_case): * src/editfns.c (Ftranslate_region_internal): * src/data.c (Fmake_variable_buffer_local, cons_to_unsigned) (cons_to_signed): * src/buffer.c (fix_overlays_before): Initialize variables to avoid compiler warnings. * lib-src/etags.c (TeX_commands, process_file_name): Initialize variables to avoid compilation warnings.
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 559844b03fd..87010e3fb28 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; 1826 bool forwarded = false;
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; 2610 uintmax_t val = max;
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; 2664 intmax_t val = max;
2665 if (INTEGERP (c)) 2665 if (INTEGERP (c))
2666 { 2666 {
2667 val = XINT (c); 2667 val = XINT (c);