diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-11-01 19:50:19 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-11-01 21:11:10 +0100 |
commit | 86fd1ab3079b50c5b7234db2cedf3d1e8c0f081b (patch) | |
tree | e34bdcf719bdc08cb22a65e04ad67b57b0c06879 /src/synth/synth-debugger.ads | |
parent | 74043fa1aa40c375c7f299e6b5f1b6ea9150580e (diff) | |
download | ghdl-86fd1ab3079b50c5b7234db2cedf3d1e8c0f081b.tar.gz ghdl-86fd1ab3079b50c5b7234db2cedf3d1e8c0f081b.tar.bz2 ghdl-86fd1ab3079b50c5b7234db2cedf3d1e8c0f081b.zip |
synth: do full elaboration before synthesis
Diffstat (limited to 'src/synth/synth-debugger.ads')
-rw-r--r-- | src/synth/synth-debugger.ads | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/src/synth/synth-debugger.ads b/src/synth/synth-debugger.ads deleted file mode 100644 index 329bab3e2..000000000 --- a/src/synth/synth-debugger.ads +++ /dev/null @@ -1,37 +0,0 @@ --- Debugging during synthesis. --- Copyright (C) 2019 Tristan Gingold --- --- This file is part of GHDL. --- --- This program is free software: you can redistribute it and/or modify --- it under the terms of the GNU General Public License as published by --- the Free Software Foundation, either version 2 of the License, or --- (at your option) any later version. --- --- This program is distributed in the hope that it will be useful, --- but WITHOUT ANY WARRANTY; without even the implied warranty of --- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --- GNU General Public License for more details. --- --- You should have received a copy of the GNU General Public License --- along with this program. If not, see <gnu.org/licenses>. - -with Vhdl.Nodes; use Vhdl.Nodes; - -with Synth.Vhdl_Context; use Synth.Vhdl_Context; - -package Synth.Debugger is - -- If true, debugging is enabled: - -- * call Debug_Break() before executing the next sequential statement - -- * call Debug_Leave when a frame is destroyed. - Flag_Need_Debug : Boolean := False; - - procedure Debug_Init (Top : Node); - procedure Debug_Break (Inst : Synth_Instance_Acc; Stmt : Node); - - procedure Debug_Leave (Inst : Synth_Instance_Acc); - - -- To be called in case of execution error, like: - -- * index out of bounds. - procedure Debug_Error (Inst : Synth_Instance_Acc; Expr : Node); -end Synth.Debugger; |