diff options
Diffstat (limited to 'gcc/ada/sem_ch13.adb')
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index cd47f73..a35b67e 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -508,7 +508,7 @@ package body Sem_Ch13 is if Warn_On_Reverse_Bit_Order then Error_Msg_N - ("info: multi-byte field specified with " + ("multi-byte field specified with " & "non-standard Bit_Order?.v?", CC); if Bytes_Big_Endian then @@ -732,7 +732,7 @@ package body Sem_Ch13 is then Error_Msg_Uint_1 := MSS; Error_Msg_N - ("info: reverse bit order in machine scalar of " + ("reverse bit order in machine scalar of " & "length^?.v?", First_Bit (CC)); Error_Msg_Uint_1 := NFB; Error_Msg_Uint_2 := NLB; @@ -808,7 +808,7 @@ package body Sem_Ch13 is and then CSZ mod System_Storage_Unit = 0 then Error_Msg_N - ("info: multi-byte field specified with non-standard " + ("multi-byte field specified with non-standard " & "Bit_Order?.v?", CLC); if Bytes_Big_Endian then @@ -841,13 +841,13 @@ package body Sem_Ch13 is and then Warn_On_Reverse_Bit_Order then Error_Msg_N - ("info: Bit_Order clause does not affect byte " + ("Bit_Order clause does not affect byte " & "ordering?.v?", Pos); Error_Msg_Uint_1 := Intval (Pos) + Intval (FB) / System_Storage_Unit; Error_Msg_N - ("info: position normalized to ^ before bit order " + ("position normalized to ^ before bit order " & "interpreted?.v?", Pos); end if; |