diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-05-07 07:49:52 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-05-07 07:49:52 +0200 |
commit | cc951b301b52286677f36c390e077e9d3a3ea793 (patch) | |
tree | 9282f8939305ed249ad528d533cda0657495411f /src/vhdl/vhdl-sem_specs.adb | |
parent | 492288d13db59eb946ef44dc4c5b4fa815217791 (diff) | |
download | ghdl-cc951b301b52286677f36c390e077e9d3a3ea793.tar.gz ghdl-cc951b301b52286677f36c390e077e9d3a3ea793.tar.bz2 ghdl-cc951b301b52286677f36c390e077e9d3a3ea793.zip |
vhdl-nodes_utils: renaming.
Diffstat (limited to 'src/vhdl/vhdl-sem_specs.adb')
-rw-r--r-- | src/vhdl/vhdl-sem_specs.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/vhdl-sem_specs.adb b/src/vhdl/vhdl-sem_specs.adb index 5b63995bc..9329fff14 100644 --- a/src/vhdl/vhdl-sem_specs.adb +++ b/src/vhdl/vhdl-sem_specs.adb @@ -1674,7 +1674,7 @@ package body Vhdl.Sem_Specs is -- No error found yet. Error := False; - Sub_Chain_Init (Res, Last); + Chain_Init (Res, Last); Found := 0; Ent_El := Ent_Chain; while Ent_El /= Null_Iir loop @@ -1732,7 +1732,7 @@ package body Vhdl.Sem_Specs is Set_Collapse_Signal_Flag (Assoc, Can_Collapse_Signals (Assoc, Ent_El)); end if; - Sub_Chain_Append (Res, Last, Assoc); + Chain_Append (Res, Last, Assoc); Ent_El := Get_Chain (Ent_El); end loop; if Nodes_Utils.Get_Chain_Length (Comp_Chain) /= Found then |