paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Better operator as identifier mechanism

Browse Source 
git-svn-id: trunk@36701 -
This commit is contained in:
michael 2017-07-09 08:04:48 +00:00
parent 68414a358c
commit 31bc025d08
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1119,6 +1119,7 @@ end;
procedure TTestScanner.TestOperator;
begin
Scanner.SetTokenOption(toOperatorToken);
TestToken(tkoperator,'operator');
end;
@ -1728,7 +1729,7 @@ end;
procedure TTestScanner.TestOperatorIdentifier;
begin
Scanner.PushNonToken(tkoperator);
Scanner.SetNonToken(tkoperator);
TestToken(tkidentifier,'operator',True);
end;

2
packages/fcl-passrc/tests/testpassrc.lpi
View File

@ -27,7 +27,7 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
<CommandLineParams Value="--suite=TTestRecordTypeParser.TestOperatorField"/>
<CommandLineParams Value="--suite=TTestProcedureFunction.TestOperatorTokens"/>
</local>
</RunParams>
<RequiredPackages Count="1">