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

* start new objectfile for interface wrappers

Browse Source 
git-svn-id: trunk@9868 -
This commit is contained in:
peter 2008-01-22 18:49:29 +00:00
parent 9334776990
commit 266622deef
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/ncgutil.pas
View File

@ -2629,6 +2629,7 @@ implementation
if (ImplIntf=ImplIntf.VtblImplIntf) and if (ImplIntf=ImplIntf.VtblImplIntf) and
assigned(ImplIntf.ProcDefs) then assigned(ImplIntf.ProcDefs) then
begin begin
maybe_new_object_file(list);
for j:=0 to ImplIntf.ProcDefs.Count-1 do for j:=0 to ImplIntf.ProcDefs.Count-1 do
begin begin
pd:=TProcdef(ImplIntf.ProcDefs[j]); pd:=TProcdef(ImplIntf.ProcDefs[j]);