commit/XEmacs: kehoea: Some changes to eliminate warnings with Apple clang version 1.7.

[email protected] Sat, 18 Oct 2014 20:48:44 -0000
Newsgroups gmane.emacs.xemacs.patches
Message-ID <[email protected]>
1 new commit in XEmacs:

https://bitbucket.org/xemacs/xemacs/commits/b3824b7f5627/
Changeset:   b3824b7f5627
User:        kehoea
Date:        2014-10-18 20:48:10+00:00
Summary:     Some changes to eliminate warnings with Apple clang version 1.7.

src/ChangeLog addition:

2014-10-18  Aidan Kehoe  <[email protected]>

	Some changes to eliminate warnings with Apple clang version 1.7.
	* cm.c (send_string_to_tty_console):
	* doprnt.c (doprnt_2):
	* doprnt.c (parse_off_posnum):
	* event-stream.c (dribble_out_event):
	Cast various calls to Lstream_putc() to void when the result isn't
	being used, for the sake of clang.
	* lisp.h:
	Declare #'replace here too, it's used in event-stream.c.
	* lisp.h (ALLOCA):
	* lisp.h (MALLOC_OR_ALLOCA):
	Cast a couple of zeros in the context of the ternary operator to
	void to prevent unused value warnings with clang.
	* sysdep.c (child_setup_tty):
	* text.h (ASSERT_ASCTEXT_ASCII_LEN):
	Use DO_NOTHING in these files to quieten the compiler.

lib-src/ChangeLog addition:

2014-10-18  Aidan Kehoe  <[email protected]>

	* ootags.c (substitute):
	Cast the result of strlen to int before comparing it with a signed
	value, for the sake of compiler warnings.
Affected #:  9 files

diff -r ba0ff364bd94973aad604c1ebf39007c47aefef1 -r b3824b7f5627c37e193a69108848ccbd480d6817 lib-src/ChangeLog
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
@@ -1,3 +1,9 @@
+2014-10-18  Aidan Kehoe  <[email protected]>
+
+	* ootags.c (substitute):
+	Cast the result of strlen to int before comparing it with a signed
+	value, for the sake of compiler warnings.
+
 2013-06-23  Stephen J. Turnbull  <[email protected]>
 
 	* XEmacs 21.5.34 "kale" is released.

diff -r ba0ff364bd94973aad604c1ebf39007c47aefef1 -r b3824b7f5627c37e193a69108848ccbd480d6817 lib-src/ootags.c
--- a/lib-src/ootags.c
+++ b/lib-src/ootags.c
@@ -4869,7 +4869,7 @@
       *t++ = *out;
   *t = '\0';
 
-  if (DEBUG && (t > result + size || t - result != strlen (result)))
+  if (DEBUG && (t > result + size || t - result != (int) (strlen (result))))
     abort ();
 
   return result;

diff -r ba0ff364bd94973aad604c1ebf39007c47aefef1 -r b3824b7f5627c37e193a69108848ccbd480d6817 src/ChangeLog
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,22 @@
+2014-10-18  Aidan Kehoe  <[email protected]>
+
+	Some changes to eliminate warnings with Apple clang version 1.7.
+	* cm.c (send_string_to_tty_console):
+	* doprnt.c (doprnt_2):
+	* doprnt.c (parse_off_posnum):
+	* event-stream.c (dribble_out_event):
+	Cast various calls to Lstream_putc() to void when the result isn't
+	being used, for the sake of clang.
+	* lisp.h:
+	Declare #'replace here too, it's used in event-stream.c.
+	* lisp.h (ALLOCA):
+	* lisp.h (MALLOC_OR_ALLOCA):
+	Cast a couple of zeros in the context of the ternary operator to
+	void to prevent unused value warnings with clang.
+	* sysdep.c (child_setup_tty):
+	* text.h (ASSERT_ASCTEXT_ASCII_LEN):
+	Use DO_NOTHING in these files to quieten the compiler.
+
 2014-10-18  Stephen J. Turnbull  <[email protected]>
 
 	* fontcolor-xlike-inc.c (xft_find_charset_font):

diff -r ba0ff364bd94973aad604c1ebf39007c47aefef1 -r b3824b7f5627c37e193a69108848ccbd480d6817 src/cm.c
--- a/src/cm.c
+++ b/src/cm.c
@@ -66,7 +66,7 @@
     }
 
   if (len == 1)
-    Lstream_putc (lstr, *str);
+    (void) Lstream_putc (lstr, *str);
   else if (len > 0)
     Lstream_write (lstr, str, len);
 }

diff -r ba0ff364bd94973aad604c1ebf39007c47aefef1 -r b3824b7f5627c37e193a69108848ccbd480d6817 src/doprnt.c
--- a/src/doprnt.c
+++ b/src/doprnt.c
@@ -122,7 +122,7 @@
   /* Padding at beginning to right-justify ... */
   if (!minus_flag)
     while (to_add-- > 0)
-      Lstream_putc (lstr, zero_flag ? '0' : ' ');
+      (void) Lstream_putc (lstr, zero_flag ? '0' : ' ');
 
   if (0 <= maxlen && maxlen < cclen)
     len = charcount_to_bytecount (string, maxlen);
@@ -131,7 +131,7 @@
   /* Padding at end to left-justify ... */
   if (minus_flag)
     while (to_add-- > 0)
-      Lstream_putc (lstr, zero_flag ? '0' : ' ');
+      (void) Lstream_putc (lstr, zero_flag ? '0' : ' ');
 }
 
 static const Ibyte *

diff -r ba0ff364bd94973aad604c1ebf39007c47aefef1 -r b3824b7f5627c37e193a69108848ccbd480d6817 src/event-stream.c
--- a/src/event-stream.c
+++ b/src/event-stream.c
@@ -4826,9 +4826,9 @@
 	/* one-char key events are printed with just the key name */
 	Fprinc (keysym, Vdribble_file);
       else if (EQ (keysym, Qreturn))
-	Lstream_putc (XLSTREAM (Vdribble_file), '\n');
+	(void) Lstream_putc (XLSTREAM (Vdribble_file), '\n');
       else if (EQ (keysym, Qspace))
-	Lstream_putc (XLSTREAM (Vdribble_file), ' ');
+	(void) Lstream_putc (XLSTREAM (Vdribble_file), ' ');
       else
 	Fprinc (event, Vdribble_file);
     }

diff -r ba0ff364bd94973aad604c1ebf39007c47aefef1 -r b3824b7f5627c37e193a69108848ccbd480d6817 src/lisp.h
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -1363,12 +1363,12 @@
 alternative is to force all callers to declare a local temporary if the
 expression has side effects -- something easy to forget. */
 
-#define ALLOCA(size)					\
-  (REGEX_MALLOC_CHECK (),				\
-   __temp_alloca_size__ = (size),			\
-   __temp_alloca_size__  > MAX_ALLOCA_VS_C_ALLOCA ?	\
-   xemacs_c_alloca (__temp_alloca_size__) :		\
-   (need_to_check_c_alloca ? xemacs_c_alloca (0) : 0,	\
+#define ALLOCA(size)                                            \
+  (REGEX_MALLOC_CHECK (),                                       \
+   __temp_alloca_size__ = (size),                               \
+   __temp_alloca_size__  > MAX_ALLOCA_VS_C_ALLOCA ?             \
+   xemacs_c_alloca (__temp_alloca_size__) :                     \
+   (need_to_check_c_alloca ? xemacs_c_alloca (0) : (void) 0,    \
     alloca (__temp_alloca_size__)))
 
 /* Version of ALLOCA() that is guaranteed to work inside of function calls
@@ -1397,12 +1397,12 @@
 /* WARNING: If you use this, you must unbind_to() at the end of your
    function! */
 
-#define MALLOC_OR_ALLOCA(size)				\
-  (REGEX_MALLOC_CHECK (),				\
-   __temp_alloca_size__ = (size),			\
-   __temp_alloca_size__  > MAX_ALLOCA_VS_MALLOC ?	\
-   xmalloc_and_record_unwind (__temp_alloca_size__) :	\
-   (need_to_check_c_alloca ? xemacs_c_alloca (0) : 0,	\
+#define MALLOC_OR_ALLOCA(size)                                  \
+  (REGEX_MALLOC_CHECK (),                                       \
+   __temp_alloca_size__ = (size),                               \
+   __temp_alloca_size__  > MAX_ALLOCA_VS_MALLOC ?               \
+   xmalloc_and_record_unwind (__temp_alloca_size__) :           \
+   (need_to_check_c_alloca ? xemacs_c_alloca (0) : (void) 0,  \
     alloca (__temp_alloca_size__)))
 
 /* -------------- convenience functions for memory allocation ------------- */
@@ -5770,6 +5770,7 @@
 
 /* Defined in sequence.c */
 EXFUN (Ffill, MANY);
+EXFUN (Freplace, MANY);
 
 /* Defined in signal.c */
 void init_interrupts_late (void);

diff -r ba0ff364bd94973aad604c1ebf39007c47aefef1 -r b3824b7f5627c37e193a69108848ccbd480d6817 src/sysdep.c
--- a/src/sysdep.c
+++ b/src/sysdep.c
@@ -495,9 +495,9 @@
   /* <mdiers> What to do upon failure? Just ignoring rc is probably
      not acceptable, is it? */
   if (cfsetispeed (&s.main, B9600) == -1)
-    ;				/* ignore */
+    DO_NOTHING;				/* ignore */
   if (cfsetospeed (&s.main, B9600) == -1)
-    ;				/* ignore */
+    DO_NOTHING;				/* ignore */
 #endif /* defined (CBAUD) */
 
 #else /* not HAVE_TERMIO */

diff -r ba0ff364bd94973aad604c1ebf39007c47aefef1 -r b3824b7f5627c37e193a69108848ccbd480d6817 src/text.h
--- a/src/text.h
+++ b/src/text.h
@@ -642,8 +642,8 @@
   ASSERT_ASCTEXT_ASCII_LEN (aiaz2, strlen (aiaz2));	\
 } while (0)
 #else
-#define ASSERT_ASCTEXT_ASCII_LEN(ptr, len)
-#define ASSERT_ASCTEXT_ASCII(ptr)
+#define ASSERT_ASCTEXT_ASCII_LEN(ptr, len) DO_NOTHING
+#define ASSERT_ASCTEXT_ASCII(ptr) DO_NOTHING
 #endif
 
 /* -------------------------------------------------------------- */

Repository URL: https://bitbucket.org/xemacs/xemacs/

--

This is a commit notification from bitbucket.org. You are receiving
this because you have the service enabled, addressing the recipient of
this email.