From 42f4c411641c04da2b8f08f9029e17bfd37206e4 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 10 Sep 2015 20:59:08 +0200
Subject: Reimplement table package (used instead of GNAT.Table).

---
 src/libraries.adb | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src/libraries.adb')

diff --git a/src/libraries.adb b/src/libraries.adb
index 1b2945f8a..d6de2b51c 100644
--- a/src/libraries.adb
+++ b/src/libraries.adb
@@ -16,7 +16,7 @@
 --  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 --  02111-1307, USA.
 with Ada.Text_IO; use Ada.Text_IO;
-with GNAT.Table;
+with Tables;
 with GNAT.OS_Lib;
 with Interfaces.C_Streams;
 with System;
@@ -41,12 +41,11 @@ package body Libraries is
    Implicit_Location: Location_Type;
 
    --  Table of library pathes.
-   package Pathes is new GNAT.Table
+   package Pathes is new Tables
      (Table_Index_Type => Integer,
       Table_Component_Type => Name_Id,
       Table_Low_Bound => 1,
-      Table_Initial => 4,
-      Table_Increment => 100);
+      Table_Initial => 4);
 
    --  Report an error message.
    procedure Error_Lib_Msg (Msg : String) is
-- 
cgit v1.2.3