paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 16:50:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* HandleError instead of RunError

Browse Source
This commit is contained in:
Tomas Hajny 2001-02-04 01:53:58 +00:00
parent 577ebe46a5
commit 8595db93c1
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/os2/thread.inc
View File

@ -106,7 +106,7 @@ begin
if os_mode = osOS2 then
begin
if DosAllocMem (DataIndex^, ThreadVarBlockSize, pag_Read or pag_Write
or pag_Commit) <> 0 then RunError (8);
or pag_Commit) <> 0 then HandleError (8);
end else
begin
(* Allocate the DOS memory here. *)
@ -245,7 +245,7 @@ begin
if os_mode = osOS2 then
begin
if DosCreateMutExSem (nil, CS.LockSemaphore2, 0, true) <> 0 then
RunError (8);
HandleError (8);
DosEnterCritSec;
CS.LockCount := 0;
CS.OwningThread := $FFFF;
@ -317,7 +317,7 @@ begin
Dec (LockCount);
DosExitCritSec;
end;
if Err then RunError (5);
if Err then HandleError (5);
end;
end;
@ -325,7 +325,10 @@ end;
{
$Log$
Revision 1.3 2001-02-01 21:30:01 hajny
Revision 1.4 2001-02-04 01:53:58 hajny
* HandleError instead of RunError
Revision 1.3 2001/02/01 21:30:01 hajny
* MT support completion
Revision 1.2 2001/01/27 18:28:52 hajny