paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 13:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed visibility notes of some overrode methods.

Browse Source 
git-svn-id: trunk@13095 -
This commit is contained in:
yury 2009-05-04 10:24:47 +00:00
parent 2b3a54cec0
commit 99917e034d
2 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/dbgstabs.pas
View File

@ -64,13 +64,6 @@ interface
function sym_var_value(const s:string;arg:pointer):string;
function sym_stabstr_evaluate(sym:tsym;const s:string;const vars:array of string):ansistring;
procedure write_sym_stabstr(list:TAsmList;sym:tsym;const ss:ansistring);
procedure appendsym_staticvar(list:TAsmList;sym:tstaticvarsym);override;
procedure appendsym_paravar(list:TAsmList;sym:tparavarsym);override;
procedure appendsym_localvar(list:TAsmList;sym:tlocalvarsym);override;
procedure appendsym_fieldvar(list:TAsmList;sym:tfieldvarsym);override;
procedure appendsym_const(list:TAsmList;sym:tconstsym);override;
procedure appendsym_type(list:TAsmList;sym:ttypesym);override;
procedure appendsym_label(list:TAsmList;sym:tlabelsym);override;
{ tdef writing }
function def_stab_number(def:tdef):string;
function def_stab_classnumber(def:tobjectdef):string;
@ -80,6 +73,14 @@ interface
procedure field_add_stabstr(p:TObject;arg:pointer);
procedure method_add_stabstr(p:TObject;arg:pointer);
procedure field_write_defs(p:TObject;arg:pointer);
protected
procedure appendsym_staticvar(list:TAsmList;sym:tstaticvarsym);override;
procedure appendsym_paravar(list:TAsmList;sym:tparavarsym);override;
procedure appendsym_localvar(list:TAsmList;sym:tlocalvarsym);override;
procedure appendsym_fieldvar(list:TAsmList;sym:tfieldvarsym);override;
procedure appendsym_const(list:TAsmList;sym:tconstsym);override;
procedure appendsym_type(list:TAsmList;sym:ttypesym);override;
procedure appendsym_label(list:TAsmList;sym:tlabelsym);override;
procedure beforeappenddef(list:TAsmList;def:tdef);override;
procedure appenddef_ord(list:TAsmList;def:torddef);override;
procedure appenddef_float(list:TAsmList;def:tfloatdef);override;

6
compiler/ogcoff.pas
View File

@ -234,13 +234,13 @@ interface
procedure ExeSectionList_write_header(p:TObject;arg:pointer);
procedure ExeSectionList_write_data(p:TObject;arg:pointer);
protected
procedure MemPos_Header;override;
procedure DataPos_Header;override;
procedure DataPos_Symbols;override;
function writedata:boolean;override;
procedure Order_ObjSectionList(ObjSectionList : TFPObjectList);override;
public
constructor createcoff(awin32:boolean);
procedure MemPos_Header;override;
procedure DataPos_Header;override;
procedure DataPos_Symbols;override;
end;
TDJCoffexeoutput = class(TCoffexeoutput)