From 79135f7b7eb9ba4547f80a73adb5f5598e51b094 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 14 Nov 2018 20:20:14 +0100 Subject: grt-lib: work-around for bug in old compilers. --- src/grt/grt-lib.adb | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'src/grt') 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"); -- cgit v1.2.3