From fef9f34b241b948139196d4039dcaa6cfd6a09d5 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 22 Mar 2020 09:12:14 +0100
Subject: synth: do not crash immediately on access type.

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

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

diff --git a/src/synth/synth-values.ads b/src/synth/synth-values.ads
index 1afe6d0a4..416f2729d 100644
--- a/src/synth/synth-values.ads
+++ b/src/synth/synth-values.ads
@@ -104,7 +104,12 @@ package Synth.Values is
    type Rec_El_Array_Acc is access Rec_El_Array;
 
    type Type_Type (Kind : Type_Kind) is record
+      --  False if the type is not synthesisable: is or contains access/file.
+      Is_Synth : Boolean;
+
+      --  Number of bits for this type.
       W : Width;
+
       case Kind is
          when Type_Bit
            | Type_Logic =>
-- 
cgit v1.2.3