paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* override added

Browse Source
This commit is contained in:
peter 2004-03-03 22:01:00 +00:00
parent 5acf1eff47
commit 644f61405a
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/webtbs/tw2794.pp
View File

@ -2,15 +2,18 @@
{ Submitted by "Johannes Berg" on 2003-11-17 }
{ e-mail: bugs@johannes.sipsolutions.de }
program test;
{$THREADING ON}
{$MODE OBJFPC}
{$ifdef fpc}
{$THREADING ON}
{$MODE OBJFPC}
{$endif}
uses
CThreads,Classes;
{$ifdef fpc}CThreads,{$endif}
Classes;
type
TMyThread = class(TThread)
procedure Execute;
procedure Execute;override;
end;
threadvar