[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.
This commit is contained in:
Eric Botcazou 2022-06-24 12:16:21 +02:00 committed by Pierre-Marie de Rodat
parent be4ab2ae01
commit 6882d60a10

View File

@ -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;