aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth/synth-flags.ads
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2020-04-21 07:41:09 +0200
committerTristan Gingold <tgingold@free.fr>2020-04-21 07:41:09 +0200
commitfaef2db5bbe258f9ac4f9e357f8db878903ca528 (patch)
tree3ae80f284fd99de18ab6bbdd9a78751bbfdcc7bb /src/synth/synth-flags.ads
parent42c83fcb04b35e4dce3d1675d90f46fbfe144c4a (diff)
downloadghdl-faef2db5bbe258f9ac4f9e357f8db878903ca528.tar.gz
ghdl-faef2db5bbe258f9ac4f9e357f8db878903ca528.tar.bz2
ghdl-faef2db5bbe258f9ac4f9e357f8db878903ca528.zip
synth-stmts: add a limit to the number of iterations. Fix #1242
Diffstat (limited to 'src/synth/synth-flags.ads')
-rw-r--r--src/synth/synth-flags.ads3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/synth/synth-flags.ads b/src/synth/synth-flags.ads
index 4f9badd1d..3fc9303c5 100644
--- a/src/synth/synth-flags.ads
+++ b/src/synth/synth-flags.ads
@@ -57,4 +57,7 @@ package Synth.Flags is
-- True to start debugger on error.
Flag_Debug_Enable : Boolean := True;
+
+ -- Maximum number of iterations for (while)/loop. 0 means unlimited.
+ Flag_Max_Loop : Natural := 1000;
end Synth.Flags;