|
@@ -2,15 +2,18 @@
|
|
|
{ Submitted by "Johannes Berg" on 2003-11-17 }
|
|
{ Submitted by "Johannes Berg" on 2003-11-17 }
|
|
|
{ e-mail: [email protected] }
|
|
{ e-mail: [email protected] }
|
|
|
program test;
|
|
program test;
|
|
|
-{$THREADING ON}
|
|
|
|
|
-{$MODE OBJFPC}
|
|
|
|
|
|
|
+{$ifdef fpc}
|
|
|
|
|
+ {$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
|
peter