aboutsummaryrefslogtreecommitdiffstats
path: root/src/ghdldrv
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2019-05-19 19:19:26 +0200
committerTristan Gingold <tgingold@free.fr>2019-05-19 20:34:12 +0200
commit150116d2a2fe91f5d27b7fca1a19228ee5209c5a (patch)
tree9bca8da3757444366b91e583e2c201160f7c0bb4 /src/ghdldrv
parent9a183c7b6af43d741c77e419f33ed8e5d48001d1 (diff)
downloadghdl-150116d2a2fe91f5d27b7fca1a19228ee5209c5a.tar.gz
ghdl-150116d2a2fe91f5d27b7fca1a19228ee5209c5a.tar.bz2
ghdl-150116d2a2fe91f5d27b7fca1a19228ee5209c5a.zip
ghdldrv: use Dyn_Table instead of the GNAT package.
Diffstat (limited to 'src/ghdldrv')
-rw-r--r--src/ghdldrv/ghdldrv.adb14
1 files changed, 6 insertions, 8 deletions
diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb
index cd810647f..1907ccf10 100644
--- a/src/ghdldrv/ghdldrv.adb
+++ b/src/ghdldrv/ghdldrv.adb
@@ -16,11 +16,10 @@
-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-- 02111-1307, USA.
with Ada.Command_Line; use Ada.Command_Line;
-with Ada.Characters.Latin_1;
with GNAT.OS_Lib; use GNAT.OS_Lib;
-with GNAT.Dynamic_Tables;
with Tables;
+with Dyn_Tables;
with Simple_IO; use Simple_IO;
with Libraries;
with Name_Table; use Name_Table;
@@ -93,12 +92,11 @@ package body Ghdldrv is
-- Argument table for the tools.
-- Each table low bound is 1 so that the length of a table is equal to
-- the last bound.
- package Argument_Table_Pkg is new GNAT.Dynamic_Tables
+ package Argument_Table_Pkg is new Dyn_Tables
(Table_Component_Type => String_Access,
Table_Index_Type => Integer,
Table_Low_Bound => 1,
- Table_Initial => 4,
- Table_Increment => 100);
+ Table_Initial => 4);
use Argument_Table_Pkg;
-- Arguments for tools.
@@ -336,7 +334,6 @@ package body Ghdldrv is
is
use Interfaces.C_Streams;
use System;
- use Ada.Characters.Latin_1;
-- Replace the first '@' with the machine path.
function Substitute (Str : String) return String
@@ -378,7 +375,8 @@ package body Ghdldrv is
end loop;
-- Remove trailing NL.
- while L > 0 and then (Line (L) = LF or Line (L) = CR) loop
+ while L > 0 and then (Line (L) = ASCII.LF or Line (L) = ASCII.CR)
+ loop
L := L - 1;
end loop;
@@ -1761,7 +1759,7 @@ package body Ghdldrv is
-- for --gen-depends (Only_Depends) rules and phony targets are omittted
procedure Gen_Makefile (Args : Argument_List; Only_Depends : Boolean)
is
- HT : constant Character := Ada.Characters.Latin_1.HT;
+ HT : constant Character := ASCII.HT;
Files_List : Iir_List;
Files_It : List_Iterator;
File : Iir_Design_File;