From 92b0b82ea32982b94eb8bf19a0b498d92053fffe Mon Sep 17 00:00:00 2001
From: Tristan Gingold <gingold@adacore.com>
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-x86-emits.adb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/ortho/mcode/ortho_code-x86-emits.adb')

diff --git a/src/ortho/mcode/ortho_code-x86-emits.adb b/src/ortho/mcode/ortho_code-x86-emits.adb
index 412080150..c4cfee930 100644
--- a/src/ortho/mcode/ortho_code-x86-emits.adb
+++ b/src/ortho/mcode/ortho_code-x86-emits.adb
@@ -2356,7 +2356,7 @@ package body Ortho_Code.X86.Emits is
             null;
 
          when OE_Line =>
-            if Flag_Debug = Debug_Dwarf then
+            if Flag_Debug /= Debug_None then
                Dwarf.Set_Line_Stmt (Get_Expr_Line_Number (Stmt));
                Set_Current_Section (Sect_Text);
             end if;
@@ -2516,7 +2516,7 @@ package body Ortho_Code.X86.Emits is
       Gen_1 (Opc_Leave);
       Gen_1 (Opc_Ret);
 
-      if Flag_Debug = Debug_Dwarf then
+      if Flag_Debug /= Debug_None then
          Set_Body_Info (Subprg.D_Body, Int32 (Get_Current_Pc - Subprg_Pc));
       end if;
    end Emit_Epilogue;
@@ -2704,7 +2704,7 @@ package body Ortho_Code.X86.Emits is
          Debug_Hex := True;
       end if;
 
-      if Flag_Debug = Debug_Dwarf then
+      if Flag_Debug /= Debug_None then
          Dwarf.Init;
          Set_Current_Section (Sect_Text);
       end if;
@@ -2714,7 +2714,7 @@ package body Ortho_Code.X86.Emits is
    is
       use Ortho_Code.Flags;
    begin
-      if Flag_Debug = Debug_Dwarf then
+      if Flag_Debug /= Debug_None then
          Set_Current_Section (Sect_Text);
          Dwarf.Finish;
       end if;
-- 
cgit v1.2.3