* pdecsub.pas, parse_proc_dec: always parse operator overload heads as block type bt_body so that operators like ">", "=>" or "<>" are resolved to the correct tokens ("<>" would be a sequence of "_LSHARPBRACKET _RSHARPBRACKET" instead of _NE otherwise). Fixes Mantis #21127

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@21266 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 7 insertions, 0 deletions

diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas
index 3206c1e058..f2a7a4b6a7 100644
--- a/compiler/pdecsub.pas
+++ b/compiler/pdecsub.pas
@@ -966,6 +966,7 @@ implementation
         locationstr: string;
         i: integer;
         found: boolean;
+        old_block_type: tblock_type;
 
         procedure read_returndef(pd: tprocdef);
           var
@@ -1130,8 +1131,14 @@ implementation
           if (token=_OPERATOR) or
              (isclassmethod and (idtoken=_OPERATOR)) then
             begin
+              { we need to set the block type to bt_body, so that operator names
+                like ">", "=>" or "<>" are parsed correctly instead of e.g.
+                _LSHARPBRACKET and _RSHARPBRACKET for "<>" }
+              old_block_type:=block_type;
+              block_type:=bt_body;
               consume(_OPERATOR);
               parse_proc_head(astruct,potype_operator,pd);
+              block_type:=old_block_type;
               if assigned(pd) then
                 begin
                   { operators always need to be searched in all units }