<div dir="auto"><div><br><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Wed, Aug 19, 2020, 12:20 PM Gedare Bloom <<a href="mailto:gedare@rtems.org">gedare@rtems.org</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Looks good. I forgot about these with the barrier change... I guess<br>
there has been some bitrot in here. I wonder if there is an easier way<br>
to remember to keep this updated.<br></blockquote></div></div><div dir="auto"><br></div><div dir="auto">I don't know. The binding and tests are derived from the old Ada implementation. It is only for the Classic API bindings. Ada tasking uses POSIX threads.</div><div dir="auto"><br></div><div dir="auto">That all leads up to wondering what Classic APIs might be missing.</div><div dir="auto"><br></div><div dir="auto">--joel</div><div dir="auto"><br></div><div dir="auto"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<br>
On Tue, Aug 18, 2020 at 10:49 PM Sebastian Huber<br>
<<a href="mailto:sebastian.huber@embedded-brains.de" target="_blank" rel="noreferrer">sebastian.huber@embedded-brains.de</a>> wrote:<br>
><br>
> ---<br>
>  cpukit/include/adainclude/rtems.ads | 9 +++++++++<br>
>  1 file changed, 9 insertions(+)<br>
><br>
> diff --git a/cpukit/include/adainclude/rtems.ads b/cpukit/include/adainclude/rtems.ads<br>
> index 5069c36011..0b4b3e7e5f 100644<br>
> --- a/cpukit/include/adainclude/rtems.ads<br>
> +++ b/cpukit/include/adainclude/rtems.ads<br>
> @@ -201,6 +201,15 @@ pragma Elaborate_Body (RTEMS);<br>
>     Inherit_Priority        : constant RTEMS.Attribute := 16#00000040#;<br>
>     No_Priority_Ceiling     : constant RTEMS.Attribute := 16#00000000#;<br>
>     Priority_Ceiling        : constant RTEMS.Attribute := 16#00000080#;<br>
> +   No_Multiprocessor_Resource_Sharing<br>
> +                           : constant RTEMS.Attribute := 16#00000000#;<br>
> +   Multiprocessor_Resource_Sharing<br>
> +                           : constant RTEMS.Attribute := 16#00000100#;<br>
> +   Barrier_Manual_Release  : constant RTEMS.Attribute := 16#00000000#;<br>
> +   Barrier_Automatic_Release<br>
> +                           : constant RTEMS.Attribute := 16#00000200#;<br>
> +   Application_Task        : constant RTEMS.Attribute := 16#00000000#;<br>
> +   System_Task             : constant RTEMS.Attribute := 16#00008000#;<br>
><br>
>     function Interrupt_Level (<br>
>        Level : in     RTEMS.Unsigned32<br>
> --<br>
> 2.26.2<br>
><br>
> _______________________________________________<br>
> devel mailing list<br>
> <a href="mailto:devel@rtems.org" target="_blank" rel="noreferrer">devel@rtems.org</a><br>
> <a href="http://lists.rtems.org/mailman/listinfo/devel" rel="noreferrer noreferrer" target="_blank">http://lists.rtems.org/mailman/listinfo/devel</a><br>
_______________________________________________<br>
devel mailing list<br>
<a href="mailto:devel@rtems.org" target="_blank" rel="noreferrer">devel@rtems.org</a><br>
<a href="http://lists.rtems.org/mailman/listinfo/devel" rel="noreferrer noreferrer" target="_blank">http://lists.rtems.org/mailman/listinfo/devel</a><br>
</blockquote></div></div></div>