From ad4ac5499e426cff9b76479e8ff6250a32fcbb57 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 1 Mar 2015 18:09:30 +0100
Subject: Elaborate generics in two steps. Fix -c/-e for llvm builds.

---
 src/grt/grt-main.adb | 5 +++++
 src/grt/grt-main.ads | 5 +++++
 2 files changed, 10 insertions(+)

(limited to 'src/grt')

diff --git a/src/grt/grt-main.adb b/src/grt/grt-main.adb
index 116ea7b2e..32547774b 100644
--- a/src/grt/grt-main.adb
+++ b/src/grt/grt-main.adb
@@ -60,6 +60,11 @@ package body Grt.Main is
       return 0;
    end Ghdl_Elaborate_Wrapper;
 
+   procedure Ghdl_Init_Top_Generics is
+   begin
+      null;
+   end Ghdl_Init_Top_Generics;
+
    procedure Disp_Stats_Hook (Code : Integer);
    pragma Convention (C, Disp_Stats_Hook);
 
diff --git a/src/grt/grt-main.ads b/src/grt/grt-main.ads
index 4f78477f2..6dd774197 100644
--- a/src/grt/grt-main.ads
+++ b/src/grt/grt-main.ads
@@ -26,4 +26,9 @@
 package Grt.Main is
    --  Elaborate and simulate the design.
    procedure Run;
+
+   --  This function is called by elaboration code once default values have
+   --  been assigned to generics, but before being used.
+   procedure Ghdl_Init_Top_Generics;
+   pragma Export (C, Ghdl_Init_Top_Generics, "__ghdl_init_top_generics");
 end Grt.Main;
-- 
cgit v1.2.3