paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 12:05:57 +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 type
PEventState = pointer; PEventState = pointer;
PRTLEvent = pointer; // Windows=thandle, other=pointer to record. PRTLEvent = pointer; // Windows=thandle, other=pointer to record.
TThreadFunc = function(parameter : pointer) : ptrint; stdcall; TThreadFunc = function(parameter : pointer) : ptrint;
trtlmethod = procedure of object; trtlmethod = procedure of object;
// Function prototypes for TThreadManager Record. // Function prototypes for TThreadManager Record.

2
rtl/netware/tthread.inc
View File

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

2
rtl/win32/tthread.inc
View File

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

2
rtl/wince/tthread.inc
View File

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