summaryrefslogtreecommitdiffstats
path: root/tests/show-ciefde.c
diff options
context:
space:
mode:
Diffstat (limited to 'tests/show-ciefde.c')
-rw-r--r--tests/show-ciefde.c218
1 files changed, 218 insertions, 0 deletions
diff --git a/tests/show-ciefde.c b/tests/show-ciefde.c
new file mode 100644
index 00000000..58eae343
--- /dev/null
+++ b/tests/show-ciefde.c
@@ -0,0 +1,218 @@
+/* Copyright (C) 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.
+ Written by Ulrich Drepper <drepper@redhat.com>, 1998.
+
+ This program is Open Source software; you can redistribute it and/or
+ modify it under the terms of the Open Software License version 1.0 as
+ published by the Open Source Initiative.
+
+ You should have received a copy of the Open Software License along
+ with this program; if not, you may obtain a copy of the Open Software
+ License version 1.0 from http://www.opensource.org/licenses/osl.php or
+ by writing the Open Source Initiative c/o Lawrence Rosen, Esq.,
+ 3001 King Ranch Road, Ukiah, CA 95482. */
+
+#include <config.h>
+
+#include <fcntl.h>
+#include <libelf.h>
+#include <libdwarf.h>
+#include <stdio.h>
+#include <string.h>
+#include <unistd.h>
+
+int
+main (int argc, char *argv[])
+{
+ int cnt;
+
+ for (cnt = 1; cnt < argc; ++cnt)
+ {
+ int fd = open (argv[cnt], O_RDONLY);
+ Dwarf_Debug dbg;
+ Dwarf_Signed cie_cnt;
+ Dwarf_Cie *cie_data;
+ Dwarf_Signed fde_cnt;
+ Dwarf_Fde *fde_data;
+ Dwarf_Error err;
+
+ if (dwarf_init (fd, DW_DLC_READ, NULL, NULL, &dbg, &err) != DW_DLV_OK)
+ {
+ printf ("%s not usable: %s\n", argv[cnt], dwarf_errmsg (err));
+ continue;
+ }
+ else if (dwarf_get_fde_list_eh (dbg, &cie_data, &cie_cnt, &fde_data,
+ &fde_cnt, &err) != DW_DLV_OK)
+ printf ("cannot get CIEs and FDEs from %s: %s\n", argv[cnt],
+ dwarf_errmsg (err));
+ else
+ {
+ Dwarf_Addr low_pc;
+ Dwarf_Addr high_pc;
+ Dwarf_Unsigned func_length;
+ Dwarf_Ptr fde_bytes;
+ Dwarf_Unsigned fde_byte_length;
+ Dwarf_Off cie_offset;
+ Dwarf_Signed cie_index;
+ Dwarf_Off fde_offset;
+ Dwarf_Fde fde;
+ int i;
+
+ printf ("%s has %lld CIEs and %lld FDEs\n",
+ basename (argv[cnt]),
+ (long long int) cie_cnt, (long long int) fde_cnt);
+
+ for (i = 0; i < cie_cnt; ++i)
+ {
+ Dwarf_Unsigned bytes_in_cie;
+ Dwarf_Small version;
+ char *augmenter;
+ Dwarf_Unsigned code_alignment_factor;
+ Dwarf_Signed data_alignment_factor;
+ Dwarf_Half return_address_register;
+ Dwarf_Ptr initial_instructions;
+ Dwarf_Unsigned initial_instructions_length;
+
+ if (dwarf_get_cie_info (cie_data[i], &bytes_in_cie, &version,
+ &augmenter, &code_alignment_factor,
+ &data_alignment_factor,
+ &return_address_register,
+ &initial_instructions,
+ &initial_instructions_length, &err)
+ != DW_DLV_OK)
+ printf ("cannot get info for CIE %d: %s\n", i,
+ dwarf_errmsg (err));
+ else
+ {
+ size_t j;
+
+ printf ("CIE[%d]: bytes_in_cie = %llu, version = %hhd, augmenter = \"%s\"\n",
+ i, (unsigned long long int) bytes_in_cie, version,
+ augmenter);
+ printf ("CIE[%d]: code_alignment_factor = %llx\n"
+ "CIE[%d]: data_alignment_factor = %llx\n"
+ "CIE[%d]: return_address_register = %hu\n"
+ "CIE[%d]: bytes =",
+ i, (unsigned long long int) code_alignment_factor,
+ i, (unsigned long long int) data_alignment_factor,
+ i, return_address_register, i);
+
+ for (j = 0; j < initial_instructions_length; ++j)
+ printf (" %02hhx",
+ ((unsigned char *) initial_instructions)[j]);
+
+ putchar ('\n');
+ }
+ }
+
+ for (i = 0; i < fde_cnt; ++i)
+ {
+ Dwarf_Cie cie;
+
+ if (dwarf_get_fde_range (fde_data[i], &low_pc, &func_length,
+ &fde_bytes, &fde_byte_length,
+ &cie_offset, &cie_index, &fde_offset,
+ &err) != DW_DLV_OK)
+ printf ("cannot get range of FDE %d: %s\n", i,
+ dwarf_errmsg (err));
+ else
+ {
+ size_t j;
+ Dwarf_Ptr instrs;
+ Dwarf_Unsigned len;
+
+ printf ("FDE[%d]: low_pc = %#llx, length = %llu\n", i,
+ (unsigned long long int) low_pc,
+ (unsigned long long int) func_length);
+ printf ("FDE[%d]: bytes =", i);
+
+ for (j = 0; j < fde_byte_length; ++j)
+ printf (" %02hhx", ((unsigned char *) fde_bytes)[j]);
+
+ printf ("\nFDE[%d]: cie_offset = %lld, cie_index = %lld, fde_offset = %lld\n",
+ i, (long long int) cie_offset,
+ (long long int) cie_index,
+ (long long int) fde_offset);
+
+ if (dwarf_get_fde_instr_bytes (fde_data[i], &instrs, &len,
+ &err) != DW_DLV_OK)
+ printf ("cannot get instructions of FDE %d: %s\n", i,
+ dwarf_errmsg (err));
+ else
+ {
+ printf ("FDE[%d]: instructions =", i);
+
+ for (j = 0; j < len; ++j)
+ printf (" %02hhx", ((unsigned char *) instrs)[j]);
+
+ putchar ('\n');
+ }
+
+ /* Consistency check. */
+ if (dwarf_get_cie_of_fde (fde_data[i], &cie, &err)
+ != DW_DLV_OK)
+ printf ("cannot get CIE of FDE %d: %s\n", i,
+ dwarf_errmsg (err));
+ else if (cie_data[cie_index] != cie)
+ puts ("cie_index for FDE[%d] does not match dwarf_get_cie_of_fde result");
+ }
+
+ if (dwarf_get_fde_n (fde_data, i, &fde, &err) != DW_DLV_OK)
+ printf ("dwarf_get_fde_n for FDE[%d] failed\n", i);
+ else if (fde != fde_data[i])
+ printf ("dwarf_get_fde_n for FDE[%d] didn't return the right value\n", i);
+ }
+
+ if (dwarf_get_fde_n (fde_data, fde_cnt, &fde, &err)
+ != DW_DLV_NO_ENTRY)
+ puts ("dwarf_get_fde_n for invalid index doesn't return DW_DLV_NO_ENTRY");
+
+ {
+ const unsigned int addrs[] =
+ {
+ 0x8048400, 0x804842c, 0x8048454, 0x8048455, 0x80493fc
+ };
+ const int naddrs = sizeof (addrs) / sizeof (addrs[0]);
+
+ for (i = 0; i < naddrs; ++i)
+ if (dwarf_get_fde_at_pc (fde_data, addrs[i], &fde, &low_pc,
+ &high_pc, &err) != DW_DLV_OK)
+ printf ("no FDE at %x\n", addrs[i]);
+ else
+ {
+ Dwarf_Addr other_low_pc;
+
+ if (dwarf_get_fde_range (fde, &other_low_pc, &func_length,
+ &fde_bytes, &fde_byte_length,
+ &cie_offset, &cie_index,
+ &fde_offset, &err) != DW_DLV_OK)
+ printf ("cannot get range of FDE returned by dwarf_get_fde_at_pc for %u: %s\n",
+ addrs[i], dwarf_errmsg (err));
+ else
+ {
+ printf ("FDE[@%x]: cie_offset = %lld, cie_index = %lld, fde_offset = %lld\n",
+ addrs[i],
+ (long long int) cie_offset,
+ (long long int) cie_index,
+ (long long int) fde_offset);
+
+ if (low_pc != other_low_pc)
+ printf ("low_pc returned by dwarf_get_fde_at_pc for %x and dwarf_get_fde_range differs",
+ addrs[i]);
+
+ if (high_pc != low_pc + func_length - 1)
+ printf ("high_pc returned by dwarf_get_fde_at_pc for %x and dwarf_get_fde_range differs",
+ addrs[i]);
+ }
+ }
+ }
+ }
+
+ if (dwarf_finish (dbg, &err) != DW_DLV_OK)
+ printf ("dwarf_finish failed for %s: %s\n", argv[cnt],
+ dwarf_errmsg (err));
+
+ close (fd);
+ }
+
+ return 0;
+}
generated by cgit v1.2.3 (git 2.25.1) at 2025-06-19 02:32:08 +0000