diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-12-14 18:19:42 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-12-14 18:19:42 +0100 |
commit | c661e58db492f14b22e2ab59e58a8abde6e74c10 (patch) | |
tree | f3145768f859db5f5468865e05fc0d3e2772bd56 /src/ortho/mcode/ortho_code-dwarf.ads | |
parent | 8d75953b65e81e404ea193b8994c638b5a8c470d (diff) | |
download | ghdl-c661e58db492f14b22e2ab59e58a8abde6e74c10.tar.gz ghdl-c661e58db492f14b22e2ab59e58a8abde6e74c10.tar.bz2 ghdl-c661e58db492f14b22e2ab59e58a8abde6e74c10.zip |
mcode: generate and register .eh_frame on linux x86/64
This is needed to generate backtraces.
Diffstat (limited to 'src/ortho/mcode/ortho_code-dwarf.ads')
-rw-r--r-- | src/ortho/mcode/ortho_code-dwarf.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/ortho/mcode/ortho_code-dwarf.ads b/src/ortho/mcode/ortho_code-dwarf.ads index 41803be84..86d5689c4 100644 --- a/src/ortho/mcode/ortho_code-dwarf.ads +++ b/src/ortho/mcode/ortho_code-dwarf.ads @@ -13,6 +13,8 @@ -- -- You should have received a copy of the GNU General Public License -- along with this program. If not, see <gnu.org/licenses>. +with Interfaces; use Interfaces; + with Binary_File; use Binary_File; package Ortho_Code.Dwarf is @@ -29,6 +31,10 @@ package Ortho_Code.Dwarf is procedure Set_Line_Stmt (Line : Int32); procedure Set_Filename (Dir : String; File : String); + -- Low-level procedure (also used to generate .eh_frame) + procedure Gen_Uleb128 (V : Unsigned_32); + procedure Gen_Sleb128 (V : Int32); + type Mark_Type is limited private; procedure Mark (M : out Mark_Type); procedure Release (M : Mark_Type); |