This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Fix libgfortran warnings


The appended patch gets rid of these warnings:
/cvs/gcc/libgfortran/runtime/compile_options.c:56: warning: no previous prototype for ‘init_compile_options’
/cvs/gcc/libgfortran/runtime/error.c:501: warning: no previous prototype for ‘notify_std’
/cvs/gcc/libgfortran/runtime/main.c:99: warning: implicit declaration of function ‘init_compile_options’
/cvs/gcc/libgfortran/io/format.c:583: warning: implicit declaration of
function ‘notify_std’


Note I added notify_std to io/io.h so that we do not need to include
io.h in libgfortran.h due to the declaration of "try".

Tested on Linux/x86-64.  Ok to commit?

Andreas

2005-09-02  Andreas Jaeger  <aj@suse.de>

	* libgfortran.h: Add prototype for init_compile_options.

	* io/io.h: Add prototype for notify_std.

============================================================
Index: libgfortran/libgfortran.h
--- libgfortran/libgfortran.h	17 Aug 2005 02:48:35 -0000	1.30
+++ libgfortran/libgfortran.h	2 Sep 2005 05:57:47 -0000
@@ -1,5 +1,5 @@
 /* Common declarations for all of libgfor.
-   Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc.
+   Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
    Contributed by Paul Brook <paul@nowt.org>, and
    Andy Vaught <andy@xena.eas.asu.edu>
 
@@ -311,7 +311,8 @@ compile_options_t;
 extern compile_options_t compile_options;
 internal_proto(compile_options);
 
-
+extern void init_compile_options (void);
+internal_proto(init_compile_options);
 
 
 /* Structure for statement options.  */
============================================================
Index: libgfortran/io/io.h
--- io/io.h	27 Aug 2005 16:01:54 -0000	1.26
+++ io/io.h	2 Sep 2005 05:57:47 -0000
@@ -656,4 +656,8 @@ internal_proto(write_z);
 extern void list_formatted_write (bt, void *, int);
 internal_proto(list_formatted_write);
 
+/* error.c */
+extern try notify_std (int, const char *);
+internal_proto(notify_std);
+
 #endif

Attachment: pgp00000.pgp
Description: PGP signature

-- 
 Andreas Jaeger, aj@suse.de, http://www.suse.de/~aj
  SUSE Linux Products GmbH, Maxfeldstr. 5, 90409 Nürnberg, Germany
   GPG fingerprint = 93A3 365E CE47 B889 DF7F  FED1 389A 563C C272 A126

Attachment: pgp00001.pgp
Description: PGP signature


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]