diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-30 01:12:10 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-30 01:12:34 +0200 |
| commit | e87a1678e51b22db4d153ed7237a4cfa76d6ee9e (patch) | |
| tree | 7752b51e8f50d91a1e746c66cb012c491e0be525 | |
| parent | 799878f2f33010fd2c9153efef7db6b4f6c7d4e4 (diff) | |
| download | ghdl-e87a1678e51b22db4d153ed7237a4cfa76d6ee9e.tar.gz ghdl-e87a1678e51b22db4d153ed7237a4cfa76d6ee9e.tar.bz2 ghdl-e87a1678e51b22db4d153ed7237a4cfa76d6ee9e.zip | |
synth: handle alias for is_const. Fix #948
| -rw-r--r-- | src/synth/synth-values.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb index 7db1bfe99..c7f059c67 100644 --- a/src/synth/synth-values.adb +++ b/src/synth/synth-values.adb @@ -54,9 +54,10 @@ package body Synth.Values is when Value_Array | Value_Record => return False; + when Value_Alias => + return Is_Const (Val.A_Obj); when Value_Instance - | Value_Subtype - | Value_Alias => + | Value_Subtype => -- Not really a value. raise Internal_Error; end case; |