diff options
Diffstat (limited to 'gcc/ada/sem_ch11.adb')
| -rw-r--r-- | gcc/ada/sem_ch11.adb | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/gcc/ada/sem_ch11.adb b/gcc/ada/sem_ch11.adb index 2a3536b642a..436d3277e5c 100644 --- a/gcc/ada/sem_ch11.adb +++ b/gcc/ada/sem_ch11.adb @@ -6,9 +6,9 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.96 $ +-- $Revision$ -- -- --- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -324,10 +324,6 @@ package body Sem_Ch11 is if Is_Entity_Name (Exception_Id) then Exception_Name := Entity (Exception_Id); - - if Present (Renamed_Object (Exception_Name)) then - Set_Entity (Exception_Id, Renamed_Object (Exception_Name)); - end if; end if; if No (Exception_Name) |