diff options
Diffstat (limited to 'src/ortho/llvm6/ortho_code_main.adb')
-rw-r--r-- | src/ortho/llvm6/ortho_code_main.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/ortho/llvm6/ortho_code_main.adb b/src/ortho/llvm6/ortho_code_main.adb index 11327400a..5dbc6b636 100644 --- a/src/ortho/llvm6/ortho_code_main.adb +++ b/src/ortho/llvm6/ortho_code_main.adb @@ -88,9 +88,11 @@ begin elsif Arg = "-glines" or else Arg = "-gline-tables-only" then - null; + Set_Debug_Level (1); elsif Arg = "-g" then - null; + Set_Debug_Level (2); + elsif Arg = "-g0" then + Set_Debug_Level (0); else -- This is really an argument. declare |