paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 17:40:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove debug statement

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-02-12 14:26:50 +01:00
parent f19402e81b
commit ee2d2a4bd4
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-passrc/src/pscanner.pp
View File

@ -3977,8 +3977,6 @@ begin
MValue:=Param; MValue:=Param;
MName:=UpperCase(Trim(Copy(MValue,1,Index-1))); MName:=UpperCase(Trim(Copy(MValue,1,Index-1)));
Delete(MValue,1,Index+1); Delete(MValue,1,Index+1);
if SameText(MName,'TGenericStringBuilder') then
Writeln('TGenericStringBuilder = ',MValue);
AddMacro(MName,Trim(MValue)); AddMacro(MName,Trim(MValue));
end; end;
end; end;