From 6d3739d9ba9b39281bcec3fe846707f9557cebc1 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 27 Jul 2010 18:20:01 +0000
Subject: [PATCH] codetools: fpc unit paths setdirseparator

git-svn-id: trunk@26866 -
---
 components/codetools/definetemplates.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/codetools/definetemplates.pas b/components/codetools/definetemplates.pas
index fd0b36a921..c19d14b322 100644
--- a/components/codetools/definetemplates.pas
+++ b/components/codetools/definetemplates.pas
@@ -1389,7 +1389,7 @@ function ParseFPCVerbose(List: TStrings; out ConfigFiles: TSTrings;
     'U':
       if (StrLComp(@UpLine[CurPos], 'USING UNIT PATH: ', 17) = 0) then begin
         Inc(CurPos, 17);
-        NewPath:=copy(Line,CurPos,len);
+        NewPath:=SetDirSeparators(copy(Line,CurPos,len));
         if not FilenameIsAbsolute(NewPath) then
           NewPath:=ExpandFileNameUTF8(AnsiToUtf8(NewPath));
         NewPath:=ChompPathDelim(TrimFilename(NewPath));
@@ -1403,7 +1403,7 @@ function ParseFPCVerbose(List: TStrings; out ConfigFiles: TSTrings;
       begin
         // skip keywords
         Inc(CurPos, 19);
-        Filename:=copy(Line,CurPos,length(Line));
+        Filename:=SetDirSeparators(copy(Line,CurPos,length(Line)));
         ConfigFiles.Add('-'+Filename);
       end else if StrLComp(@UpLine[CurPos], 'COMPILER: ', 10) = 0 then begin
         // skip keywords
@@ -1415,7 +1415,7 @@ function ParseFPCVerbose(List: TStrings; out ConfigFiles: TSTrings;
       begin
         // skip keywords
         Inc(CurPos, 26);
-        Filename:=copy(Line,CurPos,length(Line));
+        Filename:=SetDirSeparators(copy(Line,CurPos,length(Line)));
         if (ConfigFiles.Count>0)
         and (ConfigFiles[ConfigFiles.Count-1]='-'+Filename) then
           ConfigFiles.Delete(ConfigFiles.Count-1);