diff options
author | Janne Blomqvist <jb@gcc.gnu.org> | 2007-05-27 00:15:22 +0300 |
---|---|---|
committer | Janne Blomqvist <jb@gcc.gnu.org> | 2007-05-27 00:15:22 +0300 |
commit | 88fdfd5a86d9873cb5e25851a68963253d707761 (patch) | |
tree | 284b051453fcf4ab80253b550ab8f310e5e3a4ec /libgfortran/libgfortran.h | |
parent | c132497f1bf72635ce53a12dac9e432f0cdb8984 (diff) | |
download | gcc-88fdfd5a86d9873cb5e25851a68963253d707761.zip gcc-88fdfd5a86d9873cb5e25851a68963253d707761.tar.gz gcc-88fdfd5a86d9873cb5e25851a68963253d707761.tar.bz2 |
string.c (compare0): Use gfc_charlen_type instead of int.
2007-05-27 Janne Blomqvist <jb@gcc.gnu.org>
* runtime/string.c (compare0): Use gfc_charlen_type instead of int.
(fstrlen): Likewise.
(find_option): Likewise.
(fstrcpy): Use gfc_charlen_type instead of int, return length.
(cf_strcpy): Likewise.
* libgfortran.h: Change string prototypes to use gfc_charlen_type.
* io/open.c (new_unit): Use snprintf if available.
* io/list_read.c (nml_touch_nodes): Use memcpy instead of strcpy/strcat.
(nml_read_obj): Likewise.
* io/transfer.c (st_set_nml_var): Likewise.
* io/write.c (output_float): Use snprintf if available.
(nml_write_obj) Use memcpy instead of strcpy/strcat.
From-SVN: r125100
Diffstat (limited to 'libgfortran/libgfortran.h')
-rw-r--r-- | libgfortran/libgfortran.h | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index c98d01d..d42302a 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -1,5 +1,5 @@ /* Common declarations for all of libgfortran. - Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. + Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org>, and Andy Vaught <andy@xena.eas.asu.edu> @@ -650,17 +650,17 @@ internal_proto(get_unformatted_convert); /* string.c */ -extern int find_option (st_parameter_common *, const char *, int, +extern int find_option (st_parameter_common *, const char *, gfc_charlen_type, const st_option *, const char *); internal_proto(find_option); -extern int fstrlen (const char *, int); +extern gfc_charlen_type fstrlen (const char *, gfc_charlen_type); internal_proto(fstrlen); -extern void fstrcpy (char *, int, const char *, int); +extern gfc_charlen_type fstrcpy (char *, gfc_charlen_type, const char *, gfc_charlen_type); internal_proto(fstrcpy); -extern void cf_strcpy (char *, int, const char *); +extern gfc_charlen_type cf_strcpy (char *, gfc_charlen_type, const char *); internal_proto(cf_strcpy); /* io/intrinsics.c */ |