diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-01-21 22:14:35 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-01-21 22:14:35 +0100 |
| commit | 92371d706f42cbee5e72ad706a30202c7468f992 (patch) | |
| tree | d6e84356b1957421cc02e6b2ea41934bea4021b0 | |
| parent | ee29f133b030abaeadb3e57d0c5db7c3f3e70535 (diff) | |
| download | ghdl-92371d706f42cbee5e72ad706a30202c7468f992.tar.gz ghdl-92371d706f42cbee5e72ad706a30202c7468f992.tar.bz2 ghdl-92371d706f42cbee5e72ad706a30202c7468f992.zip | |
Minor improvement of previous patch (use a more standard pragma).
| -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 fd99e43dd..3ea693daf 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); |