From: Eric Botcazou <ebotcazou@adacore.com>
Date: Fri, 24 Jun 2022 10:16:21 +0000 (+0200)
Subject: [Ada] Add one more leading underscore to couple of exported symbols
X-Git-Tag: basepoints/gcc-14~5579
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6882d60a10060a7f3c73e73eb7f10239e1a4f905;p=thirdparty%2Fgcc.git

[Ada] Add one more leading underscore to couple of exported symbols

For the sake of consistency with other runtime units.

gcc/ada/

	* libgnat/s-stchop.ads: Use a double underscore prefix for symbols.
---

diff --git a/gcc/ada/libgnat/s-stchop.ads b/gcc/ada/libgnat/s-stchop.ads
index f4d1a5b8041..f1f3b79317e 100644
--- a/gcc/ada/libgnat/s-stchop.ads
+++ b/gcc/ada/libgnat/s-stchop.ads
@@ -72,7 +72,7 @@ package System.Stack_Checking.Operations is
 private
    Cache : aliased Stack_Access := Null_Stack;
 
-   pragma Export (C, Cache, "_gnat_stack_cache");
-   pragma Export (C, Stack_Check, "_gnat_stack_check");
+   pragma Export (C, Cache, "__gnat_stack_cache");
+   pragma Export (C, Stack_Check, "__gnat_stack_check");
 
 end System.Stack_Checking.Operations;