mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:48:08 +02:00
ad054831bb
to/from ppu, because it can be required while resolving type casts
(mantis #22741)
git-svn-id: trunk@22266 -
30 lines
613 B
ObjectPascal
30 lines
613 B
ObjectPascal
{ %recompile }
|
||
{ %opt=-gh }
|
||
|
||
program tw22741;
|
||
{$mode objfpc}
|
||
uses uw22741a;
|
||
type
|
||
te= class(td)
|
||
procedure address(d: td); virtual;
|
||
end;
|
||
procedure te.address(d: td);
|
||
var anIo: iIO;
|
||
begin
|
||
writeln(d.className);
|
||
writeln(nativeuint(iIO(d)));
|
||
writeln(nativeuint(iIO(d.fiio)));
|
||
anIo:= d;
|
||
writeln(nativeuint(anIo));
|
||
end;
|
||
var
|
||
e1, e2: te;
|
||
begin
|
||
e1:= te.create;
|
||
e2:= te.create;
|
||
e1.address(e2);
|
||
e1.destroy;
|
||
e2.destroy;
|
||
end.
|
||
|