paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +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; procedure DosGetInfoBlocks (PATIB: PPThreadInfoBlock;
PAPIB: PPProcessInfoBlock); cdecl; external 'DOSCALLS' index 312; 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; PortID: cardinal): longint; cdecl; external 'DOSCALLS' index 236;
procedure DosExit (Action, Result: longint); cdecl; procedure DosExit (Action, Result: longint); cdecl;
@ -188,8 +188,8 @@ begin
FSuspended := CreateSuspended; FSuspended := CreateSuspended;
Flags := dtStack_Commited; Flags := dtStack_Commited;
if FSuspended then Flags := Flags or dtSuspended; if FSuspended then Flags := Flags or dtSuspended;
if DosCreateThread (FThreadID, @ThreadProc, pointer (Self), Flags, 16384) if DosCreateThread (cardinal (FThreadID), @ThreadProc, pointer (Self),
<> 0 then Flags, 16384) <> 0 then
begin begin
FFinished := true; FFinished := true;
Destroy; Destroy;
@ -206,7 +206,7 @@ begin
Terminate; Terminate;
WaitFor; WaitFor;
end; end;
if FHandle <> -1 then DosKillThread (FHandle); if FHandle <> -1 then DosKillThread (cardinal (FHandle));
FFatalException.Free; FFatalException.Free;
FFatalException := nil; FFatalException := nil;
inherited Destroy; inherited Destroy;
@ -215,13 +215,13 @@ end;
procedure TThread.Resume; procedure TThread.Resume;
begin begin
FSuspended := not (DosResumeThread (FHandle) = 0); FSuspended := not (DosResumeThread (cardinal (FHandle)) = 0);
end; end;
procedure TThread.Suspend; procedure TThread.Suspend;
begin begin
FSuspended := DosSuspendThread (FHandle) = 0; FSuspended := DosSuspendThread (cardinal (FHandle)) = 0;
end; end;
@ -234,13 +234,16 @@ end;
function TThread.WaitFor: Integer; function TThread.WaitFor: Integer;
begin begin
WaitFor := DosWaitThread (FHandle, dtWait); WaitFor := DosWaitThread (cardinal (FHandle), dtWait);
end; end;
{ {
$Log$ $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 * longint to cardinal corrections
Revision 1.1 2003/10/06 21:01:07 peter Revision 1.1 2003/10/06 21:01:07 peter