Message ID | 20210617143310.GA8593@adacore.com |
---|---|
State | New |
Headers | show |
Series | [Ada] AI12-0411 Add "bool" to Interfaces.C | expand |
diff --git a/gcc/ada/libgnat/i-c.ads b/gcc/ada/libgnat/i-c.ads --- a/gcc/ada/libgnat/i-c.ads +++ b/gcc/ada/libgnat/i-c.ads @@ -63,8 +63,8 @@ package Interfaces.C is -- Boolean type - type bool is new Boolean; - pragma Convention (C, bool); + type C_bool is new Boolean; + pragma Convention (C, C_bool); -- Floating-Point diff --git a/gcc/ada/libgnat/i-cexten.ads b/gcc/ada/libgnat/i-cexten.ads --- a/gcc/ada/libgnat/i-cexten.ads +++ b/gcc/ada/libgnat/i-cexten.ads @@ -56,7 +56,7 @@ package Interfaces.C.Extensions is -- C bool - subtype bool is Interfaces.C.bool; + subtype bool is Interfaces.C.C_bool; -- 64-bit integer types diff --git a/gcc/ada/libgnat/i-cexten__128.ads b/gcc/ada/libgnat/i-cexten__128.ads --- a/gcc/ada/libgnat/i-cexten__128.ads +++ b/gcc/ada/libgnat/i-cexten__128.ads @@ -56,7 +56,7 @@ package Interfaces.C.Extensions is -- C bool - subtype bool is Interfaces.C.bool; + subtype bool is Interfaces.C.C_bool; -- 64-bit integer types