diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-11-01 18:46:30 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-11-01 18:46:30 +0100 |
commit | adf0f9100859e0a07b554e0554c5271a36db5d4b (patch) | |
tree | 43d96de9506d2da813599b289ea056a3bed84cf6 /src/synth/synth-values.adb | |
parent | 66b34c936b1ef472a532673bed0543287311e995 (diff) | |
download | ghdl-adf0f9100859e0a07b554e0554c5271a36db5d4b.tar.gz ghdl-adf0f9100859e0a07b554e0554c5271a36db5d4b.tar.bz2 ghdl-adf0f9100859e0a07b554e0554c5271a36db5d4b.zip |
synth-values: handle value_const for is_equal.
Diffstat (limited to 'src/synth/synth-values.adb')
-rw-r--r-- | src/synth/synth-values.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb index 2bbe7dd97..610d15d75 100644 --- a/src/synth/synth-values.adb +++ b/src/synth/synth-values.adb @@ -114,6 +114,9 @@ package body Synth.Values is if L.Kind /= R.Kind then return False; end if; + if L = R then + return True; + end if; case L.Kind is when Value_Discrete => @@ -128,6 +131,8 @@ package body Synth.Values is end if; end loop; return True; + when Value_Const => + return Is_Equal (L.C_Val, R.C_Val); when others => -- TODO. raise Internal_Error; |