- removed caretn and related code

git-svn-id: trunk@7257 -

compiler/htypechk.pas

@@ -80,7 +80,7 @@ interface
       end;
 
     const
-      tok2nodes=25;
+      tok2nodes=24;
       tok2node:array[1..tok2nodes] of ttok2noderec=(
         (tok:_PLUS    ;nod:addn;op_overloading_supported:true),      { binary overloading supported }
         (tok:_MINUS   ;nod:subn;op_overloading_supported:true),      { binary and unary overloading supported }
@@ -105,7 +105,6 @@ interface
         (tok:_OP_SHR    ;nod:shrn;op_overloading_supported:true),    { binary overloading supported }
         (tok:_OP_XOR    ;nod:xorn;op_overloading_supported:true),    { binary overloading supported }
         (tok:_ASSIGNMENT;nod:assignn;op_overloading_supported:true), { unary overloading supported }
-        (tok:_CARET   ;nod:caretn;op_overloading_supported:false),    { binary overloading NOT supported }
         (tok:_UNEQUAL ;nod:unequaln;op_overloading_supported:false)   { binary overloading NOT supported  overload = instead }
       );
     const

compiler/nadd.pas

@@ -442,8 +442,7 @@ implementation
                   t:=crealconstnode.create(lvd-rvd,resultrealdef);
                 muln :
                   t:=crealconstnode.create(lvd*rvd,resultrealdef);
-                starstarn,
-                caretn :
+                starstarn:
                   begin
                     if lvd<0 then
                      begin

compiler/node.pas

@@ -97,7 +97,6 @@ interface
           onn,              {For an on statement in exception code}
           isn,              {Represents the is operator}
           asn,              {Represents the as typecast}
-          caretn,           {Represents the ^ operator}
           starstarn,        {Represents the ** operator exponentiation }
           arrayconstructorn, {Construction node for [...] parsing}
           arrayconstructorrangen, {Range element to allow sets in array construction tree}
@@ -179,7 +178,6 @@ interface
           'onn',
           'isn',
           'asn',
-          'caretn',
           'starstarn',
           'arrayconstructn',
           'arrayconstructrangen',

compiler/pass_2.pas

@@ -122,7 +122,6 @@ implementation
              'on',    {onn}
              'is',    {isn}
              'as',    {asn}
-             'error-caret',       {caretn}
              'add-starstar',  {starstarn}
              'arrayconstruc', {arrayconstructn}
              'noth-arrcnstr',     {arrayconstructrangen}

compiler/pexpr.pas

@@ -2803,8 +2803,6 @@ implementation
                  p1:=caddnode.create(xorn,p1,p2);
                _ASSIGNMENT :
                  p1:=cassignmentnode.create(p1,p2);
-               _CARET :
-                 p1:=caddnode.create(caretn,p1,p2);
                _UNEQUAL :
                  p1:=caddnode.create(unequaln,p1,p2);
              end;

compiler/ppu.pas

@@ -43,7 +43,7 @@ type
 {$endif Test_Double_checksum}
 
 const
-  CurrentPPUVersion=77;
+  CurrentPPUVersion=78;
 
 { buffer sizes }
   maxentrysize = 1024;

compiler/psystem.pas

@@ -467,7 +467,6 @@ implementation
         nodeclass[onn]:=connode;
         nodeclass[isn]:=cisnode;
         nodeclass[asn]:=casnode;
-        nodeclass[caretn]:=caddnode;
         nodeclass[starstarn]:=caddnode;
         nodeclass[arrayconstructorn]:=carrayconstructornode;
         nodeclass[arrayconstructorrangen]:=carrayconstructorrangenode;