diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2018-05-26 18:22:18 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2018-05-26 18:22:18 +0000 |
| commit | 8cb19ee36aadf82ea8ae414a81986eacfca00ce6 (patch) | |
| tree | 3315c78ff636a6da54a02a897c2302feec554cd0 /libgfortran | |
| parent | b61da1ebfb5caec3132440e31718d23b2fbfb83f (diff) | |
| download | gcc-8cb19ee36aadf82ea8ae414a81986eacfca00ce6.zip gcc-8cb19ee36aadf82ea8ae414a81986eacfca00ce6.tar.gz gcc-8cb19ee36aadf82ea8ae414a81986eacfca00ce6.tar.bz2 | |
re PR target/89506 (ICE: in decompose, at rtl.h:2266 with -Og -g)
2018-05-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/89506
* io/write.c (write_integer): Initialise the fnode format to
FMT_NONE, used for list directed write.
(BUF_STACK_SZ): Bump default buffer size up to avoid allocs on
small stuff.
From-SVN: r260795
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 8 | ||||
| -rw-r--r-- | libgfortran/io/write.c | 3 |
2 files changed, 10 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index ddf488c..40304ce 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,5 +1,13 @@ 2018-05-26 Jerry DeLisle <jvdelisle@gcc.gnu.org> + PR libgfortran/89506 + * io/write.c (write_integer): Initialise the fnode format to + FMT_NONE, used for list directed write. + (BUF_STACK_SZ): Bump default buffer size up to avoid allocs on + small stuff. + +2018-05-26 Jerry DeLisle <jvdelisle@gcc.gnu.org> + PR libgfortran/85840 * io/write.c (write_float_0): Use separate local variable for the float string length. diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 21a265c..5d52fd6 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -1348,6 +1348,7 @@ write_integer (st_parameter_dt *dtp, const char *source, int kind) } f.u.integer.w = width; f.u.integer.m = -1; + f.format = FMT_NONE; write_decimal (dtp, &f, source, kind, (void *) gfc_itoa); } @@ -1465,7 +1466,7 @@ write_character (st_parameter_dt *dtp, const char *source, int kind, size_t leng /* Floating point helper functions. */ -#define BUF_STACK_SZ 256 +#define BUF_STACK_SZ 384 static int get_precision (st_parameter_dt *dtp, const fnode *f, const char *source, int kind) |