RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

2008-12-03 Joel Sherrill <joel.sherrill@OARcorp.com>

Browse Source 
PR 1345/Ada
	* rtems.ads: RTEMS boolean type is now C99 bool which is not an
	unsigned32.
This commit is contained in:
Joel Sherrill
2008-12-03 16:38:00 +00:00
parent 15d26f98e6
commit 5fe1335662
2 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
c/src/ada/ChangeLog
View File

@@ -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> 2008-11-20 Joel Sherrill <joel.sherrill@OARcorp.com>
PR 1339/Ada PR 1339/Ada

6
c/src/ada/rtems.ads
View File

@@ -45,7 +45,7 @@ pragma Elaborate_Body (RTEMS);
type Unsigned8_Pointer is access all RTEMS.Unsigned8; type Unsigned8_Pointer is access all RTEMS.Unsigned8;
type Signed32_Pointer is access all RTEMS.Signed32; type Signed32_Pointer is access all RTEMS.Signed32;
subtype Boolean is RTEMS.Unsigned32; subtype Boolean is RTEMS.Unsigned8;
subtype Address is System.Address; subtype Address is System.Address;
subtype Single is Interfaces.C.C_float; subtype Single is Interfaces.C.C_float;
subtype Double is Interfaces.C.Double; subtype Double is Interfaces.C.Double;
@@ -58,7 +58,7 @@ pragma Elaborate_Body (RTEMS);
Unsigned8_Bits : constant := 7; Unsigned8_Bits : constant := 7;
Unsigned16_Bits : constant := 15; Unsigned16_Bits : constant := 15;
Unsigned32_Bits : constant := 31; Unsigned32_Bits : constant := 31;
Boolean_Bits : constant := 31; Boolean_Bits : constant := 7;
Address_Bits : constant := 31; Address_Bits : constant := 31;
Single_Bits : constant := 31; Single_Bits : constant := 31;
Double_Bits : constant := 63; Double_Bits : constant := 63;
@@ -66,7 +66,7 @@ pragma Elaborate_Body (RTEMS);
Unsigned8_Units : constant := 1; Unsigned8_Units : constant := 1;
Unsigned16_Units : constant := 2; Unsigned16_Units : constant := 2;
Unsigned32_Units : constant := 4; Unsigned32_Units : constant := 4;
Boolean_Units : constant := 4; Boolean_Units : constant := 1;
Address_Units : constant := 4; Address_Units : constant := 4;
Single_Units : constant := 4; Single_Units : constant := 4;
Double_Units : constant := 8; Double_Units : constant := 8;