diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-12-18 18:32:43 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-12-18 18:32:43 +0100 |
| commit | 2d3765bc9176f59f88b5369c3a508f84e25f4b5f (patch) | |
| tree | 24e56b35076e8cb585e86180a0bd6d5ef6fdf664 /src/lists.adb | |
| parent | 680ea916dee2f5aadeeb5f507ea918598803aca8 (diff) | |
| download | ghdl-2d3765bc9176f59f88b5369c3a508f84e25f4b5f.tar.gz ghdl-2d3765bc9176f59f88b5369c3a508f84e25f4b5f.tar.bz2 ghdl-2d3765bc9176f59f88b5369c3a508f84e25f4b5f.zip | |
lists: delte Remove_Nth_Element (was unused).
Diffstat (limited to 'src/lists.adb')
| -rw-r--r-- | src/lists.adb | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/src/lists.adb b/src/lists.adb index ff0702fbf..395409d93 100644 --- a/src/lists.adb +++ b/src/lists.adb @@ -162,19 +162,6 @@ package body Lists is Append_Element (List, El); end Add_Element; - procedure Remove_Nth_Element (List: List_Type; N: Natural) - is - Nbr : constant Natural := Get_Nbr_Elements (List); - begin - if N >= Nbr then - raise Program_Error; - end if; - for I in N .. Nbr - 2 loop - Listt.Table (List).Els (I) := Listt.Table (List).Els (I + 1); - end loop; - Listt.Table (List).Nbr := Nbr - 1; - end Remove_Nth_Element; - procedure Set_Nbr_Elements (List: List_Type; N: Natural) is begin if N > Get_Nbr_Elements (List) then |