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

* interface wrapper name mangling improved

Browse Source
This commit is contained in:
florian 2002-10-06 16:40:25 +00:00
parent 6d1506a7c6
commit eded0301b4
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/nobj.pas
View File

@ -812,7 +812,9 @@ implementation
proccount:=implintf.implproccount(intfindex); proccount:=implintf.implproccount(intfindex);
for i:=1 to proccount do for i:=1 to proccount do
begin begin
tmps:=mangledname_prefix('WRPR',_class.owner)+_class.objname^+'_$_'+curintf.objname^+'_$_'+implintf.implprocs(intfindex,i).mangledname; tmps:=mangledname_prefix('WRPR',_class.owner)+_class.objname^+'_$_'+curintf.objname^+'_$_'+
tostr(i)+'_$_'+
implintf.implprocs(intfindex,i).mangledname;
{ create wrapper code } { create wrapper code }
cgintfwrapper(rawcode,implintf.implprocs(intfindex,i),tmps,implintf.ioffsets(intfindex)^); cgintfwrapper(rawcode,implintf.implprocs(intfindex,i),tmps,implintf.ioffsets(intfindex)^);
{ create reference } { create reference }
@ -1305,7 +1307,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.29 2002-10-05 12:43:25 carl Revision 1.30 2002-10-06 16:40:25 florian
* interface wrapper name mangling improved
Revision 1.29 2002/10/05 12:43:25 carl
* fixes for Delphi 6 compilation * fixes for Delphi 6 compilation
(warning : Some features do not work under Delphi) (warning : Some features do not work under Delphi)