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