blob: f69fbae1764438f852d5baee2ce335013039de1c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ %OPT=-Sew -vw -Oodfa }
{ %NORUN }
{$mode objfpc}{$H+}
uses
Classes, SysUtils;
function Test(a: integer): integer;
var
HashItem: Pointer;
begin
HashItem:=nil;
while HashItem<>nil do begin
if (HashItem<>nil) then
exit(-1);
HashItem:=HashItem;
end;
Result:=0;
end;
begin
end.
|
