paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 08:29:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* write realname for published methods

Browse Source
This commit is contained in:
peter 2005-01-10 20:41:55 +00:00
parent 1a27b6bf90
commit 5c98e04106
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/nobj.pas
View File

@ -495,8 +495,8 @@ implementation
consts.concat(tai_align.create(const_align(sizeof(aint))));
Consts.concat(Tai_label.Create(l));
Consts.concat(Tai_const.Create_8bit(length(p.name)));
Consts.concat(Tai_string.Create(p.name));
Consts.concat(Tai_const.Create_8bit(length(tsym(p).realname)));
Consts.concat(Tai_string.Create(tsym(p).realname));
dataSegment.concat(Tai_const.Create_sym(l));
dataSegment.concat(Tai_const.Createname(pd.mangledname,AT_FUNCTION,0));
@ -1414,7 +1414,10 @@ initialization
end.
{
$Log$
Revision 1.85 2005-01-09 15:05:29 peter
Revision 1.86 2005-01-10 20:41:55 peter
* write realname for published methods
Revision 1.85 2005/01/09 15:05:29 peter
* fix interface vtbl optimization
* replace ugly pointer construct of ioffset()