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

fcl-passrc: clean up

Browse Source 
git-svn-id: trunk@41876 -
This commit is contained in:
Mattias Gaertner 2019-04-15 14:59:46 +00:00
parent f6e13c50a9
commit 8ff8c05b99
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-passrc/tests/tcresolver.pas
View File

@ -4651,7 +4651,6 @@ procedure TTestResolver.TestCAssignments;
begin begin
StartProgram(false); StartProgram(false);
Parser.Options:=Parser.Options+[po_cassignments]; Parser.Options:=Parser.Options+[po_cassignments];
Scanner.Options:=Scanner.Options+[po_cassignments];
Add('Type'); Add('Type');
Add(' TFlag = (Flag1,Flag2);'); Add(' TFlag = (Flag1,Flag2);');
Add(' TFlags = set of TFlag;'); Add(' TFlags = set of TFlag;');
@ -4832,7 +4831,6 @@ procedure TTestResolver.TestAssign_Access;
begin begin
StartProgram(false); StartProgram(false);
Parser.Options:=Parser.Options+[po_cassignments]; Parser.Options:=Parser.Options+[po_cassignments];
Scanner.Options:=Scanner.Options+[po_cassignments];
Add('var i: longint;'); Add('var i: longint;');
Add('begin'); Add('begin');
Add(' {#a1_assign}i:={#a2_read}i;'); Add(' {#a1_assign}i:={#a2_read}i;');
@ -14108,7 +14106,6 @@ end;
procedure TTestResolver.TestArray_DynArrayConstObjFPC; procedure TTestResolver.TestArray_DynArrayConstObjFPC;
begin begin
Parser.Options:=Parser.Options+[po_cassignments]; Parser.Options:=Parser.Options+[po_cassignments];
Scanner.Options:=Scanner.Options+[po_cassignments];
StartProgram(false); StartProgram(false);
Add([ Add([
'{$modeswitch arrayoperators}', '{$modeswitch arrayoperators}',