diff options
author | Tristan Gingold <gingold@adacore.com> | 2015-11-22 19:02:05 +0100 |
---|---|---|
committer | Tristan Gingold <gingold@adacore.com> | 2015-11-22 19:02:05 +0100 |
commit | 27a4852201a41e7d6f8098cc05b7b0949ebc6af4 (patch) | |
tree | 91e6effe2be75fedb2e39e2eb374975c5666f206 /src/ortho/mcode/ortho_jit.adb | |
parent | 92b0b82ea32982b94eb8bf19a0b498d92053fffe (diff) | |
download | ghdl-27a4852201a41e7d6f8098cc05b7b0949ebc6af4.tar.gz ghdl-27a4852201a41e7d6f8098cc05b7b0949ebc6af4.tar.bz2 ghdl-27a4852201a41e7d6f8098cc05b7b0949ebc6af4.zip |
backtrace: add support for windows and for llvm (via libbacktrace).
Diffstat (limited to 'src/ortho/mcode/ortho_jit.adb')
-rw-r--r-- | src/ortho/mcode/ortho_jit.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/ortho/mcode/ortho_jit.adb b/src/ortho/mcode/ortho_jit.adb index f01c8fafa..6f4fa3769 100644 --- a/src/ortho/mcode/ortho_jit.adb +++ b/src/ortho/mcode/ortho_jit.adb @@ -120,6 +120,7 @@ package body Ortho_Jit is use Ada.Text_IO; begin Put_Line (" -g Generate debugging informations"); + Put_Line (" -g0 Do not generate any debugging informations"); Put_Line (" --debug-be=X Set X internal debugging flags"); Put_Line (" --snap=FILE Write memory snapshot to FILE"); end Disp_Help; @@ -145,7 +146,7 @@ package body Ortho_Jit is if Sect = null then return (Null_Address, 0); else - Addr := Get_Section_Base (Sect); + Addr := Get_Section_Addr (Sect); Size := Get_Section_Size (Sect); return (Addr, Storage_Offset (Size)); end if; |