diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2008-12-03 16:38:00 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2008-12-03 16:38:00 +0000 |
| commit | 5fe133566282cd62b96084b3e384cd817e1ac6f6 (patch) | |
| tree | 723caeec7b408e74b20e0407e13cd5b851d512a8 /c/src/ada | |
| parent | 2008-12-02 Joel Sherrill <joel.sherrill@OARcorp.com> (diff) | |
| download | rtems-5fe133566282cd62b96084b3e384cd817e1ac6f6.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')
| -rw-r--r-- | c/src/ada/ChangeLog | 6 | ||||
| -rw-r--r-- | c/src/ada/rtems.ads | 6 |
2 files changed, 9 insertions, 3 deletions
diff --git a/c/src/ada/ChangeLog b/c/src/ada/ChangeLog index 6dfd01e19e..9357e697f3 100644 --- a/c/src/ada/ChangeLog +++ b/c/src/ada/ChangeLog @@ -1,3 +1,9 @@ +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. + 2008-11-20 Joel Sherrill <joel.sherrill@OARcorp.com> PR 1339/Ada 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; |