procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Avoid compilation warnings in optimized builds

Browse source 
* src/process.c (Fmake_network_process):
* src/image.c (xbm_scan, gif_load):
* src/fileio.c (Frename_file):
* src/data.c (Fmake_local_variable):
* src/buffer.c (fix_start_end_in_overlays):
* lib-src/etags.c (process_file_name): Mark variables with UNINIT
to avoid compiler warnings in optimized builds.
This commit is contained in:
Eli Zaretskii 2017-10-15 19:20:58 +03:00
parent f79382819c
commit 325dfdae13
6 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib-src/etags.c
View file

@ -1530,7 +1530,7 @@ process_file_name (char *file, language *lang)
fdesc *fdp; fdesc *fdp;
compressor *compr; compressor *compr;
char *compressed_name, *uncompressed_name; char *compressed_name, *uncompressed_name;
char *ext, *real_name UNINIT, *tmp_name; char *ext, *real_name UNINIT, *tmp_name UNINIT;
int retval; int retval;
canonicalize_filename (file); canonicalize_filename (file);

4
src/buffer.c
View file

@ -3616,8 +3616,8 @@ void
fix_start_end_in_overlays (register ptrdiff_t start, register ptrdiff_t end) fix_start_end_in_overlays (register ptrdiff_t start, register ptrdiff_t end)
{ {
Lisp_Object overlay; Lisp_Object overlay;
struct Lisp_Overlay *before_list; struct Lisp_Overlay *before_list UNINIT;
struct Lisp_Overlay *after_list; struct Lisp_Overlay *after_list UNINIT;
/* These are either nil, indicating that before_list or after_list /* These are either nil, indicating that before_list or after_list
should be assigned, or the cons cell the cdr of which should be should be assigned, or the cons cell the cdr of which should be
assigned. */ assigned. */

2
src/data.c
View file

@ -1888,7 +1888,7 @@ Instead, use `add-hook' and specify t for the LOCAL argument. */)
(Lisp_Object variable) (Lisp_Object variable)
{ {
Lisp_Object tem; Lisp_Object tem;
bool forwarded; bool forwarded UNINIT;
union Lisp_Val_Fwd valcontents; union Lisp_Val_Fwd valcontents;
struct Lisp_Symbol *sym; struct Lisp_Symbol *sym;
struct Lisp_Buffer_Local_Value *blv = NULL; struct Lisp_Buffer_Local_Value *blv = NULL;

2
src/fileio.c
View file

@ -2296,7 +2296,7 @@ This is what happens in interactive use with M-x. */)
bool plain_rename = (case_only_rename bool plain_rename = (case_only_rename
|| (!NILP (ok_if_already_exists) || (!NILP (ok_if_already_exists)
&& !INTEGERP (ok_if_already_exists))); && !INTEGERP (ok_if_already_exists)));
int rename_errno; int rename_errno UNINIT;
if (!plain_rename) if (!plain_rename)
{ {
if (renameat_noreplace (AT_FDCWD, SSDATA (encoded_file), if (renameat_noreplace (AT_FDCWD, SSDATA (encoded_file),

4
src/image.c
View file

@ -2574,7 +2574,7 @@ xbm_image_p (Lisp_Object object)
static int static int
xbm_scan (char **s, char *end, char *sval, int *ival) xbm_scan (char **s, char *end, char *sval, int *ival)
{ {
unsigned char c; unsigned char c UNINIT;
loop: loop:
@ -7839,7 +7839,7 @@ gif_load (struct frame *f, struct image *img)
init_color_table (); init_color_table ();
#ifndef USE_CAIRO #ifndef USE_CAIRO
unsigned long bgcolor; unsigned long bgcolor UNINIT;
if (STRINGP (specified_bg)) if (STRINGP (specified_bg))
bgcolor = x_alloc_image_color (f, img, specified_bg, bgcolor = x_alloc_image_color (f, img, specified_bg,
FRAME_BACKGROUND_PIXEL (f)); FRAME_BACKGROUND_PIXEL (f));

2
src/process.c
View file

@ -3830,7 +3830,7 @@ usage: (make-network-process &rest ARGS) */)
Lisp_Object proc; Lisp_Object proc;
Lisp_Object contact; Lisp_Object contact;
struct Lisp_Process *p; struct Lisp_Process *p;
const char *portstring; const char *portstring UNINIT;
ptrdiff_t portstringlen ATTRIBUTE_UNUSED; ptrdiff_t portstringlen ATTRIBUTE_UNUSED;
char portbuf[INT_BUFSIZE_BOUND (EMACS_INT)]; char portbuf[INT_BUFSIZE_BOUND (EMACS_INT)];
#ifdef HAVE_LOCAL_SOCKETS #ifdef HAVE_LOCAL_SOCKETS