2001-05-12 08:03:20 +02:00
|
|
|
|
/* Exception handling and frame unwind runtime interface routines.
|
|
|
|
|
Copyright (C) 2001 Free Software Foundation, Inc.
|
|
|
|
|
|
|
|
|
|
This file is part of GNU CC.
|
|
|
|
|
|
|
|
|
|
GNU CC 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, or (at your option)
|
|
|
|
|
any later version.
|
|
|
|
|
|
|
|
|
|
GNU CC 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 GNU CC; see the file COPYING. If not, write to
|
|
|
|
|
the Free Software Foundation, 59 Temple Place - Suite 330,
|
|
|
|
|
Boston, MA 02111-1307, USA. */
|
|
|
|
|
|
|
|
|
|
/* @@@ Really this should be out of line, but this also causes link
|
|
|
|
|
compatibility problems with the base ABI. This is slightly better
|
|
|
|
|
than duplicating code, however. */
|
|
|
|
|
|
|
|
|
|
/* Pointer encodings, from dwarf2.h. */
|
|
|
|
|
#define DW_EH_PE_absptr 0x00
|
|
|
|
|
#define DW_EH_PE_omit 0xff
|
|
|
|
|
|
|
|
|
|
#define DW_EH_PE_uleb128 0x01
|
|
|
|
|
#define DW_EH_PE_udata2 0x02
|
|
|
|
|
#define DW_EH_PE_udata4 0x03
|
|
|
|
|
#define DW_EH_PE_udata8 0x04
|
|
|
|
|
#define DW_EH_PE_sleb128 0x09
|
|
|
|
|
#define DW_EH_PE_sdata2 0x0A
|
|
|
|
|
#define DW_EH_PE_sdata4 0x0B
|
|
|
|
|
#define DW_EH_PE_sdata8 0x0C
|
|
|
|
|
#define DW_EH_PE_signed 0x08
|
|
|
|
|
|
|
|
|
|
#define DW_EH_PE_pcrel 0x10
|
|
|
|
|
#define DW_EH_PE_textrel 0x20
|
|
|
|
|
#define DW_EH_PE_datarel 0x30
|
|
|
|
|
#define DW_EH_PE_funcrel 0x40
|
2001-06-06 03:57:49 +02:00
|
|
|
|
#define DW_EH_PE_aligned 0x50
|
2001-05-12 08:03:20 +02:00
|
|
|
|
|
|
|
|
|
#define DW_EH_PE_indirect 0x80
|
2001-05-12 20:42:45 +02:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Given an encoding, return the number of bytes the format occupies.
|
2001-06-06 03:57:49 +02:00
|
|
|
|
This is only defined for fixed-size encodings, and so does not
|
2001-05-12 20:42:45 +02:00
|
|
|
|
include leb128. */
|
2001-05-12 08:03:20 +02:00
|
|
|
|
|
|
|
|
|
static unsigned int
|
|
|
|
|
size_of_encoded_value (unsigned char encoding)
|
|
|
|
|
{
|
|
|
|
|
if (encoding == DW_EH_PE_omit)
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
switch (encoding & 0x07)
|
|
|
|
|
{
|
|
|
|
|
case DW_EH_PE_absptr:
|
|
|
|
|
return sizeof (void *);
|
|
|
|
|
case DW_EH_PE_udata2:
|
|
|
|
|
return 2;
|
|
|
|
|
case DW_EH_PE_udata4:
|
|
|
|
|
return 4;
|
|
|
|
|
case DW_EH_PE_udata8:
|
|
|
|
|
return 8;
|
|
|
|
|
}
|
|
|
|
|
abort ();
|
|
|
|
|
}
|
|
|
|
|
|
2001-05-12 20:42:45 +02:00
|
|
|
|
/* Given an encoding and an _Unwind_Context, return the base to which
|
2001-06-06 03:57:49 +02:00
|
|
|
|
the encoding is relative. This base may then be passed to
|
2001-05-12 20:42:45 +02:00
|
|
|
|
read_encoded_value_with_base for use when the _Unwind_Context is
|
|
|
|
|
not available. */
|
|
|
|
|
|
2001-05-12 08:03:20 +02:00
|
|
|
|
static _Unwind_Ptr
|
except.c (eh_data_format_name): Move to ...
* except.c (eh_data_format_name): Move to ...
* dwarf2asm.c: ... here. Use designated initializers if available.
(dw2_asm_output_encoded_addr_rtx): Accept varargs commentary.
* dwarf2asm.h: Update declarations.
* dwarf2out.c (output_cfi) [DW_CFA_set_loc]: If for_eh, mind
ASM_PREFERRED_EH_DATA_FORMAT.
(output_call_frame_info): Likewise. Use 'L' augmentation for
the LSDA encoding.
* unwind-dw2-fde.h (struct fde_vector): New.
(struct old_object): Rename from struct object.
(struct object): New.
(__register_frame_info_bases): Declare.
(__register_frame_info_table_bases): Declare.
(struct dwarf_fde): Remove explicit pc_begin/pc_range members.
* unwind-dw2-fde.c (objects): Remove.
(unseen_objects, seen_objects): New.
(__register_frame_info_bases): New.
(__register_frame_info): Use it.
(__register_frame_info_table_bases): New.
(__register_frame_info_table): Use it.
(__deregister_frame_info): Rewrite for changed object struct.
(base_from_object, get_cie_encoding, get_fde_encoding): New.
(fde_unencoded_compare): Rename from fde_compare; uninline.
(fde_single_encoding_compare, fde_mixed_encoding_compare): New.
(start_fde_sort): Adjust for new definition of fde_vector.
(fde_insert): Likewise.
(end_fde_sort): Likewise. Select comparison function based
on properties of the object.
(fde_split): Take object and fde_compare_t arguments.
(frame_heapsort, fde_merge): Likewise.
(classify_object_over_fdes): Rename from count_fdes. Handle
encoded pointers. Collect encoding, mixed_encoding, and pc_begin
for the object.
(add_fdes): Handle encoded pointers.
(init_object): Rename from frame_init. Update for new struct object.
(linear_search_fdes): Rename from search_fdes. Handle encoded
pointers.
(binary_search_unencoded_fdes): Broken out from _Unwind_Find_FDE.
(binary_search_single_encoding_fdes): New.
(binary_search_mixed_encoding_fdes): New.
(search_object): New.
(_Unwind_Find_FDE): Update for new struct object. Fill in
the dwarf_eh_bases.
* unwind-dw2.c: Include unwind-pe.h. Constify all pointers
iterating over EH data.
(_Unwind_FrameState): Remove saw_lsda, addr_encoding. Add
fde_encoding, lsda_encoding.
(read_uleb128, read_sleb128): Remove.
(read_encoded_pointer): Remove. All callers use read_encoded_value.
(extract_cie_info): Set lsda_encoding from 'L' augmentation.
(uw_frame_state_for): Don't set bases.func. Handle encoded fde
pointers.
* unwind-pe.h: Add "struct" to _Unwind_Context references.
From-SVN: r42176
2001-05-17 00:42:36 +02:00
|
|
|
|
base_of_encoded_value (unsigned char encoding, struct _Unwind_Context *context)
|
2001-05-12 08:03:20 +02:00
|
|
|
|
{
|
|
|
|
|
if (encoding == DW_EH_PE_omit)
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
switch (encoding & 0x70)
|
|
|
|
|
{
|
|
|
|
|
case DW_EH_PE_absptr:
|
|
|
|
|
case DW_EH_PE_pcrel:
|
2001-06-06 03:57:49 +02:00
|
|
|
|
case DW_EH_PE_aligned:
|
2001-05-12 08:03:20 +02:00
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
case DW_EH_PE_textrel:
|
|
|
|
|
return _Unwind_GetTextRelBase (context);
|
|
|
|
|
case DW_EH_PE_datarel:
|
|
|
|
|
return _Unwind_GetDataRelBase (context);
|
|
|
|
|
case DW_EH_PE_funcrel:
|
|
|
|
|
return _Unwind_GetRegionStart (context);
|
|
|
|
|
}
|
|
|
|
|
abort ();
|
|
|
|
|
}
|
|
|
|
|
|
2001-05-12 20:42:45 +02:00
|
|
|
|
/* Load an encoded value from memory at P. The value is returned in VAL;
|
|
|
|
|
The function returns P incremented past the value. BASE is as given
|
|
|
|
|
by base_of_encoded_value for this encoding in the appropriate context. */
|
|
|
|
|
|
2001-05-12 08:03:20 +02:00
|
|
|
|
static const unsigned char *
|
|
|
|
|
read_encoded_value_with_base (unsigned char encoding, _Unwind_Ptr base,
|
|
|
|
|
const unsigned char *p, _Unwind_Ptr *val)
|
|
|
|
|
{
|
|
|
|
|
union unaligned
|
|
|
|
|
{
|
|
|
|
|
void *ptr;
|
|
|
|
|
unsigned u2 __attribute__ ((mode (HI)));
|
|
|
|
|
unsigned u4 __attribute__ ((mode (SI)));
|
|
|
|
|
unsigned u8 __attribute__ ((mode (DI)));
|
|
|
|
|
signed s2 __attribute__ ((mode (HI)));
|
|
|
|
|
signed s4 __attribute__ ((mode (SI)));
|
|
|
|
|
signed s8 __attribute__ ((mode (DI)));
|
|
|
|
|
} __attribute__((__packed__));
|
|
|
|
|
|
|
|
|
|
union unaligned *u = (union unaligned *) p;
|
|
|
|
|
_Unwind_Ptr result;
|
|
|
|
|
|
2001-06-06 03:57:49 +02:00
|
|
|
|
if (encoding == DW_EH_PE_aligned)
|
2001-05-12 08:03:20 +02:00
|
|
|
|
{
|
2001-06-06 03:57:49 +02:00
|
|
|
|
_Unwind_Ptr a = (_Unwind_Ptr)p;
|
|
|
|
|
a = (a + sizeof (void *) - 1) & - sizeof(void *);
|
|
|
|
|
result = *(_Unwind_Ptr *) a;
|
|
|
|
|
p = (const unsigned char *)(a + sizeof (void *));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
switch (encoding & 0x0f)
|
|
|
|
|
{
|
|
|
|
|
case DW_EH_PE_absptr:
|
|
|
|
|
result = (_Unwind_Ptr) u->ptr;
|
|
|
|
|
p += sizeof (void *);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case DW_EH_PE_uleb128:
|
2001-05-12 08:03:20 +02:00
|
|
|
|
{
|
2001-06-06 03:57:49 +02:00
|
|
|
|
unsigned int shift = 0;
|
|
|
|
|
unsigned char byte;
|
|
|
|
|
|
|
|
|
|
result = 0;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
byte = *p++;
|
|
|
|
|
result |= (_Unwind_Ptr)(byte & 0x7f) << shift;
|
|
|
|
|
shift += 7;
|
|
|
|
|
}
|
|
|
|
|
while (byte & 0x80);
|
2001-05-12 08:03:20 +02:00
|
|
|
|
}
|
2001-06-06 03:57:49 +02:00
|
|
|
|
break;
|
2001-05-12 08:03:20 +02:00
|
|
|
|
|
2001-06-06 03:57:49 +02:00
|
|
|
|
case DW_EH_PE_sleb128:
|
2001-05-12 08:03:20 +02:00
|
|
|
|
{
|
2001-06-06 03:57:49 +02:00
|
|
|
|
unsigned int shift = 0;
|
|
|
|
|
unsigned char byte;
|
|
|
|
|
|
|
|
|
|
result = 0;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
byte = *p++;
|
|
|
|
|
result |= (_Unwind_Ptr)(byte & 0x7f) << shift;
|
|
|
|
|
shift += 7;
|
|
|
|
|
}
|
|
|
|
|
while (byte & 0x80);
|
|
|
|
|
|
|
|
|
|
if (shift < 8 * sizeof(result) && (byte & 0x40) != 0)
|
|
|
|
|
result |= -(1L << shift);
|
2001-05-12 08:03:20 +02:00
|
|
|
|
}
|
2001-06-06 03:57:49 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case DW_EH_PE_udata2:
|
|
|
|
|
result = u->u2;
|
|
|
|
|
p += 2;
|
|
|
|
|
break;
|
|
|
|
|
case DW_EH_PE_udata4:
|
|
|
|
|
result = u->u4;
|
|
|
|
|
p += 4;
|
|
|
|
|
break;
|
|
|
|
|
case DW_EH_PE_udata8:
|
|
|
|
|
result = u->u8;
|
|
|
|
|
p += 8;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case DW_EH_PE_sdata2:
|
|
|
|
|
result = u->s2;
|
|
|
|
|
p += 2;
|
|
|
|
|
break;
|
|
|
|
|
case DW_EH_PE_sdata4:
|
|
|
|
|
result = u->s4;
|
|
|
|
|
p += 4;
|
|
|
|
|
break;
|
|
|
|
|
case DW_EH_PE_sdata8:
|
|
|
|
|
result = u->s8;
|
|
|
|
|
p += 8;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
abort ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (result != 0)
|
|
|
|
|
{
|
|
|
|
|
result += ((encoding & 0x70) == DW_EH_PE_pcrel
|
|
|
|
|
? (_Unwind_Ptr)u : base);
|
|
|
|
|
if (encoding & DW_EH_PE_indirect)
|
|
|
|
|
result = *(_Unwind_Ptr *)result;
|
|
|
|
|
}
|
2001-05-12 08:03:20 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
*val = result;
|
|
|
|
|
return p;
|
|
|
|
|
}
|
|
|
|
|
|
2001-05-12 20:42:45 +02:00
|
|
|
|
/* Like read_encoded_value_with_base, but get the base from the context
|
|
|
|
|
rather than providing it directly. */
|
|
|
|
|
|
2001-05-12 08:03:20 +02:00
|
|
|
|
static inline const unsigned char *
|
except.c (eh_data_format_name): Move to ...
* except.c (eh_data_format_name): Move to ...
* dwarf2asm.c: ... here. Use designated initializers if available.
(dw2_asm_output_encoded_addr_rtx): Accept varargs commentary.
* dwarf2asm.h: Update declarations.
* dwarf2out.c (output_cfi) [DW_CFA_set_loc]: If for_eh, mind
ASM_PREFERRED_EH_DATA_FORMAT.
(output_call_frame_info): Likewise. Use 'L' augmentation for
the LSDA encoding.
* unwind-dw2-fde.h (struct fde_vector): New.
(struct old_object): Rename from struct object.
(struct object): New.
(__register_frame_info_bases): Declare.
(__register_frame_info_table_bases): Declare.
(struct dwarf_fde): Remove explicit pc_begin/pc_range members.
* unwind-dw2-fde.c (objects): Remove.
(unseen_objects, seen_objects): New.
(__register_frame_info_bases): New.
(__register_frame_info): Use it.
(__register_frame_info_table_bases): New.
(__register_frame_info_table): Use it.
(__deregister_frame_info): Rewrite for changed object struct.
(base_from_object, get_cie_encoding, get_fde_encoding): New.
(fde_unencoded_compare): Rename from fde_compare; uninline.
(fde_single_encoding_compare, fde_mixed_encoding_compare): New.
(start_fde_sort): Adjust for new definition of fde_vector.
(fde_insert): Likewise.
(end_fde_sort): Likewise. Select comparison function based
on properties of the object.
(fde_split): Take object and fde_compare_t arguments.
(frame_heapsort, fde_merge): Likewise.
(classify_object_over_fdes): Rename from count_fdes. Handle
encoded pointers. Collect encoding, mixed_encoding, and pc_begin
for the object.
(add_fdes): Handle encoded pointers.
(init_object): Rename from frame_init. Update for new struct object.
(linear_search_fdes): Rename from search_fdes. Handle encoded
pointers.
(binary_search_unencoded_fdes): Broken out from _Unwind_Find_FDE.
(binary_search_single_encoding_fdes): New.
(binary_search_mixed_encoding_fdes): New.
(search_object): New.
(_Unwind_Find_FDE): Update for new struct object. Fill in
the dwarf_eh_bases.
* unwind-dw2.c: Include unwind-pe.h. Constify all pointers
iterating over EH data.
(_Unwind_FrameState): Remove saw_lsda, addr_encoding. Add
fde_encoding, lsda_encoding.
(read_uleb128, read_sleb128): Remove.
(read_encoded_pointer): Remove. All callers use read_encoded_value.
(extract_cie_info): Set lsda_encoding from 'L' augmentation.
(uw_frame_state_for): Don't set bases.func. Handle encoded fde
pointers.
* unwind-pe.h: Add "struct" to _Unwind_Context references.
From-SVN: r42176
2001-05-17 00:42:36 +02:00
|
|
|
|
read_encoded_value (struct _Unwind_Context *context, unsigned char encoding,
|
2001-05-12 08:03:20 +02:00
|
|
|
|
const unsigned char *p, _Unwind_Ptr *val)
|
|
|
|
|
{
|
2001-06-06 03:57:49 +02:00
|
|
|
|
return read_encoded_value_with_base (encoding,
|
2001-05-12 08:03:20 +02:00
|
|
|
|
base_of_encoded_value (encoding, context),
|
|
|
|
|
p, val);
|
|
|
|
|
}
|
|
|
|
|
|
2001-05-12 20:42:45 +02:00
|
|
|
|
/* Read an unsigned leb128 value from P, store the value in VAL, return
|
|
|
|
|
P incremented past the value. */
|
|
|
|
|
|
2001-05-12 08:03:20 +02:00
|
|
|
|
static inline const unsigned char *
|
|
|
|
|
read_uleb128 (const unsigned char *p, _Unwind_Ptr *val)
|
|
|
|
|
{
|
|
|
|
|
return read_encoded_value_with_base (DW_EH_PE_uleb128, 0, p, val);
|
|
|
|
|
}
|
|
|
|
|
|
2001-05-12 20:42:45 +02:00
|
|
|
|
/* Similar, but read a signed leb128 value. */
|
|
|
|
|
|
2001-05-12 08:03:20 +02:00
|
|
|
|
static inline const unsigned char *
|
|
|
|
|
read_sleb128 (const unsigned char *p, _Unwind_Ptr *val)
|
|
|
|
|
{
|
|
|
|
|
return read_encoded_value_with_base (DW_EH_PE_sleb128, 0, p, val);
|
|
|
|
|
}
|