From 92b0b82ea32982b94eb8bf19a0b498d92053fffe Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Wed, 18 Nov 2015 21:45:45 +0100
Subject: Add symbolizer (for mcode).

Display a backtrace in case of failed check or assert failure.
---
 src/ortho/mcode/ortho_code_main.adb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/ortho/mcode/ortho_code_main.adb')

diff --git a/src/ortho/mcode/ortho_code_main.adb b/src/ortho/mcode/ortho_code_main.adb
index c515f58..b3a2e19 100644
--- a/src/ortho/mcode/ortho_code_main.adb
+++ b/src/ortho/mcode/ortho_code_main.adb
@@ -83,6 +83,9 @@ begin
             elsif Arg = "-g" then
                Flag_Debug := Debug_Dwarf;
                I := I + 1;
+            elsif Arg = "-g0" then
+               Flag_Debug := Debug_None;
+               I := I + 1;
             elsif Arg = "-p" or Arg = "-pg" then
                Flag_Profile := True;
                I := I + 1;
@@ -194,5 +197,3 @@ exception
       Set_Exit_Status (2);
       raise;
 end Ortho_Code_Main;
-
-
-- 
cgit