From: Arnaud Charlet <charlet@adacore.com>
Date: Wed, 3 Mar 2021 15:14:43 +0000 (-0500)
Subject: [Ada] AI12-0411 Add "bool" to Interfaces.C
X-Git-Tag: basepoints/gcc-13~6743
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1b96f017cd4c6eb36afe95c7e7683928274c47fc;p=thirdparty%2Fgcc.git

[Ada] AI12-0411 Add "bool" to Interfaces.C

gcc/ada/

	* libgnat/i-c.ads, libgnat/i-cexten.ads,
	libgnat/i-cexten__128.ads: bool renamed C_bool.
---

diff --git a/gcc/ada/libgnat/i-c.ads b/gcc/ada/libgnat/i-c.ads
index 5c36245c8f4e..428ea4985e80 100644
--- 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
index 42eb578a38ed..70d2621bb367 100644
--- 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
index 70727b71c675..c07c5ab0a13d 100644
--- 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