|
@@ -132,9 +132,10 @@ end;
|
|
|
|
|
|
|
|
|
|
|
|
|
{ TThread }
|
|
{ TThread }
|
|
|
-function ThreadProc(Thread: TThread): Integer;cdecl;
|
|
|
|
|
|
|
+function ThreadProc(args:pointer): Integer;cdecl;
|
|
|
var
|
|
var
|
|
|
FreeThread: Boolean;
|
|
FreeThread: Boolean;
|
|
|
|
|
+ Thread : TThread absolute args;
|
|
|
begin
|
|
begin
|
|
|
Thread.Execute;
|
|
Thread.Execute;
|
|
|
FreeThread := Thread.FFreeOnTerminate;
|
|
FreeThread := Thread.FFreeOnTerminate;
|
|
@@ -272,7 +273,10 @@ end;
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.4 1999-08-28 09:32:26 peter
|
|
|
|
|
|
|
+ Revision 1.5 1999-10-27 10:40:30 peter
|
|
|
|
|
+ * fixed threadproc decl
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.4 1999/08/28 09:32:26 peter
|
|
|
* readded header/log
|
|
* readded header/log
|
|
|
|
|
|
|
|
Revision 1.2 1999/05/31 12:47:59 peter
|
|
Revision 1.2 1999/05/31 12:47:59 peter
|
peter