anchor.diff:  
          function Concat(NodeLeft,NodeRight:PFLRENode):PFLRENode;
   
  +       function NewNOP:PFLRENode;
  +       
          function NewAlt(NodeLeft,NodeRight:PFLRENode):PFLRENode;
          function NewPlus(Node:PFLRENode;Kind:longint):PFLRENode;
          function NewStar(Node:PFLRENode;Kind:longint):PFLRENode;
  
positive.code:         inc(Count);
         end;
        end;
       end;
      end;
      SetLength(SplittedStrings,Count);
     finally
      ReleaseThreadLocalStorageInstance(ThreadLocalStorageInstance);
     end;
    end;
   finally
    SetLength(Captures,0);
   end;
  end;
  
  function TFLRE.PtrTest(const Input:pointer;const InputLength:longint;const StartPosition:longint=0):boolean;
  
negative.code:   BeginningWildcardLoop:=BeginningJump and BeginningSplit and BeginningWildcard;
  
    HaveUnanchoredStart:=not BeginningAnchor;
  
    begin
     CanMatchEmptyStrings:=true;
     ThreadLocalStorageInstance:=AcquireThreadLocalStorageInstance;
     try
      ThreadLocalStorageInstance.Input:=EmptyString;
      ThreadLocalStorageInstance.InputLength:=0;
      Captures:=nil;
      try
       SetLength(Captures,CountCaptures);
       if not ThreadLocalStorageInstance.ParallelNFA.SearchMatch(Captures,0,1,false) then begin
        CanMatchEmptyStrings:=false;
       end;
      finally
       SetLength(Captures,0);
      end;
     finally
      ReleaseThreadLocalStorageInstance(ThreadLocalStorageInstance);
     end;
    end;
  
   finally
   end;
  