diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-06-27 12:24:22 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-06-27 12:24:22 +0200 |
| commit | e2d751d624eb1319e654d9504b36d43eff65c8fb (patch) | |
| tree | b0655737828c8ec908a818571ebbfdeac8938444 /src/ortho | |
| parent | 40495b0b1928b3202aa0e1a500820ee3b7dbcf21 (diff) | |
| download | ghdl-e2d751d624eb1319e654d9504b36d43eff65c8fb.tar.gz ghdl-e2d751d624eb1319e654d9504b36d43eff65c8fb.tar.bz2 ghdl-e2d751d624eb1319e654d9504b36d43eff65c8fb.zip | |
ortho/debug: ignore -O option.
Diffstat (limited to 'src/ortho')
| -rw-r--r-- | src/ortho/debug/ortho_debug-main.adb | 3 |
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 |