diff options
Diffstat (limited to 'gcc/ada/sem_ch4.adb')
| -rw-r--r-- | gcc/ada/sem_ch4.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index a735637..8d9270d 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -1491,12 +1491,12 @@ package body Sem_Ch4 is Typ := Etype (Arg); end if; - if Is_Signed_Integer_Type (Typ) then + if Has_Overflow_Operations (Typ) then Error_Msg_N ("possible missing instantiation of " & "'Text_'I'O.'Integer_'I'O!", Nam); - elsif Is_Modular_Integer_Type (Typ) then + elsif Has_Modular_Operations (Typ) then Error_Msg_N ("possible missing instantiation of " & "'Text_'I'O.'Modular_'I'O!", Nam); |