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 f2744897c..a54ffb0f2 100644 --- a/src/vhdl/translate/trans.adb +++ b/src/vhdl/translate/trans.adb @@ -302,6 +302,11 @@ package body Trans is Set_Scope_Via_Field (Child, Field, Inst_Build.Scope); end Add_Scope_Field; + function Get_Scope_Field (Child : Var_Scope_Type) return O_Fnode is + begin + return Child.Field; + end Get_Scope_Field; + function Get_Scope_Offset (Child : Var_Scope_Type; Otype : O_Tnode) return O_Cnode is begin |