paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 23:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Codetools: Eliminate a variable.

Browse Source
This commit is contained in:
Juha 2021-10-01 16:28:52 +03:00
parent f6d50d449f
commit 8eeeef47c6
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/linkscanner.pas
View File

@ -3979,15 +3979,14 @@ end;
function TLinkScanner.IncludePathDirective: boolean; function TLinkScanner.IncludePathDirective: boolean;
// {$includepath path_addition} // {$includepath path_addition}
var AddPath, PathDivider: string; var AddPath: string;
begin begin
if StoreDirectives then if StoreDirectives then
FDirectives[FDirectivesCount-1].Kind:=lsdkIncludePath; FDirectives[FDirectivesCount-1].Kind:=lsdkIncludePath;
inc(SrcPos); inc(SrcPos);
AddPath:=Trim(copy(Src,SrcPos,CommentInnerEndPos-SrcPos)); AddPath:=Trim(copy(Src,SrcPos,CommentInnerEndPos-SrcPos));
PathDivider:=':';
Values.Variables[ExternalMacroStart+'INCPATH']:= Values.Variables[ExternalMacroStart+'INCPATH']:=
Values.Variables[ExternalMacroStart+'INCPATH']+PathDivider+AddPath; Values.Variables[ExternalMacroStart+'INCPATH']+':'+AddPath;
Result:=true; Result:=true;
end; end;