|
@@ -1430,7 +1430,7 @@ END FindCondition;
|
|
|
|
|
|
|
|
(* Find highest priority in array of priority counts *)
|
|
(* Find highest priority in array of priority counts *)
|
|
|
PROCEDURE MaxPrio(CONST priorityCounts: ARRAY OF WORD): WORD;
|
|
PROCEDURE MaxPrio(CONST priorityCounts: ARRAY OF WORD): WORD;
|
|
|
-VAR i: SIZE;
|
|
|
|
|
|
|
+VAR i: WORD;
|
|
|
BEGIN
|
|
BEGIN
|
|
|
i := LEN(priorityCounts) - 1;
|
|
i := LEN(priorityCounts) - 1;
|
|
|
WHILE (i >= 0) & (priorityCounts[i] = 0) DO DEC(i) END;
|
|
WHILE (i >= 0) & (priorityCounts[i] = 0) DO DEC(i) END;
|
negelef