Avoid compilation warnings in optimized builds

* 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.

diff --git a/lib-src/etags.c b/lib-src/etags.c
index 009cba528d75388845d6ad955017e3a1e4f06759..cc7631f647e961daac4589908bf22bf3cf244adc 100644 (file)
--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -1530,7 +1530,7 @@ process_file_name (char *file, language *lang)
   fdesc *fdp;
   compressor *compr;
   char *compressed_name, *uncompressed_name;
-  char *ext, *real_name UNINIT, *tmp_name;
+  char *ext, *real_name UNINIT, *tmp_name UNINIT;
   int retval;
 
   canonicalize_filename (file);

diff --git a/src/buffer.c b/src/buffer.c
index cc6021bfb5df4213c7048b3d64db800e01748339..1c8b46350861b65aee9c30ba8ae0892c236e3592 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -3616,8 +3616,8 @@ void
 fix_start_end_in_overlays (register ptrdiff_t start, register ptrdiff_t end)
 {
   Lisp_Object overlay;
-  struct Lisp_Overlay *before_list;
-  struct Lisp_Overlay *after_list;
+  struct Lisp_Overlay *before_list UNINIT;
+  struct Lisp_Overlay *after_list UNINIT;
   /* These are either nil, indicating that before_list or after_list
      should be assigned, or the cons cell the cdr of which should be
      assigned.  */

diff --git a/src/data.c b/src/data.c
index e070be6c208d008bb947f0aae5813d771f9693b4..ef7210fbfa0db9447ec5070691f471a09c2cf340 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -1888,7 +1888,7 @@ Instead, use `add-hook' and specify t for the LOCAL argument.  */)
   (Lisp_Object variable)
 {
   Lisp_Object tem;
-  bool forwarded;
+  bool forwarded UNINIT;
   union Lisp_Val_Fwd valcontents;
   struct Lisp_Symbol *sym;
   struct Lisp_Buffer_Local_Value *blv = NULL;

diff --git a/src/fileio.c b/src/fileio.c
index e57bf46015cfeb6927f4aff6a63c704a0b71473c..b7df38c8570915a23b0c233ec04c37bf83b41c4b 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2296,7 +2296,7 @@ This is what happens in interactive use with M-x.  */)
   bool plain_rename = (case_only_rename
                       || (!NILP (ok_if_already_exists)
                           && !INTEGERP (ok_if_already_exists)));
-  int rename_errno;
+  int rename_errno UNINIT;
   if (!plain_rename)
     {
       if (renameat_noreplace (AT_FDCWD, SSDATA (encoded_file),

diff --git a/src/image.c b/src/image.c
index 3dac7086cb44daa57c15dbcef45c2210a3dd7699..cd4901b3d4f2a73ff167cef6b0a8585dff557802 100644 (file)
--- a/src/image.c
+++ b/src/image.c
@@ -2574,7 +2574,7 @@ xbm_image_p (Lisp_Object object)
 static int
 xbm_scan (char **s, char *end, char *sval, int *ival)
 {
-  unsigned char c;
+  unsigned char c UNINIT;
 
  loop:
 
@@ -7839,7 +7839,7 @@ gif_load (struct frame *f, struct image *img)
   init_color_table ();
 
 #ifndef USE_CAIRO
-  unsigned long bgcolor;
+  unsigned long bgcolor UNINIT;
   if (STRINGP (specified_bg))
     bgcolor = x_alloc_image_color (f, img, specified_bg,
                                   FRAME_BACKGROUND_PIXEL (f));

diff --git a/src/process.c b/src/process.c
index 05feba7325377863b121fd7fbf3ac2f36166cab1..943cb2a104805304c5d751624ca20f321ee2b2be 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -3830,7 +3830,7 @@ usage: (make-network-process &rest ARGS)  */)
   Lisp_Object proc;
   Lisp_Object contact;
   struct Lisp_Process *p;
-  const char *portstring;
+  const char *portstring UNINIT;
   ptrdiff_t portstringlen ATTRIBUTE_UNUSED;
   char portbuf[INT_BUFSIZE_BOUND (EMACS_INT)];
 #ifdef HAVE_LOCAL_SOCKETS