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

codetools: parse fpc output: keep FULLVERSION value

Browse Source 
git-svn-id: branches/fixes_2_0@60662 -
This commit is contained in:
mattias 2019-03-13 07:11:44 +00:00
parent 9f7ebc76de
commit 23822a8e52
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/definetemplates.pas
View File

@ -1717,6 +1717,14 @@ function ParseFPCVerbose(List: TStrings; const WorkDir: string; out
if IsUpLine(CurPos,'DEFINED: ') then begin if IsUpLine(CurPos,'DEFINED: ') then begin
Inc(CurPos, 9); Inc(CurPos, 9);
SymbolName:=copy(Line, CurPos, len); SymbolName:=copy(Line, CurPos, len);
if (SameText(SymbolName,'PAS2JS_FULLVERSION')
or SameText(SymbolName,'FPC_FULLVERSION'))
and Defines.Contains(SymbolName) then
begin
// keep the FULLVERSION value
// Note: pas2js <1.4 had a bug, it gave out DEFINED
exit;
end;
DefineSymbol(SymbolName,''); DefineSymbol(SymbolName,'');
Exit; Exit;
end; end;