paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 13:39:26 +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 } { Submitted by "Johannes Berg" on 2003-11-17 }
{ e-mail: bugs@johannes.sipsolutions.de } { e-mail: bugs@johannes.sipsolutions.de }
program test; program test;
{$THREADING ON} {$ifdef fpc}
{$MODE OBJFPC} {$THREADING ON}
{$MODE OBJFPC}
{$endif}
uses uses
CThreads,Classes; {$ifdef fpc}CThreads,{$endif}
Classes;
type type
TMyThread = class(TThread) TMyThread = class(TThread)
procedure Execute; procedure Execute;override;
end; end;
threadvar threadvar