diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-11-11 20:44:11 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-11-11 20:44:11 +0100 |
| commit | 202a2b793474a2c6db7d9cb991e1a47935ef52a5 (patch) | |
| tree | 20df66dd24d25c92c3bcd8cfe16c1ac7d7ec6a47 | |
| parent | 1c18a124dc6749ef95c89012bf45ea1f2cdfa0d7 (diff) | |
| download | ghdl-202a2b793474a2c6db7d9cb991e1a47935ef52a5.tar.gz ghdl-202a2b793474a2c6db7d9cb991e1a47935ef52a5.tar.bz2 ghdl-202a2b793474a2c6db7d9cb991e1a47935ef52a5.zip | |
ghdldrv: adjust after change in Dyn_Tables. Fix breakage.
| -rw-r--r-- | src/ghdldrv/ghdldrv.adb | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb index 8daaae6bd..dd2320daf 100644 --- a/src/ghdldrv/ghdldrv.adb +++ b/src/ghdldrv/ghdldrv.adb @@ -95,8 +95,7 @@ package body Ghdldrv is 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_Low_Bound => 1); use Argument_Table_Pkg; -- Arguments for tools. @@ -592,10 +591,10 @@ package body Ghdldrv is Output_File := null; -- Initialize argument tables. - Init (Compiler_Args); - Init (Postproc_Args); - Init (Assembler_Args); - Init (Linker_Args); + Init (Compiler_Args, 4); + Init (Postproc_Args, 4); + Init (Assembler_Args, 4); + Init (Linker_Args, 4); Init (Command_Lib (Cmd)); end Init; |