diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2009-04-08 19:48:07 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2009-04-08 19:48:07 +0300 |
| commit | f9bfed2243864c72c8a7822ce0ec9b7a1f2a35c8 (patch) | |
| tree | a970504f9831850f9b5d3dc40d4ebab2b7bec39a /libgfortran/libgfortran.h | |
| parent | 75ccc1e7fa591f7a6c88ddd04b97169bcf04e5ff (diff) | |
| download | gcc-f9bfed2243864c72c8a7822ce0ec9b7a1f2a35c8.tar.gz | |
string.c (compare0): Use gfc_charlen_type.
2009-04-08 Janne Blomqvist <jb@gcc.gnu.org>
* runtime/string.c (compare0): Use gfc_charlen_type.
* runtime/error.c (gfc_itoa): Move to io/write.c
(xtoa): Rename to gfc_xtoa.
* runtime/backtrace.c (show_backtrace): Call gfc_xtoa.
* intrinsics/cshift0.c (cshift0): Use index_type for shift arg.
* intrinsics/date_and_time.c (date_and_time): Use index_type.
(itime_i4): Likewise.
(itime_i8): Likewise.
(idate_i4): Likewise.
(idate_i8): Likewise.
(gmtime_i4): Likewise.
(gmtime_i8): Likewise.
(ltime_i4): Likewise.
(ltime_i8): Likewise.
* libgfortran.h (gfc_itoa): Remove prototype.
(xtoa): Rename prototype to gfc_xtoa.
* io/list_read.c (nml_read_obj): Use size_t for string length.
* io/transfer.c (read_block_direct): Change nbytes arg from
pointer to value.
(unformatted_read): Minor cleanup, call read_block_directly properly.
(skip_record): Use ssize_t.
(next_record_w_unf): Avoid stell() call by calling sseek with SEEK_CUR.
(iolength_transfer): Make sure to multiply before cast.
* io/intrinsics.c (fgetc): Remove unnecessary variable.
* io/format.c (format_hash): Use gfc_charlen_type.
* io/write.c (itoa): Move from runtime/error.c:gfc_itoa, rename,
make static.
(write_i): Call with pointer to itoa.
(write_z): Call with pointer to gfc_xtoa.
(write_integer): Pointer to itoa.
(nml_write_obj): Type cleanup, don't call strlen in loop.
From-SVN: r145758
Diffstat (limited to 'libgfortran/libgfortran.h')
| -rw-r--r-- | libgfortran/libgfortran.h | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index aaa466713ea..9e976db737f 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, 2007, 2008 + Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org>, and Andy Vaught <andy@xena.eas.asu.edu> @@ -635,11 +635,8 @@ internal_proto(show_backtrace); extern void sys_exit (int) __attribute__ ((noreturn)); internal_proto(sys_exit); -extern const char *gfc_itoa (GFC_INTEGER_LARGEST, char *, size_t); -internal_proto(gfc_itoa); - -extern const char *xtoa (GFC_UINTEGER_LARGEST, char *, size_t); -internal_proto(xtoa); +extern const char *gfc_xtoa (GFC_UINTEGER_LARGEST, char *, size_t); +internal_proto(gfc_xtoa); extern void os_error (const char *) __attribute__ ((noreturn)); iexport_proto(os_error); |