mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 01:59:28 +02:00
154601b41d
takes the address of its parameters and a dynamic array can
be in a register (e.g. as function result, mantis #10320)
git-svn-id: trunk@9381 -
52 lines
829 B
ObjectPascal
52 lines
829 B
ObjectPascal
program foo;
|
|
|
|
{$mode DELPHI}
|
|
|
|
type
|
|
TRgb = record
|
|
R,G,B : Byte;
|
|
end;
|
|
|
|
TRgbArray = array of TRgb;
|
|
|
|
TSomeClass = class
|
|
a: TRgbArray;
|
|
function GetP(Index : integer) : Pointer;
|
|
constructor create;
|
|
public
|
|
property P[Index: LongInt]: Pointer read GetP;
|
|
end;
|
|
|
|
var a : TRgbArray;
|
|
c : TSomeClass;
|
|
|
|
constructor tsomeclass.create;
|
|
begin
|
|
setlength(a,2);
|
|
a[0].r:=1;
|
|
a[0].g:=2;
|
|
a[0].b:=3;
|
|
a[1].r:=4;
|
|
a[1].g:=5;
|
|
a[1].b:=6;
|
|
end;
|
|
|
|
function TSomeClass.GetP(Index : integer) : Pointer;
|
|
begin
|
|
result := pointer(a);
|
|
end;
|
|
|
|
begin
|
|
c := TSomeClass.Create;
|
|
a := TRgbArray(c.P[1]); // Fatal: Internal error 2006111510
|
|
if (length(a)<>2) or
|
|
(a[0].r<>1) or
|
|
(a[0].g<>2) or
|
|
(a[0].b<>3) or
|
|
(a[1].r<>4) or
|
|
(a[1].g<>5) or
|
|
(a[1].b<>6) then
|
|
halt(1);
|
|
c.free;
|
|
end.
|