diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-11-16 13:40:10 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-11-16 13:40:10 +0100 |
| commit | 0832b4aba24d9a1a3753852d58c23d066ce4b1fe (patch) | |
| tree | 01f27c1934ac96f79948e520f3ad7826347f28ca /src | |
| parent | b2bd8f350317e2990b1482ed0fe600e48dde2404 (diff) | |
| download | ghdl-0832b4aba24d9a1a3753852d58c23d066ce4b1fe.tar.gz ghdl-0832b4aba24d9a1a3753852d58c23d066ce4b1fe.tar.bz2 ghdl-0832b4aba24d9a1a3753852d58c23d066ce4b1fe.zip | |
synth: adjust static integer division.
Diffstat (limited to 'src')
| -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); |