|
@@ -0,0 +1,90 @@
|
|
|
|
|
+{
|
|
|
|
|
+ Copyright (c) 2003-2019 by Peter Vreman and Florian Klaempfl
|
|
|
|
|
+
|
|
|
|
|
+ This units contains special support for DWARF debug info
|
|
|
|
|
+
|
|
|
|
|
+ This program is free software; you can redistribute it and/or modify
|
|
|
|
|
+ it under the terms of the GNU General Public License as published by
|
|
|
|
|
+ the Free Software Foundation; either version 2 of the License, or
|
|
|
|
|
+ (at your option) any later version.
|
|
|
|
|
+
|
|
|
|
|
+ This program is distributed in the hope that it will be useful,
|
|
|
|
|
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
+ GNU General Public License for more details.
|
|
|
|
|
+
|
|
|
|
|
+ You should have received a copy of the GNU General Public License
|
|
|
|
|
+ along with this program; if not, write to the Free Software
|
|
|
|
|
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
|
+
|
|
|
|
|
+ ****************************************************************************
|
|
|
|
|
+}
|
|
|
|
|
+unit dwarfbase;
|
|
|
|
|
+
|
|
|
|
|
+{$i fpcdefs.inc}
|
|
|
|
|
+
|
|
|
|
|
+ interface
|
|
|
|
|
+
|
|
|
|
|
+ const
|
|
|
|
|
+ { Call frame information }
|
|
|
|
|
+ DW_CFA_set_loc = $01;
|
|
|
|
|
+ DW_CFA_advance_loc1 = $02;
|
|
|
|
|
+ DW_CFA_advance_loc2 = $03;
|
|
|
|
|
+ DW_CFA_advance_loc4 = $04;
|
|
|
|
|
+ DW_CFA_offset_extended = $05;
|
|
|
|
|
+ DW_CFA_restore_extended = $06;
|
|
|
|
|
+ DW_CFA_undefined = $07;
|
|
|
|
|
+ DW_CFA_def_cfa = $0c;
|
|
|
|
|
+ DW_CFA_def_cfa_register = $0d;
|
|
|
|
|
+ DW_CFA_def_cfa_offset = $0e;
|
|
|
|
|
+ { Own additions }
|
|
|
|
|
+ DW_CFA_start_frame = $f0;
|
|
|
|
|
+ DW_CFA_end_frame = $f1;
|
|
|
|
|
+ { pseudo operation to set the LSDALable, must
|
|
|
|
|
+ be set before DW_CFA_start_frame is executed }
|
|
|
|
|
+ DW_Set_LSDALabel = $f2;
|
|
|
|
|
+
|
|
|
|
|
+ DW_LNS_copy = $01;
|
|
|
|
|
+ DW_LNS_advance_pc = $02;
|
|
|
|
|
+ DW_LNS_advance_line = $03;
|
|
|
|
|
+ DW_LNS_set_file = $04;
|
|
|
|
|
+ DW_LNS_set_column = $05;
|
|
|
|
|
+ DW_LNS_negate_stmt = $06;
|
|
|
|
|
+ DW_LNS_set_basic_block = $07;
|
|
|
|
|
+ DW_LNS_const_add_pc = $08;
|
|
|
|
|
+
|
|
|
|
|
+ DW_LNS_fixed_advance_pc = $09;
|
|
|
|
|
+ DW_LNS_set_prologue_end = $0a;
|
|
|
|
|
+ DW_LNS_set_epilogue_begin = $0b;
|
|
|
|
|
+ DW_LNS_set_isa = $0c;
|
|
|
|
|
+
|
|
|
|
|
+ DW_LNE_end_sequence = $01;
|
|
|
|
|
+ DW_LNE_set_address = $02;
|
|
|
|
|
+ DW_LNE_define_file = $03;
|
|
|
|
|
+ DW_LNE_lo_user = $80;
|
|
|
|
|
+ DW_LNE_hi_user = $ff;
|
|
|
|
|
+
|
|
|
|
|
+ DW_EH_PE_absptr = $00;
|
|
|
|
|
+ DW_EH_PE_uleb128 = $01;
|
|
|
|
|
+ DW_EH_PE_udata2 = $02;
|
|
|
|
|
+ DW_EH_PE_udata4 = $03;
|
|
|
|
|
+ DW_EH_PE_udata8 = $04;
|
|
|
|
|
+ DW_EH_PE_sleb128 = $09;
|
|
|
|
|
+ DW_EH_PE_sdata2 = $0A;
|
|
|
|
|
+ DW_EH_PE_sdata4 = $0B;
|
|
|
|
|
+ DW_EH_PE_sdata8 = $0C;
|
|
|
|
|
+
|
|
|
|
|
+ DW_EH_PE_pcrel = $10;
|
|
|
|
|
+ DW_EH_PE_textrel = $20;
|
|
|
|
|
+ DW_EH_PE_datarel = $30;
|
|
|
|
|
+ DW_EH_PE_funcrel = $40;
|
|
|
|
|
+ DW_EH_PE_aligned = $50;
|
|
|
|
|
+ DW_EH_PE_indirect = $80;
|
|
|
|
|
+
|
|
|
|
|
+ DW_EH_PE_omit = $ff;
|
|
|
|
|
+
|
|
|
|
|
+ implementation
|
|
|
|
|
+
|
|
|
|
|
+end.
|
|
|
|
|
+
|
|
|
|
|
+
|
florian