commit 27534649ab6bed76c2839f2874849a5ddd48251a
author Doug Rupp <rupp@adacore.com> Mon Jul 12 13:21:45 2021 -0700
committer Pierre-Marie de Rodat <derodat@adacore.com> Wed Sep 22 15:01:47 2021 +0000
tree cfdc65397c31116b16a3c49d0efa81ce34c1ac69
parent 920e43ee2143c2dbe71d0117243ef53363396ee1

[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.