diff options
Diffstat (limited to 'gcc/ada/fname-uf.adb')
| -rw-r--r-- | gcc/ada/fname-uf.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/fname-uf.adb b/gcc/ada/fname-uf.adb index 0ec9405..75809de 100644 --- a/gcc/ada/fname-uf.adb +++ b/gcc/ada/fname-uf.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2007, 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- -- @@ -28,7 +28,6 @@ with Alloc; with Debug; use Debug; with Fmap; use Fmap; with Krunch; -with Namet; use Namet; with Opt; use Opt; with Osint; use Osint; with Table; @@ -194,7 +193,7 @@ package body Fname.UF is -- Null or error name means that some previous error occurred -- This is an unrecoverable error, so signal it. - if Uname <= Error_Name then + if Uname in Error_Unit_Name_Or_No_Unit_Name then raise Unrecoverable_Error; end if; @@ -434,7 +433,7 @@ package body Fname.UF is Debug_Flag_4); end if; - Fnam := File_Name_Type (Name_Find); + Fnam := Name_Find; -- If we are in the second search of the table, we accept -- the file name without checking, because we know that |