paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 16:35:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed win32 include file search

Browse Source 
git-svn-id: trunk@4743 -
This commit is contained in:
mattias 2003-10-30 20:45:30 +00:00
parent c03345925a
commit 83528f4e25
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/linkscanner.pas
View File

@ -2384,7 +2384,7 @@ begin
while PathEnd<=length(IncludePath) do begin while PathEnd<=length(IncludePath) do begin
if ((Pos(IncludePath[PathEnd],PathDivider))>0) if ((Pos(IncludePath[PathEnd],PathDivider))>0)
{$IFDEF win32} {$IFDEF win32}
and (not ((PathEnd-PathStart=2) // ignore colon in drive and (not ((PathEnd-PathStart=1) // ignore colon in drive
and (IncludePath[PathEnd]=':') and (IncludePath[PathEnd]=':')
and (IsWordChar[IncludePath[PathEnd-1]]))) and (IsWordChar[IncludePath[PathEnd-1]])))
{$ENDIF} {$ENDIF}