Martin Schreiber het geskryf:
>
> Maybe
> http://bugs.freepascal.org/view.php?id=16365
> must be fixed too until you can use interface delegation to a class?
That seems to be a bug only in COM interfaces. I want to use Corba
interfaces which do not AV.
The same example as the one in the bug report, but with Corba interfaces
enabled. No AV with current 2.5.1
-----------[ delegation.pas ]---------------------
program delegation;
{$ifdef FPC}
{$mode objfpc}{$h+}
{$interfaces corba}
{$endif}
uses
sysutils;
type
itest = interface
procedure test;
end;
timpclass = class(tobject,itest)
private
procedure test;
end;
ttestclass = class(tobject,itest)
private
fimp: timpclass;
property imp: timpclass read fimp implements itest;
public
constructor create;
destructor destroy; override;
end;
{ timpclass }
procedure timpclass.test;
begin
writeln('test');
end;
{ ttestclass }
constructor ttestclass.create;
begin
fimp:= timpclass.create;
end;
destructor ttestclass.destroy;
begin
inherited;
fimp.free;
end;
var
testclass: ttestclass;
begin
testclass:= ttestclass.create;
itest(testclass).test; //<<<<---- No more AV!
testclass.free;
end.
--------------------------------
Here is the output I get under Ubuntu 8.04.3 (64-bit).
$ /opt/fpc_2.5.1/x86_64-linux/bin/ppcx64 delegation.pas
Free Pascal Compiler version 2.5.1 [2010/05/14] for x86_64
Copyright (c) 1993-2009 by Florian Klaempfl
tmp $ ./delegation
test
tmp $
Regards,
- Graeme -
--
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
