TEAM-ADA Archives

Team Ada: Ada Programming Language Advocacy


Options: Use Classic View

Use Monospaced Font
Show Text Part by Default
Condense Mail Headers

Topic: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Sender: "Team Ada: Ada Programming Language Advocacy (83 & 95)" <[log in to unmask]>
X-To: Rick Duley <[log in to unmask]>
Date: Mon, 16 May 2005 09:50:19 -0400
Reply-To: Stephen Leake <[log in to unmask]>
From: Stephen Leake <[log in to unmask]>
In-Reply-To: <[log in to unmask]> (Rick Duley's message of "Thu, 12 May 2005 14:57:39 +0800")
Content-Type: text/plain; charset=us-ascii
MIME-Version: 1.0
Parts/Attachments: text/plain (31 lines)
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