From c783c777421748a2497638b595cbb150fd75eb07 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Wed, 3 Dec 2008 16:37:49 +0000 Subject: 2008-12-03 Joel Sherrill PR 1345/Ada * rtems.ads: RTEMS boolean type is now C99 bool which is not an unsigned32. --- c/src/ada/rtems.ads | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'c/src/ada/rtems.ads') diff --git a/c/src/ada/rtems.ads b/c/src/ada/rtems.ads index 0a24a34597..0df60fdf46 100644 --- a/c/src/ada/rtems.ads +++ b/c/src/ada/rtems.ads @@ -45,7 +45,7 @@ pragma Elaborate_Body (RTEMS); type Unsigned8_Pointer is access all RTEMS.Unsigned8; type Signed32_Pointer is access all RTEMS.Signed32; - subtype Boolean is RTEMS.Unsigned32; + subtype Boolean is RTEMS.Unsigned8; subtype Address is System.Address; subtype Single is Interfaces.C.C_float; subtype Double is Interfaces.C.Double; @@ -58,7 +58,7 @@ pragma Elaborate_Body (RTEMS); Unsigned8_Bits : constant := 7; Unsigned16_Bits : constant := 15; Unsigned32_Bits : constant := 31; - Boolean_Bits : constant := 31; + Boolean_Bits : constant := 7; Address_Bits : constant := 31; Single_Bits : constant := 31; Double_Bits : constant := 63; @@ -66,7 +66,7 @@ pragma Elaborate_Body (RTEMS); Unsigned8_Units : constant := 1; Unsigned16_Units : constant := 2; Unsigned32_Units : constant := 4; - Boolean_Units : constant := 4; + Boolean_Units : constant := 1; Address_Units : constant := 4; Single_Units : constant := 4; Double_Units : constant := 8; -- cgit v1.2.3