blob: 1f2e7ace944c27d814195c2f2c9262100d58736f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{ %OPT=-gh }
program project1;
{$mode objfpc}{$H+}
procedure TLResourceListAdd(Values: array of string);
begin
end;
begin
HaltOnNotReleased := true;
TLResourceListAdd(['Value1']);
end.
|