diff options
| author | Tristan Gingold <gingold@adacore.com> | 2015-11-18 21:45:45 +0100 |
|---|---|---|
| committer | Tristan Gingold <gingold@adacore.com> | 2015-11-19 05:47:59 +0100 |
| commit | 92b0b82ea32982b94eb8bf19a0b498d92053fffe (patch) | |
| tree | 70b04f103d145dc01d31870e50b5e6a654dc20e0 /src/ghdldrv/ghdlrun.adb | |
| parent | ff4bc5fb13a997a1d00596578b6d7deb5c0b0da6 (diff) | |
| download | ghdl-92b0b82ea32982b94eb8bf19a0b498d92053fffe.tar.gz ghdl-92b0b82ea32982b94eb8bf19a0b498d92053fffe.tar.bz2 ghdl-92b0b82ea32982b94eb8bf19a0b498d92053fffe.zip | |
Add symbolizer (for mcode).
Display a backtrace in case of failed check or assert failure.
Diffstat (limited to 'src/ghdldrv/ghdlrun.adb')
| -rw-r--r-- | src/ghdldrv/ghdlrun.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/ghdldrv/ghdlrun.adb b/src/ghdldrv/ghdlrun.adb index 51cc6b057..eac070278 100644 --- a/src/ghdldrv/ghdlrun.adb +++ b/src/ghdldrv/ghdlrun.adb @@ -591,6 +591,8 @@ package body Ghdlrun is Grtlink.Flag_String := Flags.Flag_String; + Grt.Errors.Symbolizer := Ortho_Jit.Symbolize'Access; + Elaborate_Proc := Conv (Ortho_Jit.Get_Address (Trans_Decls.Ghdl_Elaborate)); |