From 8ff8c05b9939fb6fae91cb34a1b946b2071b35a9 Mon Sep 17 00:00:00 2001 From: Mattias Gaertner Date: Mon, 15 Apr 2019 14:59:46 +0000 Subject: [PATCH] fcl-passrc: clean up git-svn-id: trunk@41876 - --- packages/fcl-passrc/tests/tcresolver.pas | 3 --- 1 file changed, 3 deletions(-) diff --git a/packages/fcl-passrc/tests/tcresolver.pas b/packages/fcl-passrc/tests/tcresolver.pas index d5269b31cd..5bf5ee9c6c 100644 --- a/packages/fcl-passrc/tests/tcresolver.pas +++ b/packages/fcl-passrc/tests/tcresolver.pas @@ -4651,7 +4651,6 @@ procedure TTestResolver.TestCAssignments; begin StartProgram(false); Parser.Options:=Parser.Options+[po_cassignments]; - Scanner.Options:=Scanner.Options+[po_cassignments]; Add('Type'); Add(' TFlag = (Flag1,Flag2);'); Add(' TFlags = set of TFlag;'); @@ -4832,7 +4831,6 @@ procedure TTestResolver.TestAssign_Access; begin StartProgram(false); Parser.Options:=Parser.Options+[po_cassignments]; - Scanner.Options:=Scanner.Options+[po_cassignments]; Add('var i: longint;'); Add('begin'); Add(' {#a1_assign}i:={#a2_read}i;'); @@ -14108,7 +14106,6 @@ end; procedure TTestResolver.TestArray_DynArrayConstObjFPC; begin Parser.Options:=Parser.Options+[po_cassignments]; - Scanner.Options:=Scanner.Options+[po_cassignments]; StartProgram(false); Add([ '{$modeswitch arrayoperators}',