diff options
| author | Tristan Gingold | 2014-01-02 00:44:10 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2014-01-02 00:44:10 +0100 |
| commit | 281e8b18530bf7284447cf6950be0f50db50df5b (patch) | |
| tree | 84afd9735773b743f6c4178ff6cd08b699f0575a /libraries.adb | |
| parent | ae1991ad1858c272b63c78521d9a78f49ad0f212 (diff) | |
| download | ghdl-281e8b18530bf7284447cf6950be0f50db50df5b.tar.gz ghdl-281e8b18530bf7284447cf6950be0f50db50df5b.tar.bz2 ghdl-281e8b18530bf7284447cf6950be0f50db50df5b.zip | |
Use GNAT.OS_Lib.Is_Absolute_Path (for Windows).
Diffstat (limited to 'libraries.adb')
| -rw-r--r-- | libraries.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libraries.adb b/libraries.adb index 4d57439..21d8544 100644 --- a/libraries.adb +++ b/libraries.adb @@ -934,8 +934,7 @@ package body Libraries is New_Lib_Time_Stamp := Files_Map.Get_File_Time_Stamp (File); File_Name := Files_Map.Get_File_Name (File); Image (File_Name); - if Files_Map.Is_Absolute_Pathname (Name_Buffer (1 .. Name_Length)) - then + if GNAT.OS_Lib.Is_Absolute_Path (Name_Buffer (1 .. Name_Length)) then Dir_Name := Null_Identifier; else Dir_Name := Files_Map.Get_Home_Directory; |