diff options
Diffstat (limited to 'gcc/ada/sem_attr.adb')
| -rw-r--r-- | gcc/ada/sem_attr.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index e2fe5c3..c043c4f 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -2060,9 +2060,7 @@ package body Sem_Attr is if In_Instance then Rewrite (N, Make_Raise_Program_Error (Loc, - Reason => PE_Misaligned_Address_Value)); - -- ??? why Misaligned_Address_Value, seems wrong - + Reason => PE_Address_Of_Intrinsic)); else Error_Msg_N ("cannot take Address of intrinsic subprogram", N); |