2 files changed, 10 insertions, 0 deletions
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;