diff options
| -rw-r--r-- | src/synth/synth-static_oper.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/synth/synth-static_oper.adb b/src/synth/synth-static_oper.adb index 668b7b431..81e5171c0 100644 --- a/src/synth/synth-static_oper.adb +++ b/src/synth/synth-static_oper.adb @@ -206,7 +206,8 @@ package body Synth.Static_Oper is (Left.Scal / Right.Scal, Res_Typ); when Iir_Predefined_Integer_Mod => return Create_Value_Discrete - (Left.Scal mod Right.Scal, Res_Typ); + (Get_Static_Discrete (Left) mod Get_Static_Discrete (Right), + Res_Typ); when Iir_Predefined_Integer_Rem => return Create_Value_Discrete (Left.Scal rem Right.Scal, Res_Typ); |