diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-11-17 21:22:02 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-11-17 21:22:02 +0100 |
commit | e890899a52b1b879694a41759e7644613d7bd1a6 (patch) | |
tree | 17c2639eeb58f90eec82c4d21b2c7364543d50e9 /src/synth/netlists-utils.adb | |
parent | 4ac40b32c52686bb2c84b640d25d71919cafdf0e (diff) | |
download | ghdl-e890899a52b1b879694a41759e7644613d7bd1a6.tar.gz ghdl-e890899a52b1b879694a41759e7644613d7bd1a6.tar.bz2 ghdl-e890899a52b1b879694a41759e7644613d7bd1a6.zip |
synth: renaming to instance_attributes.
Diffstat (limited to 'src/synth/netlists-utils.adb')
-rw-r--r-- | src/synth/netlists-utils.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/synth/netlists-utils.adb b/src/synth/netlists-utils.adb index 236602fac..45e498663 100644 --- a/src/synth/netlists-utils.adb +++ b/src/synth/netlists-utils.adb @@ -283,19 +283,19 @@ package body Netlists.Utils is Get_Input_Net (Rinst, 0)); end Same_Clock; - procedure Copy_Attributes (Dest : Instance; Src : Instance) + procedure Copy_Instance_Attributes (Dest : Instance; Src : Instance) is Attr : Attribute; begin - Attr := Get_First_Attribute (Src); + Attr := Get_Instance_First_Attribute (Src); while Attr /= No_Attribute loop - Set_Attribute (Dest, - Get_Attribute_Name (Attr), - Get_Attribute_Type (Attr), - Get_Attribute_Pval (Attr)); + Set_Instance_Attribute (Dest, + Get_Attribute_Name (Attr), + Get_Attribute_Type (Attr), + Get_Attribute_Pval (Attr)); Attr := Get_Attribute_Next (Attr); end loop; - end Copy_Attributes; + end Copy_Instance_Attributes; function Clog2 (W : Width) return Width is begin |