paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-30 04:31:33 +01: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 if os_mode = osOS2 then
begin begin
if DosAllocMem (DataIndex^, ThreadVarBlockSize, pag_Read or pag_Write 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 end else
begin begin
(* Allocate the DOS memory here. *) (* Allocate the DOS memory here. *)
@ -245,7 +245,7 @@ begin
if os_mode = osOS2 then if os_mode = osOS2 then
begin begin
if DosCreateMutExSem (nil, CS.LockSemaphore2, 0, true) <> 0 then if DosCreateMutExSem (nil, CS.LockSemaphore2, 0, true) <> 0 then
RunError (8); HandleError (8);
DosEnterCritSec; DosEnterCritSec;
CS.LockCount := 0; CS.LockCount := 0;
CS.OwningThread := $FFFF; CS.OwningThread := $FFFF;
@ -317,7 +317,7 @@ begin
Dec (LockCount); Dec (LockCount);
DosExitCritSec; DosExitCritSec;
end; end;
if Err then RunError (5); if Err then HandleError (5);
end; end;
end; end;
@ -325,7 +325,10 @@ end;
{ {
$Log$ $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 * MT support completion
Revision 1.2 2001/01/27 18:28:52 hajny Revision 1.2 2001/01/27 18:28:52 hajny