paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* reverted r1651

Browse Source 
git-svn-id: trunk@1653 -
This commit is contained in:
florian 2005-11-05 09:54:44 +00:00
parent a884848684
commit 370a66a452
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/threadh.inc
View File

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

2
rtl/netware/tthread.inc
View File

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

2
rtl/win32/tthread.inc
View File

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

2
rtl/wince/tthread.inc
View File

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