From e87a1678e51b22db4d153ed7237a4cfa76d6ee9e Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 30 Sep 2019 01:12:10 +0200
Subject: synth: handle alias for is_const.  Fix #948

---
 src/synth/synth-values.adb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

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;
-- 
cgit v1.2.3