https://gcc.gnu.org/g:3b095ac8477f09cccbc9002dde888bd0ad9a73fb
commit r15-4272-g3b095ac8477f09cccbc9002dde888bd0ad9a73fb
Author: Eric Botcazou <ebotca...@adacore.com>
Date: Fri Oct 11 19:29:15 2024 +0200
Fix thinko in previous change
gcc/ada/
PR ada/116498
PR ada/117087
* gcc-interface/decl.cc (validate_size): Fix thinko.
Diff:
---
gcc/ada/gcc-interface/decl.cc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/gcc/ada/gcc-interface/decl.cc b/gcc/ada/gcc-interface/decl.cc
index 79d60c0c2213..f22dea0d2cfe 100644
--- a/gcc/ada/gcc-interface/decl.cc
+++ b/gcc/ada/gcc-interface/decl.cc
@@ -9604,7 +9604,7 @@ validate_size (Uint uint_size, tree gnu_type, Entity_Id
gnat_object,
/* If this is an access type or a fat pointer, the minimum size is that given
by the default pointer mode. */
if (TREE_CODE (gnu_type) == POINTER_TYPE || TYPE_IS_FAT_POINTER_P (gnu_type))
- old_size = bitsize_int (ptr_mode);
+ old_size = bitsize_int (GET_MODE_BITSIZE (ptr_mode));
/* Issue an error either if the default size of the object isn't a constant
or if the new size is smaller than it. */
