anchor.diff:      FOuterUsesBoundaries: TFileBoundary;
       FInnerUsesBoundaries: TFileBoundary;
   
  +    function GetHasOuterUses: Boolean;
  +    function GetHasInnerUses: Boolean;
  +
       function ReadLoopUntilSemiColon(const sIn: ansistring; iStart: integer; var sOut: string): boolean;
   
       procedure ParseUsesList( const lstIn: TStrings; const lstOut: TStrings; bIsDkp: boolean = False );
  
positive.code:       read FOuterUsesBoundaries;
      property InnerUsesBoundaries: TFileBoundary
        read FInnerUsesBoundaries;
  
      constructor Create;
      destructor Destroy; override;
  
negative.code:   end;
  end;
  
  function TUnitParser.GetHasOuterUses: Boolean;
  begin
    Result := FOuterUsesBoundaries.Start <> FOuterUsesBoundaries.Stop;
  end;
  
  function TUnitParser.GetHasInnerUses: Boolean;
  begin
    Result := FInnerUsesBoundaries.Start <> FInnerUsesBoundaries.Stop
  end;
  
  //----------
  
  
  