* Better operator as identifier mechanism

git-svn-id: trunk@36701 -

packages/fcl-passrc/tests/tcscanner.pas

@@ -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;
 

packages/fcl-passrc/tests/testpassrc.lpi

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