diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-11-14 20:20:14 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-11-14 20:20:14 +0100 |
commit | 79135f7b7eb9ba4547f80a73adb5f5598e51b094 (patch) | |
tree | 9dcb75d7b4449200215bf5d532a08fed680ed41d /src/grt | |
parent | e9b528294b94f62d07384859680f1f45ae5e9d6c (diff) | |
download | ghdl-79135f7b7eb9ba4547f80a73adb5f5598e51b094.tar.gz ghdl-79135f7b7eb9ba4547f80a73adb5f5598e51b094.tar.bz2 ghdl-79135f7b7eb9ba4547f80a73adb5f5598e51b094.zip |
grt-lib: work-around for bug in old compilers.
Diffstat (limited to 'src/grt')
-rw-r--r-- | src/grt/grt-lib.adb | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/grt/grt-lib.adb b/src/grt/grt-lib.adb index 3a9a9f6c3..7597bcfc4 100644 --- a/src/grt/grt-lib.adb +++ b/src/grt/grt-lib.adb @@ -263,13 +263,17 @@ package body Grt.Lib is function Ghdl_I32_Exp_1 is new Gen_Ixx_Exp (Ghdl_I32, Mul_I32_Ovf); - function Ghdl_I32_Exp (V : Ghdl_I32; E : Std_Integer) return Ghdl_I32 - renames Ghdl_I32_Exp_1; + function Ghdl_I32_Exp (V : Ghdl_I32; E : Std_Integer) return Ghdl_I32 is + begin + return Ghdl_I32_Exp_1 (V, E); + end Ghdl_I32_Exp; function Ghdl_I64_Exp_1 is new Gen_Ixx_Exp (Ghdl_I64, Mul_I64_Ovf); - function Ghdl_I64_Exp (V : Ghdl_I64; E : Std_Integer) return Ghdl_I64 - renames Ghdl_I64_Exp_1; + function Ghdl_I64_Exp (V : Ghdl_I64; E : Std_Integer) return Ghdl_I64 is + begin + return Ghdl_I64_Exp_1 (V, E); + end Ghdl_I64_Exp; function C_Malloc (Size : Ghdl_Index_Type) return Ghdl_Ptr; pragma Import (C, C_Malloc, "malloc"); |