diff options
Diffstat (limited to 'src/vhdl/translate/trans.adb')
-rw-r--r-- | src/vhdl/translate/trans.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans.adb b/src/vhdl/translate/trans.adb index de7fd3995..f2744897c 100644 --- a/src/vhdl/translate/trans.adb +++ b/src/vhdl/translate/trans.adb @@ -681,6 +681,11 @@ package body Trans is Var.I_Field, Otype); end Get_Var_Offset; + function Get_Var_Field (Var : Var_Type) return O_Fnode is + begin + return Var.I_Field; + end Get_Var_Field; + function Get_Var_Label (Var : Var_Type) return O_Dnode is begin case Var.Kind is |