diff options
| author | tgingold <tgingold@users.noreply.github.com> | 2016-07-01 18:47:13 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2016-07-01 18:47:13 +0200 |
| commit | 9ebac9a4cf1dce154a1fb7eecd75ccad189b3424 (patch) | |
| tree | 3e0a78cccc7a07391be282d7a4cd7a80ec80f146 /src/ghdldrv/ghdllocal.adb | |
| parent | 50d05077aee0a8ff8020d2dcf08a7145fdc74b1e (diff) | |
| parent | 35d71db150272a243d0e07ac37ee8abcf56f270a (diff) | |
| download | ghdl-9ebac9a4cf1dce154a1fb7eecd75ccad189b3424.tar.gz ghdl-9ebac9a4cf1dce154a1fb7eecd75ccad189b3424.tar.bz2 ghdl-9ebac9a4cf1dce154a1fb7eecd75ccad189b3424.zip | |
Merge pull request #109 from Paebbels/paebbels/mingw-llvm
More changes for MinGWxx and LLVm backend
Diffstat (limited to 'src/ghdldrv/ghdllocal.adb')
| -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; |