anchor.diff:        if Assigned(typedescr) then begin
           typedescr.DeclLine:=LineNum;
           typedescr.Name:=name;
  -        if typedescr.Name<>'' then
  +        if (typedescr.Name<>'') and ((not OnlySourceDeclTypes) or (LineNum>0)) then
             fCallback.DeclareType(typedescr);
         end;
       end;
  
positive.code:     fLastType       : Byte;
  
      fTypes          : TFPList;
      
      function CurrentProcName: AnsiString;
      function CurrentProcAddr: PtrInt;
  
negative.code: begin
    fProcStack:=TFPList.Create;
    fTypes:=TFPList.Create;
    OnlySourceDeclTypes:=True;
  end;
  
  destructor TStabsReader.Destroy;
  