diff options
Diffstat (limited to 'gcc/ada/lib-writ.adb')
| -rw-r--r-- | gcc/ada/lib-writ.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index eab4a10db28..cf24265a2b9 100644 --- a/gcc/ada/lib-writ.adb +++ b/gcc/ada/lib-writ.adb @@ -461,8 +461,7 @@ package body Lib.Writ is Write_Info_Str (" O"); Write_Info_Char (OA_Setting (Unit_Num)); - if (Ekind (Uent) = E_Package - or else Ekind (Uent) = E_Package_Body) + if Ekind_In (Uent, E_Package, E_Package_Body) and then Present (Finalizer (Uent)) then Write_Info_Str (" PF"); |