fns.c: prototype issue for concat() with non-GCC compilers

[Simon Leinen]

I'm trying to build pretest 22.0.91 using Sun's C compiler in 64-bit
mode.  I got a compiler error for fns.c, which I fixed with the patch
following my signature.

/opt/SUNWspro/bin/cc -c  -Demacs -DHAVE_CONFIG_H -DUSE_GTK  -I. 
-I/test/leinen/emacs-22.0.91/src    -I/usr/openwin/include 
-I/usr/include/gtk-2.0 -I/usr/lib/gtk-2.0/include -I/usr/include/atk-1.0 
-I/usr/include/cairo -I/usr/include/pango-1.0 -I/../cairo-1.0.2/src 
-I/usr/include/glib-2.0 -I/usr/lib/glib-2.0/include  -I/usr/dt/include   -fast 
-xtarget=ultra -xarch=v9 -g -xs fns.c
"fns.c", line 406: warning: implicit function declaration: concat
"fns.c", line 549: identifier redeclared: concat
        current : static function() returning long
        previous: function() returning int : "fns.c", line 406
[...]
cc: acomp failed for fns.c
make[2]: *** [fns.o] Error 2
make[2]: *** Waiting for unfinished jobs....
make[2]: Leaving directory `/test/leinen/emacs-22.0.91/src'
make[1]: *** [bootstrap-build] Error 2
make[1]: Leaving directory `/test/leinen/emacs-22.0.91'
make: *** [bootstrap] Error 2

Regards,
-- 
Simon.

--- emacs-22.0.91/src/fns.c     2006/11/20 15:24:37     1.1
+++ emacs-22.0.91/src/fns.c     2006/11/20 15:24:41
@@ -392,6 +392,8 @@
    the arguments for the invocations of this function, whereas it
    expects these values on the stack.  */
 static Lisp_Object concat () __attribute__((noinline));
+#else
+static Lisp_Object concat ();
 #endif
 
 /* ARGSUSED */