[fpc-devel] win32 patch for threads

[Florian Klaempfl]

Ales Katona wrote:

> This patch fixes a bug in win32 threads. Warning: created in win32 :)
> (no idea about lineendings)

Aplied, also for wince and netware.

> 
> Ales
> 
> 
> ------------------------------------------------------------------------
> 
> Index: rtl/win32/tthread.inc
> ===================================================================
> --- rtl/win32/tthread.inc	(revision 1647)
> +++ rtl/win32/tthread.inc	(working copy)
> @@ -97,7 +97,7 @@
>  
>  { TThread }
>  
> -function ThreadProc(ThreadObjPtr: Pointer): Integer;
> +function ThreadProc(ThreadObjPtr: Pointer): Integer; stdcall;
>  var
>    FreeThread: Boolean;
>    Thread: TThread absolute ThreadObjPtr;
> Index: rtl/inc/threadh.inc
> ===================================================================
> --- rtl/inc/threadh.inc	(revision 1647)
> +++ rtl/inc/threadh.inc	(working copy)
> @@ -26,7 +26,7 @@
>  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.
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> fpc-devel maillist  -  fpc-devel at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-devel