diff options
Diffstat (limited to 'gcc/ada/exp_attr.adb')
| -rw-r--r-- | gcc/ada/exp_attr.adb | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index fc7aefa..5faa1ce 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -5471,9 +5471,6 @@ package body Exp_Attr is if No (Pname) then if Is_Tagged_Type (U_Type) and then Is_Derived_Type (U_Type) then Pname := Find_Optional_Prim_Op (U_Type, TSS_Put_Image); - pragma Assert - (Has_Interfaces (U_Type) -- ????interfaces not yet supported - or else Enable_Put_Image (U_Type) = Present (Pname)); else Pname := Find_Inherited_TSS (U_Type, TSS_Put_Image); end if; |