From 35d71db150272a243d0e07ac37ee8abcf56f270a Mon Sep 17 00:00:00 2001 From: Patrick Lehmann Date: Fri, 1 Jul 2016 17:21:48 +0200 Subject: More changes for the MinGW32/MinGW64 build flow and for the llvm back-end. --- src/ghdldrv/ghdllocal.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/ghdldrv') 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; -- cgit v1.2.3