瀏覽代碼

* HandleError instead of RunError

Tomas Hajny 24 年之前
父節點
當前提交
8595db93c1
共有 1 個文件被更改,包括 7 次插入4 次删除
  1. 7 4
      rtl/os2/thread.inc

+ 7 - 4
rtl/os2/thread.inc

@@ -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