mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:47:56 +02:00
12575526da
result is refcounted, since it may need to be finalized in case of
an exception (mantis #9385)
git-svn-id: trunk@8347 -
29 lines
466 B
ObjectPascal
29 lines
466 B
ObjectPascal
{ %opt=-gh }
|
|
|
|
program resultmemleak;
|
|
|
|
{$ifdef FPC}{$mode objfpc}{$h+}{$INTERFACES CORBA}{$endif}
|
|
{$ifdef mswindows}{$apptype console}{$endif}
|
|
//compile with -gh
|
|
uses
|
|
{$ifdef FPC}{$ifdef linux}cthreads,{$endif}{$endif}
|
|
sysutils;
|
|
type
|
|
integerarty = array of integer;
|
|
|
|
function testproc: integerarty;
|
|
begin
|
|
setlength(result,100);
|
|
raise exception.create('');
|
|
end;
|
|
|
|
var
|
|
ar1: integerarty;
|
|
begin
|
|
HaltOnNotReleased := true;
|
|
try
|
|
ar1:= testproc;
|
|
except
|
|
end;
|
|
end.
|