aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth/synth-static_oper.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/synth/synth-static_oper.adb')
-rw-r--r--src/synth/synth-static_oper.adb3
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);