paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 18:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new bug

Browse Source
This commit is contained in:
peter 2004-03-03 16:51:01 +00:00
parent 85f1c027f5
commit df88641d09
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
tests/webtbs/tw2794.pp Normal file
View File

@ -0,0 +1,28 @@
{ Source provided for Free Pascal Bug Report 2794 }
{ Submitted by "Johannes Berg" on 2003-11-17 }
{ e-mail: bugs@johannes.sipsolutions.de }
program test;
{$THREADING ON}
{$MODE OBJFPC}
uses
CThreads,Classes;
type
TMyThread = class(TThread)
procedure Execute;
end;
threadvar
x: ansistring;
procedure TMyThread.Execute;
begin
x := 'asdf';
x := x + x;
writeln(x);
end;
begin
TMyThread.Create(false).Free;
end.