OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Tweaks to eliminate unnecessary differences vs.

Browse Source 
Tweaks to eliminate unnecessary
differences vs. netlib libf2c.

From-SVN: r19878
This commit is contained in:
Craig Burley 1998-05-19 11:01:52 +00:00 committed by Dave Love
parent a843efa0d4
commit 6d3e8f6239
7 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
libf2c/libF77/Version.c
View File

@ -3,7 +3,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19970919\n";
/*
*/
char __G77_LIBF77_VERSION__[] = "0.5.23-19980501";
char __G77_LIBF77_VERSION__[] = "0.5.23-19980503";
/*
2.00 11 June 1980. File version.c added to library.

1
libf2c/libF77/signal_.c
View File

@ -14,4 +14,3 @@ G77_signal_0 (integer *sigp, sig_pf proc)
return (void *) signal(sig, proc);
}

2
libf2c/libI77/Version.c
View File

@ -3,7 +3,7 @@ static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19980405\n";
/*
*/
char __G77_LIBI77_VERSION__[] = "0.5.23-19980502";
char __G77_LIBI77_VERSION__[] = "0.5.23-19980503";
/*
2.01 $ format added

2
libf2c/libI77/dfe.c
View File

@ -81,7 +81,7 @@ c_dfe(cilist *a)
f__fmtbuf=a->cifmt;
if(a->cirec <= 0)
err(a->cierr,130,"dfe");
(void) fseek(f__cf,(long)f__curunit->url * (a->cirec-1),SEEK_SET);
fseek(f__cf,(long)f__curunit->url * (a->cirec-1),SEEK_SET);
f__curunit->uend = 0;
return(0);
}

4
libf2c/libI77/due.c
View File

@ -22,7 +22,7 @@ c_due(cilist *a)
if(f__curunit->ufd==NULL) err(a->cierr,114,"cdue");
if(a->cirec <= 0)
err(a->cierr,130,"due");
(void) fseek(f__cf,(long)(a->cirec-1)*f__curunit->url,SEEK_SET);
fseek(f__cf,(long)(a->cirec-1)*f__curunit->url,SEEK_SET);
f__curunit->uend = 0;
return(0);
}
@ -57,7 +57,7 @@ integer e_rdue(Void)
f__init = 1;
if(f__curunit->url==1 || f__recpos==f__curunit->url)
return(0);
(void) fseek(f__cf,(long)(f__curunit->url-f__recpos),SEEK_CUR);
fseek(f__cf,(long)(f__curunit->url-f__recpos),SEEK_CUR);
if(ftell(f__cf)%f__curunit->url)
err(f__elist->cierr,200,"syserr");
return(0);

1
libf2c/libI77/wsfe.c
View File

@ -4,6 +4,7 @@
#include "fmt.h"
extern int f__hiwater;
int
x_wSL(Void)
{
int n = f__putbuf('\n');

2
libf2c/libU77/dbes.c
View File

@ -16,10 +16,10 @@ License along with GNU Fortran; see the file COPYING.LIB. If
not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */
#if 0 /* Don't include these unless necessary -- dnp. */
#include "f2c.h"
#include <math.h>
#if 0 /* Don't include these unless necessary -- dnp. */
double G77_dbesj0_0 (const double *x) {
return j0 (*x);
}