--- Merging r19783 into '.':

U    rtl/os2/systhrd.inc

# revisions: 19783
------------------------------------------------------------------------
r19783 | hajny | 2011-12-09 01:26:51 +0100 (Fri, 09 Dec 2011) | 1 line
Changed paths:
   M /trunk/rtl/os2/systhrd.inc

  * fix for SysThreadSetPriority
------------------------------------------------------------------------

git-svn-id: branches/fixes_2_6@19785 -

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;