From: Eric Botcazou <ebotcazou@adacore.com>
Date: Fri, 11 Oct 2024 17:29:15 +0000 (+0200)
Subject: Fix thinko in previous change
X-Git-Tag: basepoints/gcc-16~5281
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3b095ac8477f09cccbc9002dde888bd0ad9a73fb;p=thirdparty%2Fgcc.git

Fix thinko in previous change

gcc/ada/
	PR ada/116498
	PR ada/117087
	* gcc-interface/decl.cc (validate_size): Fix thinko.
---

diff --git a/gcc/ada/gcc-interface/decl.cc b/gcc/ada/gcc-interface/decl.cc
index 79d60c0c221..f22dea0d2cf 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.  */