anchor.diff:  implementation
   
   uses
  -  StrUtils;
  +  StrUtils
  +  {$ifdef USESTRINGCACHE}, SimpleParser.StringCache{$endif};
   
   type
     TmwPasLexExpressionEvaluation = (leeNone, leeAnd, leeOr);
  
positive.code: 
  function TmwBasePasLex.GetToken: string;
  begin
    SetString(Result, (FBuffer.Buf + FTokenPos), GetTokenLen);
  end;
  
  function TmwBasePasLex.GetTokenLen: Integer;
  
negative.code: 
    New(FBuffer);
    FillChar(FBuffer^, SizeOf(TBufferRec), 0);
  
    {$ifdef USESTRINGCACHE}
      TStringCache.Instance.IncRef;
    {$endif}
  end;
  
  destructor TmwBasePasLex.Destroy;
  begin
    {$ifdef USESTRINGCACHE}
      TStringCache.Instance.DecRef;
    {$endif}
  
    if not FBuffer.SharedBuffer then
      FreeMem(FBuffer.Buf);
  
  