diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2008-12-03 16:37:49 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2008-12-03 16:37:49 +0000 |
| commit | c783c777421748a2497638b595cbb150fd75eb07 (patch) | |
| tree | cc0cb06c5cc3d2335800f64b6b5c3a751e8c2afd /c/src/ada/rtems.ads | |
| parent | 2008-12-02 Joel Sherrill <joel.sherrill@oarcorp.com> (diff) | |
| download | rtems-c783c777421748a2497638b595cbb150fd75eb07.tar.bz2 | |
2008-12-03 Joel Sherrill <joel.sherrill@OARcorp.com>
PR 1345/Ada
* rtems.ads: RTEMS boolean type is now C99 bool which is not an
unsigned32.
Diffstat (limited to 'c/src/ada/rtems.ads')
| -rw-r--r-- | c/src/ada/rtems.ads | 6 |
1 files changed, 3 insertions, 3 deletions
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; |