diff options
Diffstat (limited to 'src')
| -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"); |