diff options
Diffstat (limited to 'gcc/ada/xref_lib.adb')
| -rw-r--r-- | gcc/ada/xref_lib.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/xref_lib.adb b/gcc/ada/xref_lib.adb index 935291328fe..475f15e3816 100644 --- a/gcc/ada/xref_lib.adb +++ b/gcc/ada/xref_lib.adb @@ -308,7 +308,7 @@ package body Xref_Lib is -- Case where we have an ALI file, accept it even though this is -- not official usage, since the intention is obvious - if Tail (File, 4) = ".ali" then + if Tail (File, 4) = "." & Osint.ALI_Suffix.all then File_Ref := Add_To_Xref_File (File, Visited => False, Emit_Warning => True); @@ -466,7 +466,9 @@ package body Xref_Lib is return; end if; - elsif Last > 4 and then Dir_Ent (Last - 3 .. Last) = ".ali" then + elsif Last > 4 + and then Dir_Ent (Last - 3 .. Last) = "." & Osint.ALI_Suffix.all + then File_Ref := Add_To_Xref_File (Dir_Ent (1 .. Last), Visited => False); end if; |