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