diff options
| author | Tristan Gingold | 2016-01-27 04:44:21 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2016-01-27 18:49:24 +0100 |
| commit | 2eb85a0a21effc2e7ad957216178055cb98a2300 (patch) | |
| tree | 908614ba5cbff935283b3bf5c9c1599dd9af748c /src/vhdl/simulate/debugger.adb | |
| parent | f5b237b7a254f55b9b4f9e4cc6b47898237f91b5 (diff) | |
| download | ghdl-2eb85a0a21effc2e7ad957216178055cb98a2300.tar.gz ghdl-2eb85a0a21effc2e7ad957216178055cb98a2300.tar.bz2 ghdl-2eb85a0a21effc2e7ad957216178055cb98a2300.zip | |
simul: use Tables instead of GNAT.Table
Diffstat (limited to 'src/vhdl/simulate/debugger.adb')
| -rw-r--r-- | src/vhdl/simulate/debugger.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/vhdl/simulate/debugger.adb b/src/vhdl/simulate/debugger.adb index 209bffe..e690aed 100644 --- a/src/vhdl/simulate/debugger.adb +++ b/src/vhdl/simulate/debugger.adb @@ -18,7 +18,7 @@ with System; with Ada.Text_IO; use Ada.Text_IO; -with GNAT.Table; +with Tables; with Types; use Types; with Iir_Values; use Iir_Values; with Name_Table; @@ -91,12 +91,11 @@ package body Debugger is Stmt : Iir; end record; - package Breakpoints is new GNAT.Table + package Breakpoints is new Tables (Table_Index_Type => Natural, Table_Component_Type => Breakpoint_Entry, Table_Low_Bound => 1, - Table_Initial => 16, - Table_Increment => 100); + Table_Initial => 16); -- Current execution state, or reason to stop execution (set by the -- last debugger command). |