tests/webtbf/tw24588.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{ %FAIL }
program tw24588;
{$mode objfpc}
{$asmmode intel}
type
generic TFoo<T>=class
procedure CrashMe(_val: T);
end;

procedure TFoo.CrashMe(_val: T);
begin
asm
mov edi,edi
end;
end;

begin
end.