diff options
Diffstat (limited to 'gcc/ada/exp_pakd.adb')
-rw-r--r-- | gcc/ada/exp_pakd.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index c620caa..07a05a5 100644 --- a/gcc/ada/exp_pakd.adb +++ b/gcc/ada/exp_pakd.adb @@ -233,8 +233,11 @@ package body Exp_Pakd is elsif T_Size <= 32 then Swap_RE := RE_Bswap_32; - else pragma Assert (T_Size <= 64); + elsif T_Size <= 64 then Swap_RE := RE_Bswap_64; + + else pragma Assert (T_Size <= 128); + Swap_RE := RE_Bswap_128; end if; Swap_F := RTE (Swap_RE); |