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