Hans-Peter Diettrich schrieb:
Florian Klaempfl schrieb:
I also found an simple workaround for the TImplementedInterfaces
problems (getcopy), that can be moved into the trunk immediately.
Which commit is it?
It's the only change in symdef.pas, so far.
DoDi
--- C:/Users/dodi/AppData/Local/Temp/symdef.pa-rev15772.svn001.tmp.pas Do Aug
12 07:21:17 2010
+++ D:/repos/fpc-2.5/compiler/symdef.pas Mi Aug 11 10:17:51 2010
@@ -208,6 +208,9 @@
NameMappings : TFPHashList;
ProcDefs : TFPObjectList;
ImplementsGetter : tsym;
+ private
+ isClone: boolean;
+ public
constructor create(aintf: tobjectdef);
constructor create_deref(d:tderef);
destructor destroy; override;
@@ -5051,6 +5054,9 @@
i : longint;
mappedname : pshortstring;
begin
+ if isClone then
+ exit; //nothing owned - nothing todo
+
if assigned(NameMappings) then
begin
for i:=0 to NameMappings.Count-1 do
@@ -5152,6 +5158,7 @@
3) idem for the name mappings
}
Move(pointer(self)^,pointer(result)^,InstanceSize);
+ Result.isClone := True;
end;
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
