GNAT and Ada.Asynchronous_Task_Control

GNAT and Ada.Asynchronous_Task_Control

[Frank J. Lhota]

The Windows version of GNAT 3.14p does not implement the optional real time
package Ada.Asynchronous_Task_Control. The Win32 API has the functions
SuspendThread / ResumeThread needed to implement this package. To actually
implement Ada.Asynchronous_Task_Control, we need to remove the
Unimplemented_Unit pragma from the specification and provide the appropriate
body.

The package body for Ada.Asynchronous_Task_Control in the "adainclude"
directory, however, has empty subprogram bodies. No details are provided as
to how the higher-level, task-related data is to be manipulated should be
manipulated by this package. I recall seeing a more detailed version of a
Ada.Asynchronous_Task_Control body, with comments indicating where the
OS-specific calls need to go. Is this version of the
Ada.Asynchronous_Task_Control body still distributed, and if so, where can I
find it?

Re: GNAT and Ada.Asynchronous_Task_Control

[Martin Krischik]

Frank J. Lhota wrote:

> The Windows version of GNAT 3.14p does not implement the optional real

gnat 3.14p?  The actual public window version is 3.15p! If you have not made
a typing mistake you should update first.

With Regards

Martin

-- 
mailto://krischik@users.sourceforge.net
http://www.ada.krischik.com

Re: GNAT and Ada.Asynchronous_Task_Control

[Frank J. Lhota]

"Martin Krischik" <krischik@users.sourceforge.net> wrote in message
news:1900599.4t2HcsAS6G@linux1.krischik.com...
> Frank J. Lhota wrote:
> gnat 3.14p?  The actual public window version is 3.15p! If you have not
made
> a typing mistake you should update first.

Yup, you're right, I meant 3.15p. Sorry for the typo.

Re: GNAT and Ada.Asynchronous_Task_Control

[Martin Krischik]

Frank J. Lhota wrote:

> The Windows version of GNAT 3.14p does not implement the optional real
> time package Ada.Asynchronous_Task_Control. The Win32 API has the
> functions SuspendThread / ResumeThread needed to implement this package.
> To actually implement Ada.Asynchronous_Task_Control, we need to remove the
> Unimplemented_Unit pragma from the specification and provide the
> appropriate body.
> 
> The package body for Ada.Asynchronous_Task_Control in the "adainclude"
> directory, however, has empty subprogram bodies. No details are provided
> as to how the higher-level, task-related data is to be manipulated should
> be manipulated by this package. I recall seeing a more detailed version of
> a Ada.Asynchronous_Task_Control body, with comments indicating where the
> OS-specific calls need to go. Is this version of the
> Ada.Asynchronous_Task_Control body still distributed, and if so, where can
> I find it?

If you want to extend GNAT you should download the current development
version of GNAT from:

:ext:anoncvs@savannah.gnu.org:/cvsroot/gcc

That is, of course a cvs address. The actual commands for the download are:

SET CVSROOT=:ext:anoncvs@savannah.gnu.org:/cvsroot/gcc
cvs -qz9 checkout -P gcc 

This GNAT Version is 2 years more modern then the one you have got. However,
I have not been able to compile this version with Windows. Linux is OK.

Still you can have a look at the package in question. Either look at the
Linux version of the package or perhaps the feature has been included in
the current windows version allready.

Have Fun.

With Regards

Martin

-- 
mailto://krischik@users.sourceforge.net
http://www.ada.krischik.com

Re: GNAT and Ada.Asynchronous_Task_Control

[Frank J. Lhota]

Thanks for the info, but I could not find a more detailed version of
Ada.Asynchronous_Task_Control here either.

Re: GNAT and Ada.Asynchronous_Task_Control

[Frank J. Lhota]

Looking at both the 3.15p version and the CVS version of GNAT, it appears
that the package System.Task_Primitives.Operations defines the procedures
Suspend_Task and Resume_Task needed to do the OS-specific work of
Ada.Asynchronous_Task_Control. This really has me puzzled, for it seems like
GNAT has 95% of the intrastructure needed for a portable implementation of
Ada.Asynchronous_Task_Control. Why not complete the job and implement the
package?