diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-09-10 20:59:08 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-09-10 20:59:08 +0200 |
commit | 42f4c411641c04da2b8f08f9029e17bfd37206e4 (patch) | |
tree | 97db2955734ee7e059f461cef8a2924eeb49271d /src/vhdl/sem_inst.adb | |
parent | 95632804220716d4993d3e4b0d0cba06d984a837 (diff) | |
download | ghdl-42f4c411641c04da2b8f08f9029e17bfd37206e4.tar.gz ghdl-42f4c411641c04da2b8f08f9029e17bfd37206e4.tar.bz2 ghdl-42f4c411641c04da2b8f08f9029e17bfd37206e4.zip |
Reimplement table package (used instead of GNAT.Table).
Diffstat (limited to 'src/vhdl/sem_inst.adb')
-rw-r--r-- | src/vhdl/sem_inst.adb | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/src/vhdl/sem_inst.adb b/src/vhdl/sem_inst.adb index b60b34b9b..cb46b833d 100644 --- a/src/vhdl/sem_inst.adb +++ b/src/vhdl/sem_inst.adb @@ -14,7 +14,7 @@ -- package to its duplicated node. Links from instantiated declaration to -- the original declaration are also stored in that table. -with GNAT.Table; +with Tables; with Nodes; with Nodes_Meta; with Types; use Types; @@ -38,12 +38,11 @@ package body Sem_Inst is -- The origin of Nat1 is Nat and this is true forever. During -- instantiation, the instance of Nat is Nat1, so that the type of N will -- be set to Nat1. - package Origin_Table is new GNAT.Table + package Origin_Table is new Tables (Table_Component_Type => Iir, Table_Index_Type => Iir, Table_Low_Bound => 2, - Table_Initial => 1024, - Table_Increment => 100); + Table_Initial => 1024); procedure Expand_Origin_Table is @@ -109,12 +108,11 @@ package body Sem_Inst is -- have uninstantiated packages in instantiated packages. In that case, -- the slot in Origin_Table cannot be the origin and the instance at the -- same time. - package Prev_Instance_Table is new GNAT.Table + package Prev_Instance_Table is new Tables (Table_Component_Type => Instance_Entry_Type, Table_Index_Type => Instance_Index_Type, Table_Low_Bound => 1, - Table_Initial => 256, - Table_Increment => 100); + Table_Initial => 256); procedure Set_Instance (Orig : Iir; N : Iir) is |