diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-05-05 13:54:39 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-05-05 16:03:03 +0200 |
| commit | 7892c6e7945d5e4b46ddde4f18debe1c06bd3e12 (patch) | |
| tree | 60b168224aaccf8421858bab2d600c1e4b0592ef /src/vhdl/translate | |
| parent | e4960acab358ebdd76d796554f962e755ec8954c (diff) | |
| download | ghdl-7892c6e7945d5e4b46ddde4f18debe1c06bd3e12.tar.gz ghdl-7892c6e7945d5e4b46ddde4f18debe1c06bd3e12.tar.bz2 ghdl-7892c6e7945d5e4b46ddde4f18debe1c06bd3e12.zip | |
vhdl: move nodes to vhdl.nodes_priv.
Diffstat (limited to 'src/vhdl/translate')
| -rw-r--r-- | src/vhdl/translate/trans.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/vhdl/translate/trans.adb b/src/vhdl/translate/trans.adb index b9455965d..9b0029205 100644 --- a/src/vhdl/translate/trans.adb +++ b/src/vhdl/translate/trans.adb @@ -17,7 +17,7 @@ -- 02111-1307, USA. with Name_Table; -- use Name_Table; -with Nodes; +with Vhdl.Nodes_Priv; with Tables; with Trans_Decls; use Trans_Decls; @@ -1368,11 +1368,11 @@ package body Trans is procedure Update_Node_Infos is - use Nodes; + use Vhdl.Nodes_Priv; F, L : Iir; begin F := Node_Infos.Last; - L := Nodes.Get_Last_Node; + L := Get_Last_Node; Node_Infos.Set_Last (L); Node_Infos.Table (F + 1 .. L) := (others => null); end Update_Node_Infos; |