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

named sections for intf wrappers

Browse Source
This commit is contained in:
peter 2005-03-28 13:10:22 +00:00
parent 1ecd3e0db3
commit 12283206d1
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncgutil.pas
View File

@ -2381,6 +2381,7 @@ implementation
_class.implementedinterfaces.interfaces(i).objname^+'_$_'+
tostr(j)+'_$_'+_class.implementedinterfaces.implprocs(i,j).mangledname);
{ create wrapper code }
new_section(list,sec_code,lower(tmps),0);
cg.g_intf_wrapper(list,_class.implementedinterfaces.implprocs(i,j),tmps,_class.implementedinterfaces.ioffsets(i));
end;
end;
@ -2392,7 +2393,6 @@ implementation
var
def : tstoreddef;
begin
new_section(list,sec_code,'',0);
def:=tstoreddef(st.defindex.first);
while assigned(def) do
begin
@ -2405,7 +2405,10 @@ implementation
end.
{
$Log$
Revision 1.265 2005-03-25 21:55:43 jonas
Revision 1.266 2005-03-28 13:10:22 peter
named sections for intf wrappers
Revision 1.265 2005/03/25 21:55:43 jonas
* removed some unused variables
Revision 1.264 2005/03/09 22:37:24 peter