diff options
Diffstat (limited to 'gcc/ada/mlib.adb')
| -rw-r--r-- | gcc/ada/mlib.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/mlib.adb b/gcc/ada/mlib.adb index df8796f30cd..65efb4c65a7 100644 --- a/gcc/ada/mlib.adb +++ b/gcc/ada/mlib.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1999-2004, Ada Core Technologies, Inc. -- +-- Copyright (C) 1999-2005, Ada Core Technologies, 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- -- @@ -101,9 +101,9 @@ package body MLib is To : Name_Id; Interfaces : String_List) is - Success : Boolean := False; - To_Dir : constant String := Get_Name_String (To); - Interface : Boolean := False; + Success : Boolean := False; + To_Dir : constant String := Get_Name_String (To); + Is_Interface : Boolean := False; procedure Verbose_Copy (Index : Positive); -- In verbose mode, output a message that the indexed file is copied @@ -154,11 +154,11 @@ package body MLib is -- Check if this is one of the interface ALIs - Interface := False; + Is_Interface := False; for Index in Interfaces'Range loop if File_Name = Interfaces (Index).all then - Interface := True; + Is_Interface := True; exit; end if; end loop; @@ -167,7 +167,7 @@ package body MLib is -- the interface indication at the end of the P line. -- Do not copy ALI files that are not Interfaces. - if Interface then + if Is_Interface then Success := False; Verbose_Copy (Index); |