diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-12-21 18:53:46 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-12-21 18:53:46 +0100 |
commit | 9c79e3faf7ba29c9767fed41f0c7840bdedea3e9 (patch) | |
tree | 6b086b639fffcb2de952646edec723b63e8f7eed /src/ghdldrv/ghdlxml.adb | |
parent | 6ebd66f4472f5e55c41ccf35bb13989b19006ed8 (diff) | |
download | ghdl-9c79e3faf7ba29c9767fed41f0c7840bdedea3e9.tar.gz ghdl-9c79e3faf7ba29c9767fed41f0c7840bdedea3e9.tar.bz2 ghdl-9c79e3faf7ba29c9767fed41f0c7840bdedea3e9.zip |
sem_inst: fix relocation of instances in instances.
Diffstat (limited to 'src/ghdldrv/ghdlxml.adb')
-rw-r--r-- | src/ghdldrv/ghdlxml.adb | 2 |
1 files changed, 2 insertions, 0 deletions
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; |