anchor.diff:               OnePassNFACharClassActions:=DestCharClassAction;
                DestCharClassAction^.Next:=Node^.CharClassAction;
                Node^.CharClassAction:=DestCharClassAction;
  -             DestCharClassAction^.CharClass:=CharClass;
  +             DestCharClassAction^.CharClass:=CharClasses[NewCharClass(CharClass)];
                DestCharClassAction^.Condition:=NewAction;
               end;
              end;
  
positive.code:             DestCharClassAction:=nil;
              CharClassAction:=Node^.CharClassAction;
              while assigned(CharClassAction) do begin
               if (CharClassAction.CharClass*CharClass)<>[] then begin
                DestCharClassAction:=CharClassAction;
                break;
               end;
  
negative.code: 
       PFLREOnePassNFAStateCharClassAction=^TFLREOnePassNFAStateCharClassAction;
       TFLREOnePassNFAStateCharClassAction=record // 32-bit: 16 bytes, 64-bit: 32 bytes
        AllNext:PFLREOnePassNFAStateCharClassAction;
        Next:PFLREOnePassNFAStateCharClassAction;
        CharClass:PFLRECharClass;
        Condition:longword;
       end;
  
  