From c2b6fd2775bdfb183a4de81d64f745e282ffd9fb Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 12 Nov 2019 20:22:30 +0100
Subject: synth-stmts: return sub arrays/records for

---
 src/synth/synth-values.ads | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/synth/synth-values.ads')

diff --git a/src/synth/synth-values.ads b/src/synth/synth-values.ads
index bdf7aca84..4712eb2b7 100644
--- a/src/synth/synth-values.ads
+++ b/src/synth/synth-values.ads
@@ -214,8 +214,6 @@ package Synth.Values is
             Scal : Int64;
          when Value_Float =>
             Fp : Fp64;
-         when Value_Subtype =>
-            null;
          when Value_Array
            | Value_Const_Array =>
             Arr : Value_Array_Acc;
@@ -228,6 +226,8 @@ package Synth.Values is
             File : File_Index;
          when Value_Instance =>
             Instance : Instance_Id;
+         when Value_Subtype =>
+            null;
          when Value_Const =>
             C_Val : Value_Acc;
             C_Loc : Syn_Src;
-- 
cgit v1.2.3