diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-02-23 08:09:24 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-02-23 08:09:24 +0100 |
commit | 5a61b36758ef3821b0d61183d37af576a420a14c (patch) | |
tree | c46ac716a0ea3d84b4395cc9ab8ef9c81a6c4fa2 /src/vhdl/translate/trans-chap9.adb | |
parent | 39620f16799fe8aa80022322767ca9b5a2ad6089 (diff) | |
download | ghdl-5a61b36758ef3821b0d61183d37af576a420a14c.tar.gz ghdl-5a61b36758ef3821b0d61183d37af576a420a14c.tar.bz2 ghdl-5a61b36758ef3821b0d61183d37af576a420a14c.zip |
vhdl08: more on unbounded records (WIP)
Diffstat (limited to 'src/vhdl/translate/trans-chap9.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap9.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap9.adb b/src/vhdl/translate/trans-chap9.adb index 4147c00b5..c35dd5ea5 100644 --- a/src/vhdl/translate/trans-chap9.adb +++ b/src/vhdl/translate/trans-chap9.adb @@ -2336,7 +2336,7 @@ package body Trans.Chap9 is begin Res := Data; if Data.Has_Val then - if Get_Type_Info (Data.Val).Type_Mode = Type_Mode_Record then + if Get_Type_Info (Data.Val).Type_Mode in Type_Mode_Records then Res.Val := Stabilize (Data.Val); else Res.Val := Chap3.Get_Composite_Base (Data.Val); |