2  * dwarf-aux.c : libdw auxiliary interfaces
16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
25 #include "dwarf-aux.h"
29  * cu_find_realpath - Find the realpath of the target file
60  * cu_get_comp_dir - Get the path of compilation directory
76  * cu_find_lineinfo - Get a line number and file name for given address
99 	return *lineno ?: -ENOENT;  in cu_find_lineinfo()
102 static int __die_find_inline_cb(Dwarf_Die *die_mem, void *data);
105  * cu_walk_functions_at - Walk on function DIEs at given address
109  * @data: A user data
112  * should be subprogram or inlined-subroutines.
115 		    int (*callback)(Dwarf_Die *, void *), void *data)  in cu_walk_functions_at()  argument
119 	int ret = -ENOENT;  in cu_walk_functions_at()
126 		ret = callback(sc_die, data);  in cu_walk_functions_at()
136  * die_get_linkage_name - Get the linkage name of the object
152  * die_compare_name - Compare diename and tname
167  * die_match_name - Match diename/linkage name and glob
190  * die_get_call_lineno - Get callsite line number of inline-function instance
193  * Get call-site line number of @in_die. This means from where the inline
202 		return -ENOENT;  in die_get_call_lineno()
209  * die_get_type - Get type DIE
246  * die_get_real_type - Get a type die, but skip qualifiers and typedef
272 		return -ENOENT;  in die_get_attr_udata()
285 		return -ENOENT;  in die_get_attr_sdata()
291  * die_is_signed_type - Check whether a type DIE is signed or not
309  * die_is_func_def - Ensure that this DIE is a subprogram and definition
324  * die_entrypc - Returns entry PC (the lowest address) of a DIE
337 		return -EINVAL;  in die_entrypc()
342 	return dwarf_ranges(dw_die, 0, &base, addr, &end) < 0 ? -ENOENT : 0;  in die_entrypc()
346  * die_is_func_instance - Ensure that this DIE is an instance of a subprogram
369  * die_get_data_member_location - Get the data-member offset
370  * @mb_die: a DIE of a member of a data structure
371  * @offs: The offset of the member in the data structure
373  * Get the offset of @mb_die in the data structure including @mb_die, and
384 		return -ENOENT;  in die_get_data_member_location()
390 			return -ENOENT;  in die_get_data_member_location()
395 			return -ENOTSUP;  in die_get_data_member_location()
410 		return -ENOENT;  in die_get_call_fileno()
421 		return -ENOENT;  in die_get_decl_fileno()
425  * die_get_call_file - Get callsite file name of inlined function instance
428  * Get call-site file name of @in_die. This means from which file the inline
447  * die_find_child - Generic DIE search function in DIE tree
450  * @data: a user data passed to the callback function
463 			  void *data, Dwarf_Die *die_mem)  in die_find_child()  argument
473 		ret = callback(die_mem, data);  in die_find_child()
478 		    die_find_child(die_mem, callback, data, &child_die)) {  in die_find_child()
493 static int __die_search_func_tail_cb(Dwarf_Die *fn_die, void *data)  in __die_search_func_tail_cb()  argument
495 	struct __addr_die_search_param *ad = data;  in __die_search_func_tail_cb()
500 	    addr == ad->addr) {  in __die_search_func_tail_cb()
501 		memcpy(ad->die_mem, fn_die, sizeof(Dwarf_Die));  in __die_search_func_tail_cb()
508  * die_find_tailfunc - Search for a non-inlined function with tail call at
514  * Search for a non-inlined function DIE with tail call at @addr. Stores the
530 /* die_find callback for non-inlined function search */
531 static int __die_search_func_cb(Dwarf_Die *fn_die, void *data)  in __die_search_func_cb()  argument
533 	struct __addr_die_search_param *ad = data;  in __die_search_func_cb()
540 	    dwarf_haspc(fn_die, ad->addr)) {  in __die_search_func_cb()
541 		memcpy(ad->die_mem, fn_die, sizeof(Dwarf_Die));  in __die_search_func_cb()
548  * die_find_realfunc - Search a non-inlined function at given address
553  * Search a non-inlined function DIE which includes @addr. Stores the
570 static int __die_find_inline_cb(Dwarf_Die *die_mem, void *data)  in __die_find_inline_cb()  argument
572 	Dwarf_Addr *addr = data;  in __die_find_inline_cb()
582  * die_find_top_inlinefunc - Search the top inlined function at given address
599  * die_find_inlinefunc - Search an inlined function at given address
631 	void    *data;  member
635 static int __die_walk_instances_cb(Dwarf_Die *inst, void *data)  in __die_walk_instances_cb()  argument
637 	struct __instance_walk_param *iwp = data;  in __die_walk_instances_cb()
652 	if (origin == NULL || origin->addr != iwp->addr)  in __die_walk_instances_cb()
665 	iwp->retval = iwp->callback(inst, iwp->data);  in __die_walk_instances_cb()
667 	return (iwp->retval) ? DIE_FIND_CB_END : DIE_FIND_CB_CONTINUE;  in __die_walk_instances_cb()
671  * die_walk_instances - Walk on instances of given DIE
674  * @data: user data
678  * non-zero value, or -ENOENT if there is no instance.
681 		       void *data)  in die_walk_instances()  argument
686 		.addr = or_die->addr,  in die_walk_instances()
688 		.data = data,  in die_walk_instances()
689 		.retval = -ENOENT,  in die_walk_instances()
693 		return -ENOENT;  in die_walk_instances()
704 	void *data;  member
708 static int __die_walk_funclines_cb(Dwarf_Die *in_die, void *data)  in __die_walk_funclines_cb()  argument
710 	struct __line_walk_param *lw = data;  in __die_walk_funclines_cb()
719 			lw->retval = lw->callback(fname, lineno, addr, lw->data);  in __die_walk_funclines_cb()
720 			if (lw->retval != 0)  in __die_walk_funclines_cb()
723 		if (!lw->recursive)  in __die_walk_funclines_cb()
730 			lw->retval = lw->callback(fname, lineno, addr, lw->data);  in __die_walk_funclines_cb()
731 			if (lw->retval != 0)  in __die_walk_funclines_cb()
736 	/* Continue to search nested inlined function call-sites */  in __die_walk_funclines_cb()
740 /* Walk on lines of blocks included in given DIE */
742 				line_walk_callback_t callback, void *data)  in __die_walk_funclines()  argument
747 		.data = data,  in __die_walk_funclines()
759 		lw.retval = callback(fname, lineno, addr, data);  in __die_walk_funclines()
768 static int __die_walk_culines_cb(Dwarf_Die *sp_die, void *data)  in __die_walk_culines_cb()  argument
770 	struct __line_walk_param *lw = data;  in __die_walk_culines_cb()
776 	lw->retval = __die_walk_funclines(sp_die, true, lw->callback, lw->data);  in __die_walk_culines_cb()
777 	if (lw->retval != 0)  in __die_walk_culines_cb()
784  * die_walk_lines - Walk on lines inside given DIE
787  * @data: user data
789  * Walk on all lines inside given @rt_die and call @callback on each line.
790  * If the @rt_die is a function, walk only on the lines inside the function,
793  * and inline call-site.
795 int die_walk_lines(Dwarf_Die *rt_die, line_walk_callback_t callback, void *data)  in die_walk_lines()  argument
797 	Dwarf_Lines *lines;  in die_walk_lines()  local
816 		return -EINVAL;  in die_walk_lines()
819 	/* Get lines list in the CU */  in die_walk_lines()
820 	if (dwarf_getsrclines(cu_die, &lines, &nlines) != 0) {  in die_walk_lines()
821 		pr_debug2("Failed to get source lines on this CU.\n");  in die_walk_lines()
822 		return -ENOENT;  in die_walk_lines()
824 	pr_debug2("Get %zd lines from this CU\n", nlines);  in die_walk_lines()
826 	/* Walk on the lines on lines list */  in die_walk_lines()
828 		line = dwarf_onesrcline(lines, i);  in die_walk_lines()
836 		/* Skip end-of-sequence */  in die_walk_lines()
839 		/* Skip Non statement line-info */  in die_walk_lines()
842 		/* Filter lines based on address */  in die_walk_lines()
853 				/* Call-site check */  in die_walk_lines()
869 		ret = callback(fname, lineno, addr, data);  in die_walk_lines()
875 	 * Dwarf lines doesn't include function declarations and inlined  in die_walk_lines()
881 		 * inner inlined functions don't have the lines of the  in die_walk_lines()
884 		ret = __die_walk_funclines(rt_die, false, callback, data);  in die_walk_lines()
888 			.data = data,  in die_walk_lines()
903 static int __die_find_variable_cb(Dwarf_Die *die_mem, void *data)  in __die_find_variable_cb()  argument
905 	struct __find_variable_param *fvp = data;  in __die_find_variable_cb()
912 	    die_compare_name(die_mem, fvp->name) &&  in __die_find_variable_cb()
917 	if (dwarf_haspc(die_mem, fvp->addr))  in __die_find_variable_cb()
924  * die_find_variable_at - Find a given name variable at given address
941 static int __die_find_member_cb(Dwarf_Die *die_mem, void *data)  in __die_find_member_cb()  argument
943 	const char *name = data;  in __die_find_member_cb()
959  * die_find_member - Find a given name member in a data structure
960  * @st_die: a data structure type DIE
974  * die_get_typename - Get the name of given variable DIE
979  * and Return -ENOENT if failed to find type name.
990 		return -ENOENT;  in die_get_typename()
1000 			return -ENOENT;  in die_get_typename()
1015  * die_get_varname - Get the name and type of given variable DIE
1036  * die_get_var_innermost_scope - Get innermost scope range of given variable DIE
1042  * "@<function_name+[NN-NN,NN-NN]>".
1063 		return -ENOENT;  in die_get_var_innermost_scope()
1069 		ret = -EINVAL;  in die_get_var_innermost_scope()
1075 		start -= entry;  in die_get_var_innermost_scope()
1076 		end -= entry;  in die_get_var_innermost_scope()
1079 			ret = strbuf_addf(buf, "@<%s+[%" PRIu64 "-%" PRIu64,  in die_get_var_innermost_scope()
1083 			ret = strbuf_addf(buf, ",%" PRIu64 "-%" PRIu64,  in die_get_var_innermost_scope()
1099  * die_get_var_range - Get byte offset range of given variable DIE
1105  * "@<function_name+[NN-NN,NN-NN]>".
1126 		return -ENOENT;  in die_get_var_range()
1129 		return -EINVAL;  in die_get_var_range()
1140 		start -= entry;  in die_get_var_range()
1141 		end -= entry;  in die_get_var_range()
1143 			ret = strbuf_addf(buf, "@<%s+[%" PRIu64 "-%" PRIu64,  in die_get_var_range()
1147 			ret = strbuf_addf(buf, ",%" PRIu64 "-%" PRIu64,  in die_get_var_range()
1164 	return -ENOTSUP;  in die_get_var_range()
1169  * die_has_loclist - Check if DW_AT_location of @vr_die is a location list
1186  * die_is_optimized_target - Check if target program is compiled with
1213  * die_search_idx - Search index of given line address
1214  * @lines: Line records of single CU
1215  * @nr_lines: Number of @lines
1219  * Search for @addr by looping over every lines of CU. If address
1224 static bool die_search_idx(Dwarf_Lines *lines, unsigned long nr_lines,  in die_search_idx()  argument
1231 		if (dwarf_lineaddr(dwarf_onesrcline(lines, i), &tmp))  in die_search_idx()
1243  * die_get_postprologue_addr - Search next address after function prologue
1245  * @lines: Line records of single CU
1246  * @nr_lines: Number of @lines
1250  * Look for prologue-end marker. If there is no explicit marker, return
1254 				      Dwarf_Lines *lines,  in die_get_postprologue_addr()  argument
1266 	line = dwarf_onesrcline(lines, entrypc_idx);  in die_get_postprologue_addr()
1271 		line = dwarf_onesrcline(lines, i);  in die_get_postprologue_addr()
1282 		/* clang supports prologue-end marker */  in die_get_postprologue_addr()
1304 		dwarf_lineaddr(dwarf_onesrcline(lines, i - 1),  in die_get_postprologue_addr()
1311  * die_skip_prologue - Use next address after prologue as probe location
1327 	Dwarf_Lines *lines = NULL;  in die_skip_prologue()  local
1334 	if (dwarf_getsrclines(cu_die, &lines, &nr_lines))  in die_skip_prologue()
1337 	if (!die_search_idx(lines, nr_lines, *entrypc, &entrypc_idx))  in die_skip_prologue()
1340 	if (!die_get_postprologue_addr(entrypc_idx, lines, nr_lines,  in die_skip_prologue()