From 89578f1793a01fbeb701cbe13fc5f586e08400d2 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 26 Aug 2020 19:44:19 +0200 Subject: synth-static_oper: fix crash on exponential. Fix #1442 Allow negative value for the right operand of ** for floating point values. --- src/synth/synth-static_oper.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/synth/synth-static_oper.adb b/src/synth/synth-static_oper.adb index 2b24d5ec0..7fa3a86fc 100644 --- a/src/synth/synth-static_oper.adb +++ b/src/synth/synth-static_oper.adb @@ -288,7 +288,7 @@ package body Synth.Static_Oper is Res_Typ); when Iir_Predefined_Floating_Exp => return Create_Memory_Fp64 - (Read_Fp64 (Left) ** Natural (Read_Discrete (Right)), Res_Typ); + (Read_Fp64 (Left) ** Integer (Read_Discrete (Right)), Res_Typ); when Iir_Predefined_Array_Array_Concat => declare -- cgit v1.2.3