diff options
| -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; |