diff options
Diffstat (limited to 'gcc/ada/exp_intr.adb')
| -rw-r--r-- | gcc/ada/exp_intr.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/exp_intr.adb b/gcc/ada/exp_intr.adb index 49cdfe0..6f29b37 100644 --- a/gcc/ada/exp_intr.adb +++ b/gcc/ada/exp_intr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, 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- -- @@ -659,6 +659,8 @@ package body Exp_Intr is -- String cases else + Name_Len := 0; + case Nam is when Name_File => Get_Decoded_Name_String @@ -668,12 +670,10 @@ package body Exp_Intr is Build_Location_String (Loc); when Name_Enclosing_Entity => - Name_Len := 0; - - Ent := Current_Scope; -- Skip enclosing blocks to reach enclosing unit + Ent := Current_Scope; while Present (Ent) loop exit when Ekind (Ent) /= E_Block and then Ekind (Ent) /= E_Loop; @@ -682,7 +682,6 @@ package body Exp_Intr is -- Ent now points to the relevant defining entity - Name_Len := 0; Write_Entity_Name (Ent); when others => @@ -690,7 +689,8 @@ package body Exp_Intr is end case; Rewrite (N, - Make_String_Literal (Loc, Strval => String_From_Name_Buffer)); + Make_String_Literal (Loc, + Strval => String_From_Name_Buffer)); Analyze_And_Resolve (N, Standard_String); end if; |