diff options
author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-08-31 16:06:48 +0200 |
---|---|---|
committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-08-31 16:06:48 +0200 |
commit | d7177ab25e9cfef12aa2b0e2a2f68d7f3c81735a (patch) | |
tree | 03f0761ea8c07c55c2cd86b5b996c3027f155857 /gcc/fortran/trans-types.h | |
parent | f36327db85b62d102049ee46db8ee4d39df045e2 (diff) | |
download | gcc-d7177ab25e9cfef12aa2b0e2a2f68d7f3c81735a.zip gcc-d7177ab25e9cfef12aa2b0e2a2f68d7f3c81735a.tar.gz gcc-d7177ab25e9cfef12aa2b0e2a2f68d7f3c81735a.tar.bz2 |
trans-decl.c, [...]: Replace all occurences of 'gfc_strlen_type_node' by 'gfc_charlen_type_node'.
fortran/
* trans-decl.c, trans-expr.c, trans-io.c, trans-types.c: Replace
all occurences of 'gfc_strlen_type_node' by
'gfc_charlen_type_node'.
* trans-types.h: Same. Also update comment accordingly.
libgfortran/
* libgfortran.h: Replace 'gfc_strlen_type' by
'gfc_charlen_type'. Update comment accordingly.
* intrinsics/args.c, intrinsics/env.c, io/io.h, io/transfer.c:
Replace all occurences of 'gfc_strlen_type' by 'gfc_charlen_type'.
From-SVN: r86828
Diffstat (limited to 'gcc/fortran/trans-types.h')
-rw-r--r-- | gcc/fortran/trans-types.h | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/fortran/trans-types.h b/gcc/fortran/trans-types.h index 6e92359..7a57961 100644 --- a/gcc/fortran/trans-types.h +++ b/gcc/fortran/trans-types.h @@ -45,12 +45,11 @@ extern GTY(()) tree gfc_character1_type_node; extern GTY(()) tree ppvoid_type_node; extern GTY(()) tree pvoid_type_node; extern GTY(()) tree pchar_type_node; -/* This is the type used to hold string lengths. It has nothing to do with - the C strlen(3) function. It must be the same as the corresponding - definition in gfortran.h. */ +/* This is the type used to hold the lengths of character variables. + It must be the same as the corresponding definition in gfortran.h. */ /* TODO: This is still hardcoded as kind=4 in some bits of the compiler and runtime library. */ -extern GTY(()) tree gfc_strlen_type_node; +extern GTY(()) tree gfc_charlen_type_node; /* be-function.c */ void gfc_convert_function_code (gfc_namespace *); |