mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 13:29:27 +02:00
37 lines
489 B
ObjectPascal
37 lines
489 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 3004 }
|
|
{ Submitted by "Michalis Kamburelis" on 2004-03-04 }
|
|
{ e-mail: michalis@camelot.homedns.org }
|
|
{$mode OBJFPC}
|
|
{$H+}
|
|
{ $mode DELPHI}
|
|
|
|
uses erroru,SysUtils;
|
|
|
|
procedure P;
|
|
var s:string;
|
|
begin
|
|
s:='blah';
|
|
raise Exception.Create('foo ' +s);
|
|
end;
|
|
|
|
procedure p1;
|
|
var
|
|
i : sizeuint;
|
|
begin
|
|
i:=0;
|
|
domem(i);
|
|
try
|
|
P;
|
|
except
|
|
end;
|
|
if domem(i)<>0 then
|
|
begin
|
|
writeln('Memleak');
|
|
halt(1);
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
p1;
|
|
end.
|