This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC 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]

Re: missing prototypes

From: FX Coudert <fxcoudert at gmail dot com>
To: gfortran <fortran at gcc dot gnu dot org>
Cc: patch <gcc-patches at gcc dot gnu dot org>
Date: Sat, 12 Aug 2006 09:31:48 +0200
Subject: Re: missing prototypes
References: <20060805023757.E159B70006@bromo.msbb.uc.edu> <19c433eb0608050214j18dbad26n8d67149905054934@mail.gmail.com>

Commited today (http://gcc.gnu.org/ml/gcc-cvs/2006-08/msg00255.html):

Index: intrinsics/bessel.c
===================================================================
--- intrinsics/bessel.c (revision 115944)
+++ intrinsics/bessel.c (working copy)
@@ -32,8 +32,9 @@
#include <math.h>
#include "libgfortran.h"

-/* Assume we have all or none of these.  */
#if HAVE_J0 && !HAVE_J0F
+extern float j0f (float);
+
float
j0f (float x)
{
@@ -42,6 +43,8 @@
#endif

#if HAVE_J1 && !HAVE_J1F
+extern float j1f (float);
+
float j1f (float x)
{
  return (float) j1 ((double) x);
@@ -49,6 +52,8 @@
#endif

#if HAVE_JN && !HAVE_JNF
+extern float jnf (int, float);
+
float
jnf (int n, float x)
{
@@ -57,6 +62,8 @@
#endif

#if HAVE_Y0 && !HAVE_Y0F
+extern float y0f (float);
+
float
y0f (float x)
{
@@ -65,6 +72,8 @@
#endif

#if HAVE_Y1 && !HAVE_Y1F
+extern float y1f (float);
+
float
y1f (float x)
{
@@ -73,6 +82,8 @@
#endif

#if HAVE_YN && !HAVE_YNF
+extern float ynf (int, float);
+
float
ynf (int n, float x)
{

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