diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-01-27 05:12:38 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-01-27 18:49:24 +0100 |
| commit | bbdcad893c34119c56812b9936fbc5e2dcc62f5c (patch) | |
| tree | f8c58c5ddde06ace9cd21caf762ae85602a1a4d1 /src | |
| parent | 506d49798a78f67735c9a529eb849c152ced1e4b (diff) | |
| download | ghdl-bbdcad893c34119c56812b9936fbc5e2dcc62f5c.tar.gz ghdl-bbdcad893c34119c56812b9936fbc5e2dcc62f5c.tar.bz2 ghdl-bbdcad893c34119c56812b9936fbc5e2dcc62f5c.zip | |
translation: use Tables instead of GNAT.Table.
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/translate/trans.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/vhdl/translate/trans.adb b/src/vhdl/translate/trans.adb index 93052b9e9..eca2eacc5 100644 --- a/src/vhdl/translate/trans.adb +++ b/src/vhdl/translate/trans.adb @@ -18,7 +18,7 @@ with Name_Table; -- use Name_Table; with Nodes; -with GNAT.Table; +with Tables; with Trans_Decls; use Trans_Decls; package body Trans is @@ -1244,12 +1244,11 @@ package body Trans is Res_Ptr); end Add_Pointer; - package Node_Infos is new GNAT.Table + package Node_Infos is new Tables (Table_Component_Type => Ortho_Info_Acc, Table_Index_Type => Iir, Table_Low_Bound => 0, - Table_Initial => 1024, - Table_Increment => 100); + Table_Initial => 1024); procedure Init_Node_Infos is begin |