diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-12-30 19:11:43 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-12-30 19:11:43 +0100 |
| commit | 5a7a8470fc91861aa85060a758523e2d1f161585 (patch) | |
| tree | 8a521cdc9d057c18c53e612fd175b9eeba2888a6 /src/vhdl/translate/translation.adb | |
| parent | f38e8d2677cb5a93a3ad4c0e818e31b0063abf15 (diff) | |
| download | ghdl-5a7a8470fc91861aa85060a758523e2d1f161585.tar.gz ghdl-5a7a8470fc91861aa85060a758523e2d1f161585.tar.bz2 ghdl-5a7a8470fc91861aa85060a758523e2d1f161585.zip | |
translate: refactoring for ortho_info_type.
Diffstat (limited to 'src/vhdl/translate/translation.adb')
| -rw-r--r-- | src/vhdl/translate/translation.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/translation.adb b/src/vhdl/translate/translation.adb index bc69661bb..4f87db2f8 100644 --- a/src/vhdl/translate/translation.adb +++ b/src/vhdl/translate/translation.adb @@ -1811,7 +1811,7 @@ package body Translation is Ghdl_Real_Type, Std_String_Ptr_Node, Get_Identifier ("format")); declare Bv_Base_Ptr : constant O_Tnode := - Get_Info (Bit_Vector_Type_Definition).T.Base_Ptr_Type (Mode_Value); + Get_Info (Bit_Vector_Type_Definition).B.Base_Ptr_Type (Mode_Value); begin Create_To_String_Subprogram ("__ghdl_bv_to_ostring", Ghdl_BV_To_Ostring, |