re PR libfortran/60706 (FAIL: gfortran.dg/size_kind_2.f90 -O scan-tree-dump original "var2 = 42949673 00;")

2014-04-08  Richard Biener  <rguenther@suse.de>

	PR middle-end/60706
	* tree-pretty-print.c (pp_double_int): For HWI32 hosts with
	a 64bit widest int print double-int similar to on HWI64 hosts.

From-SVN: r209216
This commit is contained in:
Richard Biener 2014-04-08 12:57:07 +00:00 committed by Richard Biener
parent 9038ae48b8
commit 3fa68ccbb6
2 changed files with 12 additions and 0 deletions

View File

@ -1,3 +1,9 @@
2014-04-08 Richard Biener <rguenther@suse.de>
PR middle-end/60706
* tree-pretty-print.c (pp_double_int): For HWI32 hosts with
a 64bit widest int print double-int similar to on HWI64 hosts.
2014-04-08 Richard Biener <rguenther@suse.de>
PR tree-optimization/60785

View File

@ -3465,6 +3465,12 @@ pp_double_int (pretty_printer *pp, double_int d, bool uns)
pp_wide_integer (pp, d.low);
else if (d.fits_uhwi ())
pp_unsigned_wide_integer (pp, d.low);
else if (HOST_BITS_PER_DOUBLE_INT == HOST_BITS_PER_WIDEST_INT)
pp_scalar (pp,
uns
? HOST_WIDEST_INT_PRINT_UNSIGNED : HOST_WIDEST_INT_PRINT_DEC,
(HOST_WIDEST_INT) ((((unsigned HOST_WIDEST_INT) d.high << 1)
<< (HOST_BITS_PER_WIDE_INT - 1)) | d.low));
else
{
unsigned HOST_WIDE_INT low = d.low;