diff options
Diffstat (limited to 'gcc/ada/lib-writ.adb')
| -rw-r--r-- | gcc/ada/lib-writ.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index 8c36957..d263b05 100644 --- a/gcc/ada/lib-writ.adb +++ b/gcc/ada/lib-writ.adb @@ -1464,7 +1464,7 @@ package body Lib.Writ is -- Normal case of a unit entry with a source index - if Sind /= No_Source_File then + if Sind > No_Source_File then Fname := File_Name (Sind); -- Ensure that on platforms where the file names are not case |