Rick Duley <[log in to unmask]> writes:
> with Ada.Dynamic_Priorities; use Ada.Dynamic_Priorities;
> with System; use System;
> procedure Foo is
> begin -- Foo
> Set_Priority(Priority => Any_Priority'First);
>
> . . .
>
> end Foo;
>
>
> does not work
By "work" you mean it does not set the _process_ priority to what
Windows calls "Low".
However, what the Ada LRM says Priority means has to do with a
thread's priority _within_ a process, not the process priority itself.
So by that definition, it probably does "work".
> I must have something wrong in my coding for the use of Annex D because I
> believe that prioritisation was always supported by the Gnat Ada Compilers.
GNAT supports thread (Ada task) priorities; it has no notion of
process priorities.
--
-- Stephe