From 6882d60a10060a7f3c73e73eb7f10239e1a4f905 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Fri, 24 Jun 2022 12:16:21 +0200 Subject: [PATCH] [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. --- gcc/ada/libgnat/s-stchop.ads | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; -- 2.47.2