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 79d60c0c2213d4b708028546e188744c5225ec7b..f22dea0d2cfe0e996bd6e6eaded7cf4476693f3c 100644 (file)
--- 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.  */