summaryrefslogtreecommitdiff
path: root/compiler/dwarfbase.pas
blob: ca8bb788da91287ffa4dce245fcca58c35985844 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
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.