From 92371d706f42cbee5e72ad706a30202c7468f992 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 21 Jan 2014 22:14:35 +0100
Subject: Minor improvement of previous patch (use a more standard pragma).

---
 translate/grt/grt-signals.adb | 5 +----
 1 file changed, 1 insertion(+), 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);
-- 
cgit v1.2.3