aboutsummaryrefslogtreecommitdiffstats
path: root/src/ortho/debug
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2020-06-27 12:24:22 +0200
committerTristan Gingold <tgingold@free.fr>2020-06-27 12:24:22 +0200
commite2d751d624eb1319e654d9504b36d43eff65c8fb (patch)
treeb0655737828c8ec908a818571ebbfdeac8938444 /src/ortho/debug
parent40495b0b1928b3202aa0e1a500820ee3b7dbcf21 (diff)
downloadghdl-e2d751d624eb1319e654d9504b36d43eff65c8fb.tar.gz
ghdl-e2d751d624eb1319e654d9504b36d43eff65c8fb.tar.bz2
ghdl-e2d751d624eb1319e654d9504b36d43eff65c8fb.zip
ortho/debug: ignore -O option.
Diffstat (limited to 'src/ortho/debug')
-rw-r--r--src/ortho/debug/ortho_debug-main.adb3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/ortho/debug/ortho_debug-main.adb b/src/ortho/debug/ortho_debug-main.adb
index b470deaab..ee839415e 100644
--- a/src/ortho/debug/ortho_debug-main.adb
+++ b/src/ortho/debug/ortho_debug-main.adb
@@ -63,6 +63,9 @@ begin
elsif Argument (I)'Length >= 2 and then Argument (I)(2) = 'g' then
-- Skip -g[XXX] flags.
I := I + 1;
+ elsif Argument (I)'Length >= 2 and then Argument (I)(2) = 'O' then
+ -- Skip -O[XXX] flags.
+ I := I + 1;
elsif Argument (I) = "-o" and then I + 1 <= Argc then
-- TODO: write the output to the file ?
if Output /= NULL_Stream then