From xemacs-m  Wed Sep 17 16:10:31 1997
Received: from mercury.Sun.COM (mercury.Sun.COM [192.9.25.1])
	by xemacs.org (8.8.5/8.8.5) with SMTP id QAA16307
	for <xemacs-beta@xemacs.org>; Wed, 17 Sep 1997 16:10:28 -0500 (CDT)
Received: from Eng.Sun.COM ([129.146.1.25]) by mercury.Sun.COM (SMI-8.6/mail.byaddr) with SMTP id OAA12115 for <xemacs-beta@xemacs.org>; Wed, 17 Sep 1997 14:10:02 -0700
Received: from kindra.eng.sun.com by Eng.Sun.COM (SMI-8.6/SMI-5.3)
	id OAA10765; Wed, 17 Sep 1997 14:09:59 -0700
Received: from xemacs.eng.sun.com by kindra.eng.sun.com (SMI-8.6/SMI-SVR4)
	id OAA01697; Wed, 17 Sep 1997 14:09:57 -0700
Received: by xemacs.eng.sun.com (SMI-8.6/SMI-SVR4)
	id OAA04717; Wed, 17 Sep 1997 14:09:57 -0700
Date: Wed, 17 Sep 1997 14:09:57 -0700
Message-Id: <199709172109.OAA04717@xemacs.eng.sun.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
From: Martin Buchholz <mrb@Eng.Sun.COM>
To: XEmacs Beta Test <xemacs-beta@xemacs.org>
Subject: PATCH: 19.16: More warning fixes
X-Mailer: VM 6.33 under 20.3 "Vienna" XEmacs  Lucid (beta14)
Reply-To: Martin Buchholz <mrb@Eng.Sun.COM>



--- src/profile.c.orig	Wed Sep 17 13:57:48 1997
+++ src/profile.c	Wed Sep 17 13:57:54 1997
@@ -67,7 +67,7 @@
    the table while another routine is operating on it.  We also set
    inside_profiling in case the timeout between signal calls is short
    enough to catch us while we're already in there. */
-volatile static int inside_profiling;
+static volatile int inside_profiling;
 
 static SIGTYPE
 sigprof_handler (int signo)


--- src/print.c.orig	Wed Sep 17 14:02:21 1997
+++ src/print.c	Wed Sep 17 14:08:22 1997
@@ -591,6 +591,7 @@
 }
 
 # include "emacsfns.h"
+static void print_error_message (Lisp_Object data, Lisp_Object stream);
 /* Synched with Emacs 19.34 */
 DEFUN ("error-message-string", Ferror_message_string, 1, 1, 0, /*
 Convert an error value (ERROR-SYMBOL . DATA) to an error message.
@@ -601,7 +602,7 @@
   Lisp_Object original, printcharfun, value;
   struct gcpro gcpro1;
 
-  print_error_message (obj, Vprin1_to_string_buffer, NULL);
+  print_error_message (obj, Vprin1_to_string_buffer);
 
   set_buffer_internal (XBUFFER (Vprin1_to_string_buffer));
   value = Fbuffer_substring (Fpoint_min(Fcurrent_buffer()),
@@ -619,8 +620,8 @@
 /* Print an error message for the error DATA
    onto Lisp output stream STREAM (suitable for the print functions).  */
 
-print_error_message (data, stream)
-     Lisp_Object data, stream;
+static void
+print_error_message (Lisp_Object data, Lisp_Object stream)
 {
   Lisp_Object errname, errmsg, file_error, tail;
   struct gcpro gcpro1;

