* tthread uses systhrds

rtl/win32/systhrds.pp

@@ -169,7 +169,7 @@ CONST
       end;
 
 
-    function ThreadMain(param : pointer) : pointer;cdecl;
+    function ThreadMain(param : pointer) : integer; stdcall;
       var
         ti : tthreadinfo;
       begin
@@ -190,7 +190,7 @@ CONST
 {$ifdef DEBUG_MT}
         writeln('Jumping to thread function');
 {$endif DEBUG_MT}
-        ThreadMain:=pointer(ti.f(ti.p));
+        ThreadMain:=ti.f(ti.p);
       end;
 
 
@@ -371,9 +371,9 @@ Const
         wrError    = 3;
 
 type Tbasiceventstate=record
-			fhandle    : THandle;
-	                flasterror : longint;
-      		       end;
+                        fhandle    : THandle;
+                        flasterror : longint;
+                       end;
      plocaleventrec= ^tbasiceventstate;
 
 function intBasicEventCreate(EventAttributes : Pointer;
@@ -445,7 +445,7 @@ end;
 
 
 Var
-  WinThreadManager : TThreadManager; 
+  WinThreadManager : TThreadManager;
 
 Procedure SetWinThreadManager;
 
@@ -494,9 +494,12 @@ end.
 
 {
   $Log$
-  Revision 1.12  2004-12-22 21:29:24  marco
+  Revision 1.13  2004-12-26 13:46:45  peter
+    * tthread uses systhrds
+
+  Revision 1.12  2004/12/22 21:29:24  marco
    * rtlevent kraam. Checked (compile): Linux, FreeBSD, Darwin, Windows
-  	Check work: ask Neli.
+        Check work: ask Neli.
 
   Revision 1.11  2004/05/23 15:30:13  marco
    * first try

rtl/win32/tthread.inc

@@ -105,9 +105,10 @@ end;
 
 { TThread }
 
-function ThreadProc(Thread: TThread): Integer; Stdcall;
+function ThreadProc(ThreadObjPtr: Pointer): Integer;
 var
   FreeThread: Boolean;
+  Thread: TThread absolute ThreadObjPtr;
 begin
   try
     Thread.Execute;
@@ -119,7 +120,6 @@ begin
   Thread.FFinished := True;
   Thread.DoTerminate;
   if FreeThread then Thread.Free;
-  ExitThread(Result);
 end;
 
 constructor TThread.Create(CreateSuspended: Boolean);
@@ -131,8 +131,7 @@ begin
   FSuspended := CreateSuspended;
   Flags := 0;
   if CreateSuspended then Flags := CREATE_SUSPENDED;
-  IsMultiThread := TRUE;
-  FHandle := CreateThread(nil, 0, @ThreadProc, Pointer(self), Flags, DWord(FThreadID));
+  FHandle := BeginThread(nil, 0, @ThreadProc, pointer(self), Flags, FThreadID);
   FFatalException := nil;
 end;
 
@@ -266,7 +265,10 @@ begin
 end;
 {
   $Log$
-  Revision 1.3  2004-12-23 09:42:42  marco
+  Revision 1.4  2004-12-26 13:46:45  peter
+    * tthread uses systhrds
+
+  Revision 1.3  2004/12/23 09:42:42  marco
    * first tthread.synchronize support (merged neli's patches)
 
   Revision 1.2  2004/01/29 16:58:28  marco