* don't allow initialzed threadvars

This commit is contained in:
peter 2002-10-14 07:01:14 +00:00
parent 3a3b8a3dc4
commit 36febe5d48

11
tests/tbf/tb0128.pp Normal file
View File

@ -0,0 +1,11 @@
{ %version=1.1 }
{ %fail }
{$mode delphi}
{$threading on}
threadvar
{ Initializing threadvars is not allowed }
p : longint = 1;
begin
end.