diff options
Diffstat (limited to 'gcc/ada/ali-util.adb')
-rw-r--r-- | gcc/ada/ali-util.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/ali-util.adb b/gcc/ada/ali-util.adb index 3443fe3..001d654 100644 --- a/gcc/ada/ali-util.adb +++ b/gcc/ada/ali-util.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2010, 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- -- @@ -220,11 +220,11 @@ package body ALI.Util is null; end Post_Scan; - -------------- - -- Read_ALI -- - -------------- + ---------------------- + -- Read_Withed_ALIs -- + ---------------------- - procedure Read_ALI (Id : ALI_Id) is + procedure Read_Withed_ALIs (Id : ALI_Id) is Afile : File_Name_Type; Text : Text_Buffer_Ptr; Idread : ALI_Id; @@ -298,7 +298,7 @@ package body ALI.Util is else -- Otherwise, recurse to get new dependents - Read_ALI (Idread); + Read_Withed_ALIs (Idread); end if; -- If the ALI file has already been processed and is an interface, @@ -309,7 +309,7 @@ package body ALI.Util is end if; end loop; end loop; - end Read_ALI; + end Read_Withed_ALIs; ---------------------- -- Set_Source_Table -- |