Index: rtl/inc/threadh.inc
===================================================================
--- rtl/inc/threadh.inc	(revision 1652)
+++ rtl/inc/threadh.inc	(working copy)
@@ -14,6 +14,12 @@
 
  **********************************************************************}
 
+{$ifndef win32}
+  {$define cc = //}
+{$else}
+  {$define cc = stdcall;}
+{$endif}
+
 const
 {$ifdef mswindows}
   { on windows, use stack size of starting process }
@@ -26,7 +32,7 @@
 type
   PEventState = pointer;
   PRTLEvent   = pointer;   // Windows=thandle, other=pointer to record.
-  TThreadFunc = function(parameter : pointer) : ptrint; stdcall;
+  TThreadFunc = function(parameter : pointer) : ptrint; {$cc}
   trtlmethod  = procedure of object;
 
   // Function prototypes for TThreadManager Record.
