From 9c79e3faf7ba29c9767fed41f0c7840bdedea3e9 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 21 Dec 2017 18:53:46 +0100
Subject: sem_inst: fix relocation of instances in instances.

---
 src/ghdldrv/ghdlxml.adb | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlxml.adb b/src/ghdldrv/ghdlxml.adb
index 9913aaf76..995706351 100644
--- a/src/ghdldrv/ghdlxml.adb
+++ b/src/ghdldrv/ghdlxml.adb
@@ -409,6 +409,8 @@ package body Ghdlxml is
                   Put_Field (F, Image_Token_Type (Get_Token_Type (N, F)));
                when Type_Name_Id =>
                   Put_Field (F, XML_Image (Get_Name_Id (N, F)));
+               when Type_Source_File_Entry =>
+                  null;
             end case;
          end loop;
 
-- 
cgit v1.2.3