diff options
Diffstat (limited to 'src/synth/netlists.adb')
| -rw-r--r-- | src/synth/netlists.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/synth/netlists.adb b/src/synth/netlists.adb index f872606e2..3a5b0b3dd 100644 --- a/src/synth/netlists.adb +++ b/src/synth/netlists.adb @@ -721,6 +721,12 @@ package body Netlists is return Instances_Table.Table (Inst).Name; end Get_Instance_Name; + procedure Set_Instance_Name (Inst : Instance; Name : Sname) is + begin + pragma Assert (Is_Valid (Inst)); + Instances_Table.Table (Inst).Name := Name; + end Set_Instance_Name; + function Get_Instance_Parent (Inst : Instance) return Module is begin pragma Assert (Is_Valid (Inst)); |