diff options
| author | Ghjuvan Lacambre <lacambre@adacore.com> | 2021-07-05 17:08:56 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-09-21 15:24:58 +0000 |
| commit | cf7aa7d8e8523ca246804ba7c8ef6ab4c7910cb8 (patch) | |
| tree | 7d8f5b75fd76080468198b06176fb6b5a3ffadf6 | |
| parent | 69a0ff3416a5bbd8abcdd3fb85a387b2eccc88dc (diff) | |
| download | gcc-cf7aa7d8e8523ca246804ba7c8ef6ab4c7910cb8.zip gcc-cf7aa7d8e8523ca246804ba7c8ef6ab4c7910cb8.tar.gz gcc-cf7aa7d8e8523ca246804ba7c8ef6ab4c7910cb8.tar.bz2 | |
[Ada] exp_pakd.adb: work around spurious Codepeer warnings
gcc/ada/
* exp_pakd.adb (Expand_Packed_Not): Replace expression with
statement.
| -rw-r--r-- | gcc/ada/exp_pakd.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index 9b11813..779dbb3 100644 --- a/gcc/ada/exp_pakd.adb +++ b/gcc/ada/exp_pakd.adb @@ -2002,7 +2002,11 @@ package body Exp_Pakd is -- actual subtype of the operand. Preserve old behavior in case size is -- not set. - Size := (if Known_RM_Size (PAT) then RM_Size (PAT) else Uint_0); + if Known_RM_Size (PAT) then + Size := RM_Size (PAT); + else + Size := Uint_0; + end if; Lit := Make_Integer_Literal (Loc, 2 ** Size - 1); Set_Print_In_Hex (Lit); |