paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 06:39:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* another longint2cardinal fix

Browse Source
This commit is contained in:
Tomas Hajny 2003-10-16 19:24:24 +00:00
parent d0eac29ab9
commit b4d7de8d1f
1 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/os2/tthread.inc
View File

@ -61,25 +61,25 @@ procedure DosGetInfoBlocks (PATIB: PPThreadInfoBlock;
PAPIB: PPProcessInfoBlock); cdecl; external 'DOSCALLS' index 312;
function DosSetPriority (Scope, TrClass: cardinal; Delta: longint;
PortID: cardinal): longint; cdecl; external 'DOSCALLS' index 236;
PortID: cardinal): cardinal; cdecl; external 'DOSCALLS' index 236;
procedure DosExit (Action, Result: longint); cdecl;
procedure DosExit (Action, Result: cardinal); cdecl;
external 'DOSCALLS' index 233;
function DosCreateThread (var TID: cardinal; Address: TThreadEntry;
aParam: pointer; Flags: cardinal; StackSize: cardinal): longint; cdecl;
aParam: pointer; Flags: cardinal; StackSize: cardinal): cardinal; cdecl;
external 'DOSCALLS' index 311;
function DosKillThread (TID: longint): longint; cdecl;
function DosKillThread (TID: cardinal): cardinal; cdecl;
external 'DOSCALLS' index 111;
function DosResumeThread (TID: longint): longint; cdecl;
function DosResumeThread (TID: cardinal): cardinal; cdecl;
external 'DOSCALLS' index 237;
function DosSuspendThread (TID: longint): longint; cdecl;
function DosSuspendThread (TID: cardinal): cardinal; cdecl;
external 'DOSCALLS' index 238;
function DosWaitThread (var TID: longint; Option: longint): longint; cdecl;
function DosWaitThread (var TID: cardinal; Option: cardinal): cardinal; cdecl;
external 'DOSCALLS' index 349;
@ -232,15 +232,19 @@ end;
function TThread.WaitFor: Integer;
var
FH: cardinal;
begin
WaitFor := DosWaitThread (cardinal (FHandle), dtWait);
WaitFor := DosWaitThread (FH, dtWait);
end;
{
$Log$
Revision 1.3 2003-10-14 21:19:12 hajny
Revision 1.4 2003-10-16 19:24:24 hajny
* another longint2cardinal fix
Revision 1.3 2003/10/14 21:19:12 hajny
* another longint2cardinal fix
Revision 1.2 2003/10/13 21:17:31 hajny