This patch fixes a bug in win32 threads. Warning: created in win32 :)
(no idea about lineendings)
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@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
