diff options
| -rw-r--r-- | gcc/ada/exp_pakd.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index 472c0da..fe2eb36 100644 --- a/gcc/ada/exp_pakd.adb +++ b/gcc/ada/exp_pakd.adb @@ -1824,7 +1824,7 @@ package body Exp_Pakd is P := Make_Op_Xor (Loc, L, R); end if; - Rewrite (N, Unchecked_Convert_To (Rtyp, P)); + Rewrite (N, Unchecked_Convert_To (Ltyp, P)); end; -- For the array case, we insert the actions |