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

* more fixes for 11062

Browse Source 
git-svn-id: trunk@11493 -
This commit is contained in:
florian 2008-07-31 08:16:52 +00:00
parent e8fcc2b82e
commit f0dcb10509
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/symdef.pas
View File

@ -3832,7 +3832,7 @@ implementation
ppufile.putstring(iidstr^); ppufile.putstring(iidstr^);
end; end;
if objecttype in [odt_class,odt_interfacecorba] then if assigned(ImplementedInterfaces) then
begin begin
ppufile.putlongint(ImplementedInterfaces.Count); ppufile.putlongint(ImplementedInterfaces.Count);
for i:=0 to ImplementedInterfaces.Count-1 do for i:=0 to ImplementedInterfaces.Count-1 do
@ -3898,7 +3898,7 @@ implementation
end end
else else
tstoredsymtable(symtable).deref; tstoredsymtable(symtable).deref;
if objecttype in [odt_class,odt_interfacecorba] then if assigned(ImplementedInterfaces) then
begin begin
for i:=0 to ImplementedInterfaces.count-1 do for i:=0 to ImplementedInterfaces.count-1 do
TImplementedInterface(ImplementedInterfaces[i]).deref; TImplementedInterface(ImplementedInterfaces[i]).deref;