From 75b911ce68c27c90d91b7a8796e936ec7ba0a947 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 18 Nov 2021 20:11:54 +0100
Subject: [PATCH] fcl-passrc: clean up

---
 packages/fcl-passrc/tests/tconstparser.pas | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/packages/fcl-passrc/tests/tconstparser.pas b/packages/fcl-passrc/tests/tconstparser.pas
index b743c22432..62b4e83ed9 100644
--- a/packages/fcl-passrc/tests/tconstparser.pas
+++ b/packages/fcl-passrc/tests/tconstparser.pas
@@ -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('()');