mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
44682f9f4d
the funcretnode field keeps a reference to this temp even after we
assign it to the call-by-reference return parameter if it is deleted
by changing it into a normal temp (after which it will be freed when
the result of the call node is used), because in that case getcopy
for the callnode must copy this reference after copying the
tempdeletenode in order to reset tempinfo^.hookoncopy (mantis #29891)
git-svn-id: trunk@33569 -
27 lines
356 B
ObjectPascal
27 lines
356 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tinterr;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
type
|
|
TALVector3f = array[0..2] of Single;
|
|
|
|
function alGetSource3f: TALVector3f;
|
|
begin
|
|
|
|
end;
|
|
|
|
function VectorToNiceStr(const v: array of Single): string;
|
|
begin
|
|
|
|
end;
|
|
|
|
function SampleSourceState:string;
|
|
begin
|
|
result := 'POSITION : '+ VectorToNiceStr(alGetSource3f) + LineEnding;
|
|
end;
|
|
|
|
begin
|
|
end.
|