diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2024-10-11 19:29:15 +0200 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@adacore.com> | 2024-10-11 19:30:24 +0200 |
| commit | 3b095ac8477f09cccbc9002dde888bd0ad9a73fb (patch) | |
| tree | 0af99500b5db380a9b664161307a6a9ba588f03a /gcc/ada/gcc-interface/decl.cc | |
| parent | 01c4d1fe251896c25dee7902cf2922927ce4906e (diff) | |
| download | gcc-3b095ac8477f09cccbc9002dde888bd0ad9a73fb.zip gcc-3b095ac8477f09cccbc9002dde888bd0ad9a73fb.tar.gz gcc-3b095ac8477f09cccbc9002dde888bd0ad9a73fb.tar.bz2 | |
Fix thinko in previous change
gcc/ada/
PR ada/116498
PR ada/117087
* gcc-interface/decl.cc (validate_size): Fix thinko.
Diffstat (limited to 'gcc/ada/gcc-interface/decl.cc')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.cc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/decl.cc b/gcc/ada/gcc-interface/decl.cc index 79d60c0..f22dea0 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. */ |