OSDN Git Service

2005-11-03 James E Wilson <wilson@specifix.com>
authorguerby <guerby@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 3 Nov 2005 22:13:03 +0000 (22:13 +0000)
committerguerby <guerby@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 3 Nov 2005 22:13:03 +0000 (22:13 +0000)
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

gcc/ada/ChangeLog
gcc/ada/trans.c

index 31f324a..3239df2 100644 (file)
@@ -1,3 +1,9 @@
+2005-11-03  James E Wilson  <wilson@specifix.com>
+
+       PR ada/23427
+        * trans.c (gnat_to_gnu): Use TYPE_SIZE_UNIT not TYPE_SIZE in
+        TREE_OVERFLOW check.
+
 2005-09-21  Olivier Hainque  <hainque@adacore.com>
 
        PR ada/22418
index 0e05b6d..cd91a36 100644 (file)
@@ -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)))