[gcc r15-3403] ada: Fix internal error on pragma pack with discriminated record component

[Marc Poulhi?s via Gcc-cvs]

https://gcc.gnu.org/g:9ba7262c8de0a96e85cc1ad05e2c3666228c74e8

commit r15-3403-g9ba7262c8de0a96e85cc1ad05e2c3666228c74e8
Author: Eric Botcazou <ebotca...@adacore.com>
Date:   Tue Aug 20 10:34:45 2024 +0200

    ada: Fix internal error on pragma pack with discriminated record component
    
    When updating the size after making a packable type in gnat_to_gnu_field,
    we fail to clear it again when it is not constant.
    
    gcc/ada/
    
            * gcc-interface/decl.cc (gnat_to_gnu_field): Clear again gnu_size
            after updating it if it is not constant.

Diff:
---
 gcc/ada/gcc-interface/decl.cc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gcc/ada/gcc-interface/decl.cc b/gcc/ada/gcc-interface/decl.cc
index 398e01521a33..655ba0b8a105 100644
--- a/gcc/ada/gcc-interface/decl.cc
+++ b/gcc/ada/gcc-interface/decl.cc
@@ -7686,6 +7686,8 @@ gnat_to_gnu_field (Entity_Id gnat_field, tree 
gnu_record_type, int packed,
          gnu_field_type = gnu_packable_type;
          if (!gnu_size)
            gnu_size = rm_size (gnu_field_type);
+         if (TREE_CODE (gnu_size) != INTEGER_CST)
+           gnu_size = NULL_TREE;
        }
     }