paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 16:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* another longint2cardinal fix

Browse Source
This commit is contained in:
Tomas Hajny 2003-10-14 21:19:12 +00:00
parent a183b11a5f
commit a808ff5415
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/os2/tthread.inc
View File

@ -60,7 +60,7 @@ const
procedure DosGetInfoBlocks (PATIB: PPThreadInfoBlock;
PAPIB: PPProcessInfoBlock); cdecl; external 'DOSCALLS' index 312;
function DosSetPriority (Scope, TrClass: cardinal; Delta: longing;
function DosSetPriority (Scope, TrClass: cardinal; Delta: longint;
PortID: cardinal): longint; cdecl; external 'DOSCALLS' index 236;
procedure DosExit (Action, Result: longint); cdecl;
@ -188,8 +188,8 @@ begin
FSuspended := CreateSuspended;
Flags := dtStack_Commited;
if FSuspended then Flags := Flags or dtSuspended;
if DosCreateThread (FThreadID, @ThreadProc, pointer (Self), Flags, 16384)
<> 0 then
if DosCreateThread (cardinal (FThreadID), @ThreadProc, pointer (Self),
Flags, 16384) <> 0 then
begin
FFinished := true;
Destroy;
@ -206,7 +206,7 @@ begin
Terminate;
WaitFor;
end;
if FHandle <> -1 then DosKillThread (FHandle);
if FHandle <> -1 then DosKillThread (cardinal (FHandle));
FFatalException.Free;
FFatalException := nil;
inherited Destroy;
@ -215,13 +215,13 @@ end;
procedure TThread.Resume;
begin
FSuspended := not (DosResumeThread (FHandle) = 0);
FSuspended := not (DosResumeThread (cardinal (FHandle)) = 0);
end;
procedure TThread.Suspend;
begin
FSuspended := DosSuspendThread (FHandle) = 0;
FSuspended := DosSuspendThread (cardinal (FHandle)) = 0;
end;
@ -234,13 +234,16 @@ end;
function TThread.WaitFor: Integer;
begin
WaitFor := DosWaitThread (FHandle, dtWait);
WaitFor := DosWaitThread (cardinal (FHandle), dtWait);
end;
{
$Log$
Revision 1.2 2003-10-13 21:17:31 hajny
Revision 1.3 2003-10-14 21:19:12 hajny
* another longint2cardinal fix
Revision 1.2 2003/10/13 21:17:31 hajny
* longint to cardinal corrections
Revision 1.1 2003/10/06 21:01:07 peter