Merged revisions 1651 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
r1651 | florian | 2005-11-05 01:05:07 +0100 (Sa, 05 Nov 2005) | 2 lines

* ThreadProc needs stdcall or cdecl calling conventions usually

........

git-svn-id: branches/fixes_2_0@1652 -

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;