Преглед на файлове

* fix for SysThreadSetPriority

git-svn-id: trunk@19783 -
Tomas Hajny преди 13 години
родител
ревизия
f56cd3d6d9
променени са 1 файла, в които са добавени 4 реда и са изтрити 4 реда
  1. 4 4
      rtl/os2/systhrd.inc

+ 4 - 4
rtl/os2/systhrd.inc

@@ -487,10 +487,10 @@ begin
   else
    begin
     Delta := Prio * 2;
-    if Delta + TPrio (PrioLevel) < 0 then
-     Delta := - TPrio (PrioLevel)
-    else if Delta + TPrio (PrioLevel) > 31 then
-     Delta := 31 - TPrio (PrioLevel);
+    if Delta + TPrio (Priority).PrioLevel < 0 then
+     Delta := - TPrio (Priority).PrioLevel
+    else if Delta + TPrio (Priority).PrioLevel > 31 then
+     Delta := 31 - TPrio (Priority).PrioLevel;
     SysThreadSetPriority :=
                DosSetPriority (dpThread, dpSameClass, Delta, ThreadHandle) = 0;
    end;