mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-04 08:40:33 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/78758 (Warning: '__builtin_memcpy' ... overflows the destination for string assignment)

Browse Source 
PR fortran/78758
	* tree-object-size.c (compute_object_offset) <case ARRAY_REF>: Handle
	non-zero low bound or non-standard element sizes.

	* gfortran.dg/pr78758.f90: New test.
	* gfortran.dg/pr38868.f: Remove again bogus warning.

From-SVN: r243515
This commit is contained in:
Jakub Jelinek 2016-12-10 09:02:21 +01:00 committed by Jakub Jelinek
parent d89ee6dbda
commit 2d4102c5cb
5 changed files with 28 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ChangeLog
View File

@ -1,5 +1,9 @@
2016-12-10 Jakub Jelinek <jakub@redhat.com>
PR fortran/78758
* tree-object-size.c (compute_object_offset) <case ARRAY_REF>: Handle
non-zero low bound or non-standard element sizes.
PR sanitizer/78708
* lto-streamer-in.c (input_function): In addition to debug stmts
without -g, remove IFN_*SAN_* calls if corresponding flag_sanitize

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2016-12-10 Jakub Jelinek <jakub@redhat.com>
PR fortran/78758
* gfortran.dg/pr78758.f90: New test.
* gfortran.dg/pr38868.f: Remove again bogus warning.
2016-12-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/77903

2
gcc/testsuite/gfortran.dg/pr38868.f
View File

@ -9,7 +9,7 @@
ANER(1)='A '
ANER(2)=' '
LINE=' '
LINE(78:80)='xyz' ! { dg-warning "writing 3 bytes into a region of size 2" }
LINE(78:80)='xyz'
WRITE(*,'(A82)') "'"//LINE//"'"
END

11
gcc/testsuite/gfortran.dg/pr78758.f90 Normal file
View File

@ -0,0 +1,11 @@
! PR fortran/78758
! { dg-do compile }
! { dg-options "-O2 -Wall" }
integer function pr78758 (x)
character(len=*), intent(in) :: x
character(len=16) :: y
integer, external :: z
y(2:) = " " // adjustl (x(2:))
pr78758 = z (y)
end function pr78758

7
gcc/tree-object-size.c
View File

@ -138,13 +138,18 @@ compute_object_offset (const_tree expr, const_tree var)
return base;
t = TREE_OPERAND (expr, 1);
tree low_bound, unit_size;
low_bound = array_ref_low_bound (CONST_CAST_TREE (expr));
unit_size = array_ref_element_size (CONST_CAST_TREE (expr));
if (! integer_zerop (low_bound))
t = fold_build2 (MINUS_EXPR, TREE_TYPE (t), t, low_bound);
if (TREE_CODE (t) == INTEGER_CST && tree_int_cst_sgn (t) < 0)
{
code = MINUS_EXPR;
t = fold_build1 (NEGATE_EXPR, TREE_TYPE (t), t);
}
t = fold_convert (sizetype, t);
off = size_binop (MULT_EXPR, TYPE_SIZE_UNIT (TREE_TYPE (expr)), t);
off = size_binop (MULT_EXPR, unit_size, t);
break;
case MEM_REF: