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

chdir.c, [...]: Include <string.h> for prototypes. 

* intrinsics/chdir.c, intrinsics/getlog.c, intrinsics/link.c,
	intrinsics/symlnk.c, intrinsics/perror.c: Include <string.h> for
	prototypes.

	* runtime/string.c (compare0): Remove unused variable.
	* io/unit.c (init_units): Remove unused variables.
	* intrinsics/getcwd.c (getcwd_i4_sub): Remove unused variable.
	* intrinsics/unlink.c (unlink_i4_sub): Remove unused variable.
	* intrinsics/stat.c (stat_i4_sub, fstat_i8_sub, fstat_i4_sub,
	stat_i8_sub): Remove unused variable.

From-SVN: r99716
This commit is contained in:
Andreas Jaeger 2005-05-15 10:25:52 +02:00
parent 64fbae219b
commit deeab82073
11 changed files with 77 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
libgfortran/ChangeLog
View File

@ -1,3 +1,16 @@
2005-05-15 Andreas Jaeger <aj@suse.de>
* intrinsics/chdir.c, intrinsics/getlog.c, intrinsics/link.c,
intrinsics/symlnk.c, intrinsics/perror.c: Include <string.h> for
prototypes.
* runtime/string.c (compare0): Remove unused variable.
* io/unit.c (init_units): Remove unused variables.
* intrinsics/getcwd.c (getcwd_i4_sub): Remove unused variable.
* intrinsics/unlink.c (unlink_i4_sub): Remove unused variable.
* intrinsics/stat.c (stat_i4_sub, fstat_i8_sub, fstat_i4_sub,
stat_i8_sub): Remove unused variable.
2005-05-12 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/21324
@ -179,7 +192,7 @@
from WRITING to READING.
2005-04-22 Paul Thomas <pault@gcc.gnu.org>
Jerry DeLisle <jvdelisle@verizon.net>
Jerry DeLisle <jvdelisle@verizon.net>
* io/write.c (nml_write_obj): Provide 1 more byte for ext_name.
* io/list_read.c (nml_get_obj_data): Put extra brackets in get_mem
@ -355,7 +368,7 @@
environment variables we want to be positive.
(init_integer): Function to allow negative environment
variables (e.g. for GFORTRAN_STDIN_UNIT).
2005-04-10 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/17992
@ -466,7 +479,7 @@
2005-04-09 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/20163
* runtime/string.c (compare0): Use fstrlen() to
* runtime/string.c (compare0): Use fstrlen() to
strip trailing blanks from option string.
2005-04-09 Andrew Pinski <pinskia@physics.uc.edu>

11
libgfortran/intrinsics/chdir.c
View File

@ -35,6 +35,9 @@ Boston, MA 02111-1307, USA. */
#include "../io/io.h"
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
@ -60,11 +63,11 @@ chdir_i4_sub (char *dir, GFC_INTEGER_4 *status, gfc_charlen_type dir_len)
/* Make a null terminated copy of the strings. */
str = gfc_alloca (dir_len + 1);
memcpy (str, dir, dir_len);
str[dir_len] = '\0';
str[dir_len] = '\0';
val = chdir (str);
if (status != NULL)
if (status != NULL)
*status = (val == 0) ? 0 : errno;
}
iexport(chdir_i4_sub);
@ -85,11 +88,11 @@ chdir_i8_sub (char *dir, GFC_INTEGER_8 *status, gfc_charlen_type dir_len)
/* Make a null terminated copy of the strings. */
str = gfc_alloca (dir_len + 1);
memcpy (str, dir, dir_len);
str[dir_len] = '\0';
str[dir_len] = '\0';
val = chdir (str);
if (status != NULL)
if (status != NULL)
*status = (val == 0) ? 0 : errno;
}
iexport(chdir_i8_sub);

6
libgfortran/intrinsics/getcwd.c
View File

@ -1,5 +1,5 @@
/* Implementation of the GETCWD intrinsic.
Copyright (C) 2004 Free Software Foundation, Inc.
Copyright (C) 2004, 2005 Free Software Foundation, Inc.
Contributed by Steven G. Kargl <kargls@comcast.net>.
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -46,7 +46,7 @@ iexport_proto(getcwd_i4_sub);
void
getcwd_i4_sub (char *cwd, GFC_INTEGER_4 *status, gfc_charlen_type cwd_len)
{
char str[cwd_len + 1], *s;
char str[cwd_len + 1];
GFC_INTEGER_4 stat;
memset(cwd, ' ', (size_t) cwd_len);
@ -58,7 +58,7 @@ getcwd_i4_sub (char *cwd, GFC_INTEGER_4 *status, gfc_charlen_type cwd_len)
stat = 0;
memcpy (cwd, str, strlen (str));
}
if (status != NULL)
if (status != NULL)
*status = stat;
}
iexport(getcwd_i4_sub);

5
libgfortran/intrinsics/getlog.c
View File

@ -31,6 +31,9 @@ Boston, MA 02111-1307, USA. */
#include "config.h"
#include "libgfortran.h"
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
@ -44,7 +47,7 @@ Boston, MA 02111-1307, USA. */
void PREFIX(getlog) (char *, gfc_charlen_type);
export_proto_np(PREFIX(getlog));
void
void
PREFIX(getlog) (char * login, gfc_charlen_type login_len)
{
int p_len;

15
libgfortran/intrinsics/link.c
View File

@ -35,6 +35,9 @@ Boston, MA 02111-1307, USA. */
#include "../io/io.h"
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
@ -64,15 +67,15 @@ link_i4_sub (char *path1, char *path2, GFC_INTEGER_4 *status,
/* Make a null terminated copy of the strings. */
str1 = gfc_alloca (path1_len + 1);
memcpy (str1, path1, path1_len);
str1[path1_len] = '\0';
str1[path1_len] = '\0';
str2 = gfc_alloca (path2_len + 1);
memcpy (str2, path2, path2_len);
str2[path2_len] = '\0';
str2[path2_len] = '\0';
val = link (str1, str2);
if (status != NULL)
if (status != NULL)
*status = (val == 0) ? 0 : errno;
}
iexport(link_i4_sub);
@ -97,15 +100,15 @@ link_i8_sub (char *path1, char *path2, GFC_INTEGER_8 *status,
/* Make a null terminated copy of the strings. */
str1 = gfc_alloca (path1_len + 1);
memcpy (str1, path1, path1_len);
str1[path1_len] = '\0';
str1[path1_len] = '\0';
str2 = gfc_alloca (path2_len + 1);
memcpy (str2, path2, path2_len);
str2[path2_len] = '\0';
str2[path2_len] = '\0';
val = link (str1, str2);
if (status != NULL)
if (status != NULL)
*status = (val == 0) ? 0 : errno;
}
iexport(link_i8_sub);

5
libgfortran/intrinsics/perror.c
View File

@ -36,6 +36,9 @@ Boston, MA 02111-1307, USA. */
#include "../io/io.h"
#ifdef HAVE_STRING_H
#include <string.h>
#endif
/* SUBROUTINE PERROR(STRING)
CHARACTER(len=*), INTENT(IN) :: STRING */
@ -56,7 +59,7 @@ perror_sub (char *string, gfc_charlen_type string_len)
/* Make a null terminated copy of the strings. */
str = gfc_alloca (string_len + 1);
memcpy (str, string, string_len);
str[string_len] = '\0';
str[string_len] = '\0';
perror (str);
}

42
libgfortran/intrinsics/stat.c
View File

@ -1,5 +1,5 @@
/* Implementation of the STAT and FSTAT intrinsics.
Copyright (C) 2004 Free Software Foundation, Inc.
Copyright (C) 2004, 2005 Free Software Foundation, Inc.
Contributed by Steven G. Kargl <kargls@comcast.net>.
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -73,8 +73,6 @@ stat_i4_sub (char *name, gfc_array_i4 *sarray, GFC_INTEGER_4 *status,
char *str;
struct stat sb;
index_type stride[GFC_MAX_DIMENSIONS];
/* If the rank of the array is not 1, abort. */
if (GFC_DESCRIPTOR_RANK (sarray) != 1)
runtime_error ("Array rank of SARRAY is not 1.");
@ -93,11 +91,11 @@ stat_i4_sub (char *name, gfc_array_i4 *sarray, GFC_INTEGER_4 *status,
/* Make a null terminated copy of the string. */
str = gfc_alloca (name_len + 1);
memcpy (str, name, name_len);
str[name_len] = '\0';
str[name_len] = '\0';
val = stat(str, &sb);
if (val == 0)
if (val == 0)
{
/* Device ID */
sarray->data[0 * sarray->dim[0].stride] = sb.st_dev;
@ -116,7 +114,7 @@ stat_i4_sub (char *name, gfc_array_i4 *sarray, GFC_INTEGER_4 *status,
/* Owner's gid */
sarray->data[5 * sarray->dim[0].stride] = sb.st_gid;
/* ID of device containing directory entry for file (0 if not available) */
#if HAVE_STRUCT_STAT_ST_RDEV
sarray->data[6 * sarray->dim[0].stride] = sb.st_rdev;
@ -151,7 +149,7 @@ stat_i4_sub (char *name, gfc_array_i4 *sarray, GFC_INTEGER_4 *status,
#endif
}
if (status != NULL)
if (status != NULL)
*status = (val == 0) ? 0 : errno;
}
iexport(stat_i4_sub);
@ -168,8 +166,6 @@ stat_i8_sub (char *name, gfc_array_i8 *sarray, GFC_INTEGER_8 *status,
char *str;
struct stat sb;
index_type stride[GFC_MAX_DIMENSIONS];
/* If the rank of the array is not 1, abort. */
if (GFC_DESCRIPTOR_RANK (sarray) != 1)
runtime_error ("Array rank of SARRAY is not 1.");
@ -188,7 +184,7 @@ stat_i8_sub (char *name, gfc_array_i8 *sarray, GFC_INTEGER_8 *status,
/* Make a null terminated copy of the string. */
str = gfc_alloca (name_len + 1);
memcpy (str, name, name_len);
str[name_len] = '\0';
str[name_len] = '\0';
val = stat(str, &sb);
@ -205,13 +201,13 @@ stat_i8_sub (char *name, gfc_array_i8 *sarray, GFC_INTEGER_8 *status,
/* Number of (hard) links */
sarray->data[3 * sarray->dim[0].stride] = sb.st_nlink;
/* Owner's uid */
sarray->data[4 * sarray->dim[0].stride] = sb.st_uid;
/* Owner's gid */
sarray->data[5 * sarray->dim[0].stride] = sb.st_gid;
/* ID of device containing directory entry for file (0 if not available) */
#if HAVE_STRUCT_STAT_ST_RDEV
sarray->data[6 * sarray->dim[0].stride] = sb.st_rdev;
@ -246,7 +242,7 @@ stat_i8_sub (char *name, gfc_array_i8 *sarray, GFC_INTEGER_8 *status,
#endif
}
if (status != NULL)
if (status != NULL)
*status = (val == 0) ? 0 : errno;
}
iexport(stat_i8_sub);
@ -275,13 +271,13 @@ stat_i8 (char *name, gfc_array_i8 *sarray, gfc_charlen_type name_len)
/* SUBROUTINE FSTAT(UNIT, SARRAY, STATUS)
INTEGER, INTENT(IN) :: UNIT
INTEGER, INTENT(IN) :: UNIT
INTEGER, INTENT(OUT) :: SARRAY(13)
INTEGER, INTENT(OUT), OPTIONAL :: STATUS
INTEGER, INTENT(OUT), OPTIONAL :: STATUS
FUNCTION FSTAT(UNIT, SARRAY)
INTEGER FSTAT
INTEGER, INTENT(IN) :: UNIT
INTEGER, INTENT(IN) :: UNIT
INTEGER, INTENT(OUT) :: SARRAY(13) */
extern void fstat_i4_sub (GFC_INTEGER_4 *, gfc_array_i4 *, GFC_INTEGER_4 *);
@ -293,8 +289,6 @@ fstat_i4_sub (GFC_INTEGER_4 *unit, gfc_array_i4 *sarray, GFC_INTEGER_4 *status)
int val;
struct stat sb;
index_type stride[GFC_MAX_DIMENSIONS];
/* If the rank of the array is not 1, abort. */
if (GFC_DESCRIPTOR_RANK (sarray) != 1)
runtime_error ("Array rank of SARRAY is not 1.");
@ -318,7 +312,7 @@ fstat_i4_sub (GFC_INTEGER_4 *unit, gfc_array_i4 *sarray, GFC_INTEGER_4 *status)
/* Inode number */
sarray->data[1 * sarray->dim[0].stride] = sb.st_ino;
/* File mode */
sarray->data[2 * sarray->dim[0].stride] = sb.st_mode;
@ -330,7 +324,7 @@ fstat_i4_sub (GFC_INTEGER_4 *unit, gfc_array_i4 *sarray, GFC_INTEGER_4 *status)
/* Owner's gid */
sarray->data[5 * sarray->dim[0].stride] = sb.st_gid;
/* ID of device containing directory entry for file (0 if not available) */
#if HAVE_STRUCT_STAT_ST_RDEV
sarray->data[6 * sarray->dim[0].stride] = sb.st_rdev;
@ -365,7 +359,7 @@ fstat_i4_sub (GFC_INTEGER_4 *unit, gfc_array_i4 *sarray, GFC_INTEGER_4 *status)
#endif
}
if (status != NULL)
if (status != NULL)
*status = (val == 0) ? 0 : errno;
}
iexport(fstat_i4_sub);
@ -379,8 +373,6 @@ fstat_i8_sub (GFC_INTEGER_8 *unit, gfc_array_i8 *sarray, GFC_INTEGER_8 *status)
int val;
struct stat sb;
index_type stride[GFC_MAX_DIMENSIONS];
/* If the rank of the array is not 1, abort. */
if (GFC_DESCRIPTOR_RANK (sarray) != 1)
runtime_error ("Array rank of SARRAY is not 1.");
@ -416,7 +408,7 @@ fstat_i8_sub (GFC_INTEGER_8 *unit, gfc_array_i8 *sarray, GFC_INTEGER_8 *status)
/* Owner's gid */
sarray->data[5 * sarray->dim[0].stride] = sb.st_gid;
/* ID of device containing directory entry for file (0 if not available) */
#if HAVE_STRUCT_STAT_ST_RDEV
sarray->data[6 * sarray->dim[0].stride] = sb.st_rdev;
@ -451,7 +443,7 @@ fstat_i8_sub (GFC_INTEGER_8 *unit, gfc_array_i8 *sarray, GFC_INTEGER_8 *status)
#endif
}
if (status != NULL)
if (status != NULL)
*status = (val == 0) ? 0 : errno;
}
iexport(fstat_i8_sub);

15
libgfortran/intrinsics/symlnk.c
View File

@ -35,6 +35,9 @@ Boston, MA 02111-1307, USA. */
#include "../io/io.h"
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
@ -64,15 +67,15 @@ symlnk_i4_sub (char *path1, char *path2, GFC_INTEGER_4 *status,
/* Make a null terminated copy of the strings. */
str1 = gfc_alloca (path1_len + 1);
memcpy (str1, path1, path1_len);
str1[path1_len] = '\0';
str1[path1_len] = '\0';
str2 = gfc_alloca (path2_len + 1);
memcpy (str2, path2, path2_len);
str2[path2_len] = '\0';
str2[path2_len] = '\0';
val = symlink (str1, str2);
if (status != NULL)
if (status != NULL)
*status = (val == 0) ? 0 : errno;
}
iexport(symlnk_i4_sub);
@ -97,15 +100,15 @@ symlnk_i8_sub (char *path1, char *path2, GFC_INTEGER_8 *status,
/* Make a null terminated copy of the strings. */
str1 = gfc_alloca (path1_len + 1);
memcpy (str1, path1, path1_len);
str1[path1_len] = '\0';
str1[path1_len] = '\0';
str2 = gfc_alloca (path2_len + 1);
memcpy (str2, path2, path2_len);
str2[path2_len] = '\0';
str2[path2_len] = '\0';
val = symlink (str1, str2);
if (status != NULL)
if (status != NULL)
*status = (val == 0) ? 0 : errno;
}
iexport(symlnk_i8_sub);

8
libgfortran/intrinsics/unlink.c
View File

@ -1,5 +1,5 @@
/* Implementation of the UNLINK intrinsic.
Copyright (C) 2004 Free Software Foundation, Inc.
Copyright (C) 2004, 2005 Free Software Foundation, Inc.
Contributed by Steven G. Kargl <kargls@comcast.net>.
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -51,7 +51,7 @@ iexport_proto(unlink_i4_sub);
void
unlink_i4_sub (char *name, GFC_INTEGER_4 *status, gfc_charlen_type name_len)
{
char *str, *s;
char *str;
GFC_INTEGER_4 stat;
/* Trim trailing spaces from name. */
@ -61,11 +61,11 @@ unlink_i4_sub (char *name, GFC_INTEGER_4 *status, gfc_charlen_type name_len)
/* Make a null terminated copy of the string. */
str = gfc_alloca (name_len + 1);
memcpy (str, name, name_len);
str[name_len] = '\0';
str[name_len] = '\0';
stat = unlink (str);
if (status != NULL)
if (status != NULL)
*status = (stat == 0) ? stat : errno;
}
iexport(unlink_i4_sub);

3
libgfortran/io/unit.c
View File

@ -1,4 +1,4 @@
/* Copyright (C) 2002, 2003 Free Software Foundation, Inc.
/* Copyright (C) 2002, 2003, 2005 Free Software Foundation, Inc.
Contributed by Andy Vaught
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -288,7 +288,6 @@ is_internal_unit ()
void
init_units (void)
{
gfc_offset m, n;
gfc_unit *u;
int i;

7
libgfortran/runtime/string.c
View File

@ -1,4 +1,4 @@
/* Copyright (C) 2002-2003 Free Software Foundation, Inc.
/* Copyright (C) 2002, 2003, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -40,12 +40,11 @@ Boston, MA 02111-1307, USA. */
static int
compare0 (const char *s1, int s1_len, const char *s2)
{
int i;
int len;
/* Strip trailing blanks from the Fortran string. */
len = fstrlen(s1, s1_len);
return strncasecmp(s1,s2,len) == 0;
len = fstrlen (s1, s1_len);
return strncasecmp (s1, s2, len) == 0;
}