paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 09:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: clean up

Browse Source
This commit is contained in:
mattias 2021-11-18 20:11:54 +01:00
parent 6404478ea4
commit 75b911ce68
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-passrc/tests/tconstparser.pas
View File

@ -118,9 +118,7 @@ Type
TTestLabelParser = Class(TTestParser)
private
FExpr: TPasExpr;
FHint : string;
FTheStr: TPasResString;
Protected
Function ParseLabel(ASource : String) : TPasLabels;
Property Hint : string Read FHint Write FHint;
@ -571,7 +569,7 @@ end;
procedure TTestConstParser.TestRecordConstEmpty;
Var
R : TRecordValues;
Fi : TRecordValuesItem;
//Fi : TRecordValuesItem;
begin
Typed := 'TPoint';
ParseConst('()');