diff options
| author | Patrick Lehmann <Patrick.Lehmann@tu-dresden.de> | 2016-07-01 17:21:48 +0200 |
|---|---|---|
| committer | Patrick Lehmann <Patrick.Lehmann@tu-dresden.de> | 2016-07-01 17:21:48 +0200 |
| commit | 35d71db150272a243d0e07ac37ee8abcf56f270a (patch) | |
| tree | 3e0a78cccc7a07391be282d7a4cd7a80ec80f146 /src/ghdldrv | |
| parent | 50d05077aee0a8ff8020d2dcf08a7145fdc74b1e (diff) | |
| download | ghdl-35d71db150272a243d0e07ac37ee8abcf56f270a.tar.gz ghdl-35d71db150272a243d0e07ac37ee8abcf56f270a.tar.bz2 ghdl-35d71db150272a243d0e07ac37ee8abcf56f270a.zip | |
More changes for the MinGW32/MinGW64 build flow and for the llvm back-end.
Diffstat (limited to 'src/ghdldrv')
| -rw-r--r-- | src/ghdldrv/ghdllocal.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb index fbffb5f1d..8468d77fd 100644 --- a/src/ghdldrv/ghdllocal.adb +++ b/src/ghdldrv/ghdllocal.adb @@ -572,7 +572,7 @@ package body Ghdllocal is for I in Filename'Range loop if Filename (I) = '.' then Last := I - 1; - elsif Remove_Dir and then Filename (I) = Directory_Separator then + elsif Remove_Dir and then Is_Directory_Separator (Filename (I)) then First := I + 1; Last := Filename'Last; end if; |