diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-03-01 18:09:30 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-03-01 18:09:30 +0100 |
| commit | ad4ac5499e426cff9b76479e8ff6250a32fcbb57 (patch) | |
| tree | d24f1903700733dbb125ebea420d0980d84d8da9 /src/grt | |
| parent | 3619ff721b0456b2f15bd2d4913fd57aa97e827b (diff) | |
| download | ghdl-ad4ac5499e426cff9b76479e8ff6250a32fcbb57.tar.gz ghdl-ad4ac5499e426cff9b76479e8ff6250a32fcbb57.tar.bz2 ghdl-ad4ac5499e426cff9b76479e8ff6250a32fcbb57.zip | |
Elaborate generics in two steps. Fix -c/-e for llvm builds.
Diffstat (limited to 'src/grt')
| -rw-r--r-- | src/grt/grt-main.adb | 5 | ||||
| -rw-r--r-- | src/grt/grt-main.ads | 5 |
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; |