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