diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2022-06-24 12:16:21 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-07-12 12:24:12 +0000 |
| commit | 6882d60a10060a7f3c73e73eb7f10239e1a4f905 (patch) | |
| tree | bfbf36bc67e823157ac3bf802366b17ea76edec6 | |
| parent | be4ab2ae015e1e18a4e5b57ab5d87e6f30e6749e (diff) | |
| download | gcc-6882d60a10060a7f3c73e73eb7f10239e1a4f905.zip gcc-6882d60a10060a7f3c73e73eb7f10239e1a4f905.tar.gz gcc-6882d60a10060a7f3c73e73eb7f10239e1a4f905.tar.bz2 | |
[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.
| -rw-r--r-- | gcc/ada/libgnat/s-stchop.ads | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/libgnat/s-stchop.ads b/gcc/ada/libgnat/s-stchop.ads index f4d1a5b..f1f3b79 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; |