* ThreadProc needs stdcall or cdecl calling conventions usually

git-svn-id: trunk@1651 -

rtl/inc/threadh.inc

@@ -26,7 +26,7 @@ const
 type
   PEventState = pointer;
   PRTLEvent   = pointer;   // Windows=thandle, other=pointer to record.
-  TThreadFunc = function(parameter : pointer) : ptrint;
+  TThreadFunc = function(parameter : pointer) : ptrint; stdcall;
   trtlmethod  = procedure of object;
 
   // Function prototypes for TThreadManager Record.

rtl/netware/tthread.inc

@@ -126,7 +126,7 @@ end;
 
 
 { TThread }
-function ThreadProc(args:pointer): Integer;
+function ThreadProc(args:pointer): Integer; cdecl;
 var
   FreeThread: Boolean;
   Thread : TThread absolute args;

rtl/win32/tthread.inc

@@ -97,7 +97,7 @@ end;
 
 { TThread }
 
-function ThreadProc(ThreadObjPtr: Pointer): Integer;
+function ThreadProc(ThreadObjPtr: Pointer): Integer; stdcall;
 var
   FreeThread: Boolean;
   Thread: TThread absolute ThreadObjPtr;

rtl/wince/tthread.inc

@@ -97,7 +97,7 @@ end;
 
 { TThread }
 
-function ThreadProc(ThreadObjPtr: Pointer): Integer;
+function ThreadProc(ThreadObjPtr: Pointer): Integer; stdcall;
 var
   FreeThread: Boolean;
   Thread: TThread absolute ThreadObjPtr;