From: guerby Date: Thu, 3 Nov 2005 22:13:03 +0000 (+0000) Subject: 2005-11-03 James E Wilson X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=cfd96fcf019126965884e81fca9598be86537582 2005-11-03 James E Wilson PR ada/23427 * trans.c (gnat_to_gnu): Use TYPE_SIZE_UNIT not TYPE_SIZE in TREE_OVERFLOW check. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@106452 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 31f324a142b..3239df20cd4 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2005-11-03 James E Wilson + + PR ada/23427 + * trans.c (gnat_to_gnu): Use TYPE_SIZE_UNIT not TYPE_SIZE in + TREE_OVERFLOW check. + 2005-09-21 Olivier Hainque PR ada/22418 diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 0e05b6d4731..cd91a368328 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -3423,8 +3423,8 @@ gnat_to_gnu (Node_Id gnat_node) /* If the type has a size that overflows, convert this into raise of Storage_Error: execution shouldn't have gotten here anyway. */ - if (TREE_CODE (TYPE_SIZE (TREE_TYPE (gnu_lhs))) == INTEGER_CST - && TREE_OVERFLOW (TYPE_SIZE (TREE_TYPE (gnu_lhs)))) + if (TREE_CODE (TYPE_SIZE_UNIT (TREE_TYPE (gnu_lhs))) == INTEGER_CST + && TREE_OVERFLOW (TYPE_SIZE_UNIT (TREE_TYPE (gnu_lhs)))) gnu_result = build_call_raise (SE_Object_Too_Large); else if (Nkind (Expression (gnat_node)) == N_Function_Call && !Do_Range_Check (Expression (gnat_node)))