[Ada] VxWorks inconsistent use of return type (BOOL)
authorDoug Rupp <rupp@adacore.com>
Mon, 12 Jul 2021 20:21:45 +0000 (13:21 -0700)
committerPierre-Marie de Rodat <derodat@adacore.com>
Wed, 22 Sep 2021 15:01:47 +0000 (15:01 +0000)
commit27534649ab6bed76c2839f2874849a5ddd48251a
treecfdc65397c31116b16a3c49d0efa81ce34c1ac69
parent920e43ee2143c2dbe71d0117243ef53363396ee1
[Ada] VxWorks inconsistent use of return type (BOOL)

gcc/ada/

* libgnarl/s-vxwext.ads (BOOL): New int type.
(Interrupt_Context): Change return type to BOOL.
* libgnarl/s-vxwext__kernel.ads: Likewise.
* libgnarl/s-vxwext__rtp-smp.adb: Likewise.
* libgnarl/s-vxwext__rtp.adb: Likewise.
* libgnarl/s-vxwext__rtp.ads: Likewise.
* libgnarl/s-osinte__vxworks.adb (Interrupt_Context): Change
return type to BOOL.
* libgnarl/s-osinte__vxworks.ads (BOOL) New subtype.
(taskIsSuspended): Change return type to BOOL.
(Interrupt_Context): Change return type to BOOL. Adjust comments
accordingly.
* libgnarl/s-taprop__vxworks.adb (System.VxWorks.Ext.BOOL):
use type.
(Is_Task_Context): Test Interrupt_Context against 0.
* libgnat/i-vxwork.ads (BOOL): New int.
(intContext): Change return type to BOOL. Adjust comments.
* libgnat/i-vxwork__x86.ads: Likewise.
gcc/ada/libgnarl/s-osinte__vxworks.adb
gcc/ada/libgnarl/s-osinte__vxworks.ads
gcc/ada/libgnarl/s-taprop__vxworks.adb
gcc/ada/libgnarl/s-vxwext.ads
gcc/ada/libgnarl/s-vxwext__kernel.ads
gcc/ada/libgnarl/s-vxwext__rtp-smp.adb
gcc/ada/libgnarl/s-vxwext__rtp.adb
gcc/ada/libgnarl/s-vxwext__rtp.ads
gcc/ada/libgnat/i-vxwork.ads
gcc/ada/libgnat/i-vxwork__x86.ads