diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-23 18:50:25 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-23 18:50:25 +0000 |
| commit | 14c3c2352d4d6f42b4dcb7708bd6e1f14b340053 (patch) | |
| tree | ff58180369190fdcfc2adfcd84037e51fead61ad /libgfortran/runtime | |
| parent | 63a39322242c2834d22c20472e5619697edb68aa (diff) | |
| download | gcc-14c3c2352d4d6f42b4dcb7708bd6e1f14b340053.tar.gz | |
* intrinsics/c99_functions.c (log10l): New log10l function for
systems where this is not available.
* c99_protos.h: Prototype for log10l function.
* libgfortran.h: Use generated kinds.h to define GFC_INTEGER_*,
GFC_UINTEGER_*, GFC_LOGICAL_*, GFC_REAL_*, GFC_COMPLEX_*. Update
prototypes for gfc_itoa and xtoa.
* io/io.h: Update prototypes for set_integer and max_value.
* io/list_read.c (convert_integer): Use new
GFC_(INTEGER|REAL)_LARGEST type.
* io/read.c (set_integer): Likewise.
(max_value): Likewise.
(convert_real): Likewise.
(real_l): Likewise.
(next_char): Likewise.
(read_decimal): Likewise.
(read_radix): Likewise.
(read_f): Likewise.
* io/write.c (extract_int): Use new GFC_INTEGER_LARGEST type.
(extract_real): Use new GFC_REAL_LARGEST type.
(calculate_exp): Likewise.
(calculate_G_format): Likewise.
(output_float): Likewise. Use log10l for long double values.
Add comment for sprintf format. Use GFC_REAL_LARGEST_FORMAT.
(write_l): Use new GFC_INTEGER_LARGEST type.
(write_float): Use new GFC_REAL_LARGEST type.
(write_int): Remove useless special case for (len < 8).
(write_decimal): Use GFC_INTEGER_LARGEST.
(otoa): Use GFC_UINTEGER_LARGEST as argument.
(btoa): Use GFC_UINTEGER_LARGEST as argument.
* runtime/error.c (gfc_itoa): Use GFC_INTEGER_LARGEST as
argument.
(xtoa): Use GFC_UINTEGER_LARGEST as argument.
* Makefile.am: Use mk-kinds-h.sh to generate header kinds.h
with all Fortran kinds available.
* configure.ac: Check for strtold and log10l.
* Makefile.in: Regenerate.
* aclocal.m4: Regenerate.
* configure: Regenerate.
* config.h.in: Regenerate.
* mk-kinds-h.sh: Configuration script for available integer
and real kinds.
* lib/target-supports.exp: Add
check_effective_target_fortran_large_real and
check_effective_target_fortran_large_int to check for
corresponding effective targets.
* gfortran.dg/large_integer_kind_1.f90: New test.
* gfortran.dg/large_real_kind_1.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101274 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/runtime')
| -rw-r--r-- | libgfortran/runtime/error.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/runtime/error.c b/libgfortran/runtime/error.c index 5cb02aa8d5f..8b42041967a 100644 --- a/libgfortran/runtime/error.c +++ b/libgfortran/runtime/error.c @@ -69,11 +69,11 @@ static char buffer[32]; /* buffer for integer/ascii conversions */ /* Returns a pointer to a static buffer. */ char * -gfc_itoa (int64_t n) +gfc_itoa (GFC_INTEGER_LARGEST n) { int negative; char *p; - uint64_t t; + GFC_UINTEGER_LARGEST t; if (n == 0) { @@ -109,7 +109,7 @@ gfc_itoa (int64_t n) * static buffer. */ char * -xtoa (uint64_t n) +xtoa (GFC_UINTEGER_LARGEST n) { int digit; char *p; |