diff options
| author | Tristan Gingold | 2015-09-02 18:25:25 +0200 |
|---|---|---|
| committer | Tristan Gingold | 2015-09-02 18:25:25 +0200 |
| commit | 510ff8938793c0cc883bdf2a5f5adfdd95f77880 (patch) | |
| tree | f222f11ad129f907a127474855313fafa974c9af /src/vhdl/translate/trans-chap2.adb | |
| parent | 5bd3c2ccf36ce92257616c709460b0006f4f1f7f (diff) | |
| download | ghdl-510ff8938793c0cc883bdf2a5f5adfdd95f77880.tar.gz ghdl-510ff8938793c0cc883bdf2a5f5adfdd95f77880.tar.bz2 ghdl-510ff8938793c0cc883bdf2a5f5adfdd95f77880.zip | |
Translate: explicitly clean transient types.
Diffstat (limited to 'src/vhdl/translate/trans-chap2.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap2.adb | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb index 1b18e0a..5fa301b 100644 --- a/src/vhdl/translate/trans-chap2.adb +++ b/src/vhdl/translate/trans-chap2.adb @@ -866,11 +866,9 @@ package body Trans.Chap2 is C => null, Ortho_Type => Src.Ortho_Type, Ortho_Ptr_Type => Src.Ortho_Ptr_Type, - Type_Transient_Chain => Null_Iir, T => Src.T, Type_Rti => Src.Type_Rti); pragma Assert (Src.C = null); - pragma Assert (Src.Type_Transient_Chain = Null_Iir); when Kind_Object => Dest.all := (Kind => Kind_Object, |