diff options
| -rw-r--r-- | translate/grt/grt-signals.adb | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/translate/grt/grt-signals.adb b/translate/grt/grt-signals.adb index fd99e43..3ea693d 100644 --- a/translate/grt/grt-signals.adb +++ b/translate/grt/grt-signals.adb @@ -1754,10 +1754,7 @@ package body Grt.Signals is -- Disable this feature (as a resolver is never a nested subprogram), so -- code generated by ghdl is compatible with ghdl runtimes built with -- gnat. - -- - -- If your compiler doesn't understand this pragma, you could safely - -- remove the pragma. - pragma Favor_Top_Level (Resolver_Acc); + pragma Convention (C, Resolver_Acc); function To_Resolver_Acc is new Ada.Unchecked_Conversion (Source => System.Address, Target => Resolver_Acc); |