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/ortho/mcode/ortho_code-dwarf.ads | |
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/ortho/mcode/ortho_code-dwarf.ads')
-rw-r--r-- | src/ortho/mcode/ortho_code-dwarf.ads | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/ortho/mcode/ortho_code-dwarf.ads b/src/ortho/mcode/ortho_code-dwarf.ads index c120bcfe1..095a80da6 100644 --- a/src/ortho/mcode/ortho_code-dwarf.ads +++ b/src/ortho/mcode/ortho_code-dwarf.ads @@ -15,6 +15,8 @@ -- along with GCC; see the file COPYING. If not, write to the Free -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. +with Binary_File; use Binary_File; + package Ortho_Code.Dwarf is procedure Init; procedure Finish; @@ -33,6 +35,12 @@ package Ortho_Code.Dwarf is procedure Mark (M : out Mark_Type); procedure Release (M : Mark_Type); + -- Sections created by dwarf. + Line_Sect : Section_Acc; + Abbrev_Sect : Section_Acc; + Info_Sect : Section_Acc; + Aranges_Sect : Section_Acc; + private type Mark_Type is record Last_Decl : O_Dnode; |