Blame kpatch-build/lookup.c

Packit Service ac8aad
/*
Packit Service ac8aad
 * lookup.c
Packit Service ac8aad
 *
Packit Service ac8aad
 * This file contains functions that assist in the reading and searching
Packit Service ac8aad
 * the symbol table of an ELF object.
Packit Service ac8aad
 *
Packit Service ac8aad
 * Copyright (C) 2014 Seth Jennings <sjenning@redhat.com>
Packit Service ac8aad
 * Copyright (C) 2014 Josh Poimboeuf <jpoimboe@redhat.com>
Packit Service ac8aad
 *
Packit Service ac8aad
 * This program is free software; you can redistribute it and/or
Packit Service ac8aad
 * modify it under the terms of the GNU General Public License
Packit Service ac8aad
 * as published by the Free Software Foundation; either version 2
Packit Service ac8aad
 * of the License, or (at your option) any later version.
Packit Service ac8aad
 *
Packit Service ac8aad
 * This program is distributed in the hope that it will be useful,
Packit Service ac8aad
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
Packit Service ac8aad
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Packit Service ac8aad
 * GNU General Public License for more details.
Packit Service ac8aad
 *
Packit Service ac8aad
 * You should have received a copy of the GNU General Public License
Packit Service ac8aad
 * along with this program; if not, write to the Free Software
Packit Service ac8aad
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA,
Packit Service ac8aad
 * 02110-1301, USA.
Packit Service ac8aad
 */
Packit Service ac8aad
Packit Service ac8aad
#include <sys/types.h>
Packit Service ac8aad
#include <sys/stat.h>
Packit Service ac8aad
#include <sys/mman.h>
Packit Service ac8aad
#include <ctype.h>
Packit Service ac8aad
#include <fcntl.h>
Packit Service ac8aad
#include <stdlib.h>
Packit Service ac8aad
#include <stdio.h>
Packit Service ac8aad
#include <string.h>
Packit Service ac8aad
#include <error.h>
Packit Service ac8aad
#include <gelf.h>
Packit Service ac8aad
#include <unistd.h>
Packit Service ac8aad
#include <libgen.h>
Packit Service da4517
#include <stdbool.h>
Packit Service ac8aad
Packit Service ac8aad
#include "lookup.h"
Packit Service ac8aad
#include "log.h"
Packit Service ac8aad
Packit Service ac8aad
struct object_symbol {
Packit Service da4517
	unsigned long addr;
Packit Service ac8aad
	unsigned long size;
Packit Service ac8aad
	char *name;
Packit Service ac8aad
	int type, bind;
Packit Service ac8aad
};
Packit Service ac8aad
Packit Service ac8aad
struct export_symbol {
Packit Service ac8aad
	char *name;
Packit Service ac8aad
	char *objname;
Packit Service ac8aad
};
Packit Service ac8aad
Packit Service ac8aad
struct lookup_table {
Packit Service ac8aad
	int obj_nr, exp_nr;
Packit Service ac8aad
	struct object_symbol *obj_syms;
Packit Service ac8aad
	struct export_symbol *exp_syms;
Packit Service ac8aad
	struct object_symbol *local_syms;
Packit Service da4517
	char *objname;
Packit Service ac8aad
};
Packit Service ac8aad
Packit Service ac8aad
#define for_each_obj_symbol(ndx, iter, table) \
Packit Service ac8aad
	for (ndx = 0, iter = table->obj_syms; ndx < table->obj_nr; ndx++, iter++)
Packit Service ac8aad
Packit Service ac8aad
#define for_each_obj_symbol_continue(ndx, iter, table) \
Packit Service ac8aad
	for (iter = table->obj_syms + ndx; ndx < table->obj_nr; ndx++, iter++)
Packit Service ac8aad
Packit Service ac8aad
#define for_each_exp_symbol(ndx, iter, table) \
Packit Service ac8aad
	for (ndx = 0, iter = table->exp_syms; ndx < table->exp_nr; ndx++, iter++)
Packit Service ac8aad
Packit Service ac8aad
static int maybe_discarded_sym(const char *name)
Packit Service ac8aad
{
Packit Service ac8aad
	if (!name)
Packit Service ac8aad
		return 0;
Packit Service ac8aad
Packit Service ac8aad
	/*
Packit Service ac8aad
	 * Sometimes these symbols are discarded during linking, and sometimes
Packit Service ac8aad
	 * they're not, depending on whether the parent object is vmlinux or a
Packit Service ac8aad
	 * module, and also depending on the kernel version.  For simplicity,
Packit Service ac8aad
	 * we just always skip them when comparing object symbol tables.
Packit Service ac8aad
	 */
Packit Service ac8aad
	if (!strncmp(name, "__exitcall_", 11) ||
Packit Service ac8aad
	    !strncmp(name, "__brk_reservation_fn_", 21) ||
Packit Service da4517
	    !strncmp(name, "__func_stack_frame_non_standard_", 32) ||
Packit Service da4517
	    !strncmp(name, "__addressable_", 14) ||
Packit Service da4517
	    !strncmp(name, "__UNIQUE_ID_", 12))
Packit Service ac8aad
		return 1;
Packit Service ac8aad
Packit Service ac8aad
	return 0;
Packit Service ac8aad
}
Packit Service ac8aad
Packit Service ac8aad
static int locals_match(struct lookup_table *table, int idx,
Packit Service ac8aad
			struct sym_compare_type *child_locals)
Packit Service ac8aad
{
Packit Service ac8aad
	struct sym_compare_type *child;
Packit Service ac8aad
	struct object_symbol *sym;
Packit Service ac8aad
	int i, found;
Packit Service ac8aad
Packit Service ac8aad
	i = idx + 1;
Packit Service ac8aad
	for_each_obj_symbol_continue(i, sym, table) {
Packit Service ac8aad
		if (sym->type == STT_FILE)
Packit Service ac8aad
			break;
Packit Service ac8aad
		if (sym->bind != STB_LOCAL)
Packit Service ac8aad
			continue;
Packit Service ac8aad
		if (sym->type != STT_FUNC && sym->type != STT_OBJECT)
Packit Service ac8aad
			continue;
Packit Service ac8aad
Packit Service ac8aad
		found = 0;
Packit Service ac8aad
		for (child = child_locals; child->name; child++) {
Packit Service ac8aad
			if (child->type == sym->type &&
Packit Service ac8aad
			    !strcmp(child->name, sym->name)) {
Packit Service ac8aad
				found = 1;
Packit Service ac8aad
				break;
Packit Service ac8aad
			}
Packit Service ac8aad
		}
Packit Service ac8aad
Packit Service ac8aad
		if (!found)
Packit Service ac8aad
			return 0;
Packit Service ac8aad
	}
Packit Service ac8aad
Packit Service ac8aad
	for (child = child_locals; child->name; child++) {
Packit Service ac8aad
		/*
Packit Service ac8aad
		 * Symbols which get discarded at link time are missing from
Packit Service ac8aad
		 * the lookup table, so skip them.
Packit Service ac8aad
		 */
Packit Service ac8aad
		if (maybe_discarded_sym(child->name))
Packit Service ac8aad
			continue;
Packit Service ac8aad
Packit Service ac8aad
		found = 0;
Packit Service ac8aad
		i = idx + 1;
Packit Service ac8aad
		for_each_obj_symbol_continue(i, sym, table) {
Packit Service ac8aad
			if (sym->type == STT_FILE)
Packit Service ac8aad
				break;
Packit Service ac8aad
			if (sym->bind != STB_LOCAL)
Packit Service ac8aad
				continue;
Packit Service ac8aad
			if (sym->type != STT_FUNC && sym->type != STT_OBJECT)
Packit Service ac8aad
				continue;
Packit Service ac8aad
			if (maybe_discarded_sym(sym->name))
Packit Service ac8aad
				continue;
Packit Service ac8aad
Packit Service ac8aad
			if (!strcmp(child->name, sym->name)) {
Packit Service ac8aad
				found = 1;
Packit Service ac8aad
				break;
Packit Service ac8aad
			}
Packit Service ac8aad
		}
Packit Service ac8aad
Packit Service ac8aad
		if (!found)
Packit Service ac8aad
			return 0;
Packit Service ac8aad
	}
Packit Service ac8aad
Packit Service ac8aad
	return 1;
Packit Service ac8aad
}
Packit Service ac8aad
Packit Service ac8aad
static void find_local_syms(struct lookup_table *table, char *hint,
Packit Service ac8aad
			    struct sym_compare_type *child_locals)
Packit Service ac8aad
{
Packit Service ac8aad
	struct object_symbol *sym;
Packit Service ac8aad
	int i;
Packit Service ac8aad
Packit Service ac8aad
	if (!child_locals)
Packit Service ac8aad
		return;
Packit Service ac8aad
Packit Service ac8aad
	for_each_obj_symbol(i, sym, table) {
Packit Service ac8aad
		if (sym->type != STT_FILE)
Packit Service ac8aad
			continue;
Packit Service ac8aad
		if (strcmp(hint, sym->name))
Packit Service ac8aad
			continue;
Packit Service ac8aad
		if (!locals_match(table, i, child_locals))
Packit Service ac8aad
			continue;
Packit Service ac8aad
		if (table->local_syms)
Packit Service da4517
			ERROR("found duplicate matches for %s local symbols in %s symbol table",
Packit Service da4517
			      hint, table->objname);
Packit Service ac8aad
Packit Service ac8aad
		table->local_syms = sym;
Packit Service ac8aad
	}
Packit Service ac8aad
Packit Service ac8aad
	if (!table->local_syms)
Packit Service da4517
		ERROR("couldn't find matching %s local symbols in %s symbol table",
Packit Service da4517
		      hint, table->objname);
Packit Service ac8aad
}
Packit Service ac8aad
Packit Service ac8aad
/* Strip the path and replace '-' with '_' */
Packit Service ac8aad
static char *make_modname(char *modname)
Packit Service ac8aad
{
Packit Service da4517
	char *cur, *name;
Packit Service ac8aad
Packit Service ac8aad
	if (!modname)
Packit Service ac8aad
		return NULL;
Packit Service ac8aad
Packit Service da4517
	name = strdup(basename(modname));
Packit Service da4517
	if (!name)
Packit Service da4517
		ERROR("strdup");
Packit Service da4517
Packit Service da4517
	cur = name; /* use cur as tmp */
Packit Service ac8aad
	while (*cur != '\0') {
Packit Service ac8aad
		if (*cur == '-')
Packit Service ac8aad
			*cur = '_';
Packit Service ac8aad
		cur++;
Packit Service ac8aad
	}
Packit Service ac8aad
Packit Service da4517
	return name;
Packit Service ac8aad
}
Packit Service ac8aad
Packit Service ac8aad
static void symtab_read(struct lookup_table *table, char *path)
Packit Service ac8aad
{
Packit Service ac8aad
	FILE *file;
Packit Service da4517
	long unsigned int addr;
Packit Service da4517
	int alloc_nr = 0, i = 0;
Packit Service da4517
	int matched;
Packit Service da4517
	bool skip = false;
Packit Service da4517
	char line[256], name[256], size[16], type[16], bind[16], ndx[16];
Packit Service ac8aad
Packit Service ac8aad
	if ((file = fopen(path, "r")) == NULL)
Packit Service ac8aad
		ERROR("fopen");
Packit Service ac8aad
Packit Service da4517
	/*
Packit Service da4517
	 * First, get an upper limit on the number of entries for allocation
Packit Service da4517
	 * purposes:
Packit Service da4517
	 */
Packit Service da4517
	while (fgets(line, 256, file))
Packit Service da4517
		alloc_nr++;
Packit Service ac8aad
Packit Service da4517
	table->obj_syms = malloc(alloc_nr * sizeof(*table->obj_syms));
Packit Service ac8aad
	if (!table->obj_syms)
Packit Service ac8aad
		ERROR("malloc table.obj_syms");
Packit Service da4517
	memset(table->obj_syms, 0, alloc_nr * sizeof(*table->obj_syms));
Packit Service ac8aad
Packit Service ac8aad
	rewind(file);
Packit Service ac8aad
Packit Service da4517
	/* Now read the actual entries: */
Packit Service ac8aad
	while (fgets(line, 256, file)) {
Packit Service da4517
Packit Service da4517
		/*
Packit Service da4517
		 * On powerpc, "readelf -s" shows both .dynsym and .symtab
Packit Service da4517
		 * tables.  .dynsym is just a subset of .symtab, so skip it to
Packit Service da4517
		 * avoid duplicates.
Packit Service da4517
		 */
Packit Service da4517
		if (strstr(line, ".dynsym")) {
Packit Service da4517
			skip = true;
Packit Service da4517
			continue;
Packit Service da4517
		} else if (strstr(line, ".symtab")) {
Packit Service da4517
			skip = false;
Packit Service da4517
			continue;
Packit Service da4517
		}
Packit Service da4517
		if (skip)
Packit Service ac8aad
			continue;
Packit Service ac8aad
Packit Service da4517
		matched = sscanf(line, "%*s %lx %s %s %s %*s %s %s\n",
Packit Service da4517
				 &addr, size, type, bind, ndx, name);
Packit Service da4517
Packit Service da4517
		if (matched == 5) {
Packit Service da4517
			name[0] = '\0';
Packit Service da4517
			matched++;
Packit Service da4517
		}
Packit Service da4517
Packit Service da4517
		if (matched != 6 ||
Packit Service da4517
		    !strcmp(ndx, "UND") ||
Packit Service da4517
		    !strcmp(type, "SECTION"))
Packit Service da4517
			continue;
Packit Service da4517
Packit Service da4517
		table->obj_syms[i].addr = addr;
Packit Service da4517
		table->obj_syms[i].size = strtoul(size, NULL, 0);
Packit Service ac8aad
Packit Service ac8aad
		if (!strcmp(bind, "LOCAL")) {
Packit Service ac8aad
			table->obj_syms[i].bind = STB_LOCAL;
Packit Service ac8aad
		} else if (!strcmp(bind, "GLOBAL")) {
Packit Service ac8aad
			table->obj_syms[i].bind = STB_GLOBAL;
Packit Service ac8aad
		} else if (!strcmp(bind, "WEAK")) {
Packit Service ac8aad
			table->obj_syms[i].bind = STB_WEAK;
Packit Service ac8aad
		} else {
Packit Service ac8aad
			ERROR("unknown symbol bind %s", bind);
Packit Service ac8aad
		}
Packit Service ac8aad
Packit Service ac8aad
		if (!strcmp(type, "NOTYPE")) {
Packit Service ac8aad
			table->obj_syms[i].type = STT_NOTYPE;
Packit Service ac8aad
		} else if (!strcmp(type, "OBJECT")) {
Packit Service ac8aad
			table->obj_syms[i].type = STT_OBJECT;
Packit Service ac8aad
		} else if (!strcmp(type, "FUNC")) {
Packit Service ac8aad
			table->obj_syms[i].type = STT_FUNC;
Packit Service ac8aad
		} else if (!strcmp(type, "FILE")) {
Packit Service ac8aad
			table->obj_syms[i].type = STT_FILE;
Packit Service ac8aad
		} else {
Packit Service ac8aad
			ERROR("unknown symbol type %s", type);
Packit Service ac8aad
		}
Packit Service ac8aad
Packit Service ac8aad
		table->obj_syms[i].name = strdup(name);
Packit Service ac8aad
		if (!table->obj_syms[i].name)
Packit Service ac8aad
			ERROR("strdup");
Packit Service da4517
Packit Service ac8aad
		i++;
Packit Service ac8aad
	}
Packit Service ac8aad
Packit Service da4517
	table->obj_nr = i;
Packit Service da4517
Packit Service ac8aad
	fclose(file);
Packit Service ac8aad
}
Packit Service ac8aad
Packit Service da4517
/*
Packit Service da4517
 * The Module.symvers file format is one of the following, depending on kernel
Packit Service da4517
 * version:
Packit Service da4517
 *
Packit Service da4517
 * <CRC>	<Symbol>	<Module>	<Export Type>
Packit Service da4517
 * <CRC>	<Symbol>	<Namespace>	<Module>	<Export Type>
Packit Service da4517
 * <CRC>	<Symbol>	<Module>	<Export Type>	<Namespace>
Packit Service da4517
 *
Packit Service da4517
 * All we care about is Symbol and Module.  Since the format is unpredictable,
Packit Service da4517
 * we have to dynamically determine which column is Module by looking for
Packit Service da4517
 * "vmlinux".
Packit Service da4517
 */
Packit Service ac8aad
static void symvers_read(struct lookup_table *table, char *path)
Packit Service ac8aad
{
Packit Service ac8aad
	FILE *file;
Packit Service da4517
	int i, column, mod_column = 0;
Packit Service da4517
	char line[4096];
Packit Service da4517
	char *tmp, *objname, *symname;
Packit Service ac8aad
Packit Service ac8aad
	if ((file = fopen(path, "r")) == NULL)
Packit Service ac8aad
		ERROR("fopen");
Packit Service ac8aad
Packit Service da4517
	while (fgets(line, 4096, file)) {
Packit Service ac8aad
		table->exp_nr++;
Packit Service ac8aad
Packit Service da4517
		if (mod_column)
Packit Service da4517
			continue;
Packit Service da4517
Packit Service da4517
		/* Find the module column */
Packit Service da4517
		for (column = 1, tmp = line; (tmp = strchr(tmp, '\t')); column++) {
Packit Service da4517
			tmp++;
Packit Service da4517
			if (*tmp && !strncmp(tmp, "vmlinux", 7))
Packit Service da4517
				mod_column = column;
Packit Service da4517
		}
Packit Service da4517
	}
Packit Service da4517
Packit Service da4517
	if (table->exp_nr && !mod_column)
Packit Service da4517
		ERROR("Module.symvers: invalid format");
Packit Service da4517
Packit Service ac8aad
	table->exp_syms = malloc(table->exp_nr * sizeof(*table->exp_syms));
Packit Service ac8aad
	if (!table->exp_syms)
Packit Service ac8aad
		ERROR("malloc table.exp_syms");
Packit Service ac8aad
	memset(table->exp_syms, 0,
Packit Service ac8aad
	       table->exp_nr * sizeof(*table->exp_syms));
Packit Service ac8aad
Packit Service ac8aad
	rewind(file);
Packit Service da4517
	for (i = 0; fgets(line, 4096, file); i++) {
Packit Service da4517
		char *name = NULL, *mod = NULL;
Packit Service da4517
Packit Service da4517
		for (column = 1, tmp = line; (tmp = strchr(tmp, '\t')); column++) {
Packit Service da4517
			*tmp++ = '\0';
Packit Service da4517
			if (*tmp && column == 1)
Packit Service da4517
				name = tmp;
Packit Service da4517
			else if (*tmp && column == mod_column)
Packit Service da4517
				mod = tmp;
Packit Service da4517
		}
Packit Service da4517
Packit Service da4517
		if (!name || !mod)
Packit Service da4517
			continue;
Packit Service ac8aad
Packit Service ac8aad
		symname = strdup(name);
Packit Service ac8aad
		if (!symname)
Packit Service ac8aad
			perror("strdup");
Packit Service ac8aad
Packit Service da4517
		objname = make_modname(mod);
Packit Service ac8aad
Packit Service ac8aad
		table->exp_syms[i].name = symname;
Packit Service ac8aad
		table->exp_syms[i].objname = objname;
Packit Service ac8aad
	}
Packit Service ac8aad
Packit Service ac8aad
	fclose(file);
Packit Service ac8aad
}
Packit Service ac8aad
Packit Service da4517
struct lookup_table *lookup_open(char *symtab_path, char *objname,
Packit Service da4517
				 char *symvers_path, char *hint,
Packit Service da4517
				 struct sym_compare_type *locals)
Packit Service ac8aad
{
Packit Service ac8aad
	struct lookup_table *table;
Packit Service ac8aad
Packit Service ac8aad
	table = malloc(sizeof(*table));
Packit Service ac8aad
	if (!table)
Packit Service ac8aad
		ERROR("malloc table");
Packit Service ac8aad
	memset(table, 0, sizeof(*table));
Packit Service ac8aad
Packit Service da4517
	table->objname = objname;
Packit Service ac8aad
	symtab_read(table, symtab_path);
Packit Service ac8aad
	symvers_read(table, symvers_path);
Packit Service ac8aad
	find_local_syms(table, hint, locals);
Packit Service ac8aad
Packit Service ac8aad
	return table;
Packit Service ac8aad
}
Packit Service ac8aad
Packit Service ac8aad
void lookup_close(struct lookup_table *table)
Packit Service ac8aad
{
Packit Service da4517
	int i;
Packit Service da4517
	struct object_symbol *obj_sym;
Packit Service da4517
	struct export_symbol *exp_sym;
Packit Service da4517
Packit Service da4517
	for_each_obj_symbol(i, obj_sym, table)
Packit Service da4517
		free(obj_sym->name);
Packit Service ac8aad
	free(table->obj_syms);
Packit Service da4517
Packit Service da4517
	for_each_exp_symbol(i, exp_sym, table) {
Packit Service da4517
		free(exp_sym->name);
Packit Service da4517
		free(exp_sym->objname);
Packit Service da4517
	}
Packit Service ac8aad
	free(table->exp_syms);
Packit Service ac8aad
	free(table);
Packit Service ac8aad
}
Packit Service ac8aad
Packit Service da4517
static bool lookup_local_symbol(struct lookup_table *table, char *name,
Packit Service da4517
				struct lookup_result *result)
Packit Service ac8aad
{
Packit Service ac8aad
	struct object_symbol *sym;
Packit Service da4517
	unsigned long sympos = 0;
Packit Service da4517
	int i, in_file = 0;
Packit Service ac8aad
Packit Service ac8aad
	if (!table->local_syms)
Packit Service da4517
		return false;
Packit Service ac8aad
Packit Service ac8aad
	memset(result, 0, sizeof(*result));
Packit Service ac8aad
	for_each_obj_symbol(i, sym, table) {
Packit Service ac8aad
		if (sym->bind == STB_LOCAL && !strcmp(sym->name, name))
Packit Service da4517
			sympos++;
Packit Service ac8aad
Packit Service ac8aad
		if (table->local_syms == sym) {
Packit Service ac8aad
			in_file = 1;
Packit Service ac8aad
			continue;
Packit Service ac8aad
		}
Packit Service ac8aad
Packit Service ac8aad
		if (!in_file)
Packit Service ac8aad
			continue;
Packit Service ac8aad
Packit Service ac8aad
		if (sym->type == STT_FILE)
Packit Service ac8aad
			break;
Packit Service ac8aad
Packit Service ac8aad
		if (sym->bind == STB_LOCAL && !strcmp(sym->name, name)) {
Packit Service ac8aad
Packit Service da4517
			if (result->objname)
Packit Service da4517
				ERROR("duplicate local symbol found for %s", name);
Packit Service ac8aad
Packit Service da4517
			result->objname		= table->objname;
Packit Service da4517
			result->addr		= sym->addr;
Packit Service da4517
			result->size		= sym->size;
Packit Service da4517
			result->sympos		= sympos;
Packit Service da4517
			result->global		= false;
Packit Service da4517
			result->exported	= false;
Packit Service ac8aad
		}
Packit Service ac8aad
	}
Packit Service ac8aad
Packit Service da4517
	return !!result->objname;
Packit Service ac8aad
}
Packit Service ac8aad
Packit Service da4517
static bool lookup_exported_symbol(struct lookup_table *table, char *name,
Packit Service da4517
				   struct lookup_result *result)
Packit Service ac8aad
{
Packit Service da4517
	struct export_symbol *sym;
Packit Service ac8aad
	int i;
Packit Service ac8aad
Packit Service da4517
	if (result)
Packit Service da4517
		memset(result, 0, sizeof(*result));
Packit Service da4517
Packit Service ac8aad
	for_each_exp_symbol(i, sym, table) {
Packit Service ac8aad
		if (!strcmp(sym->name, name)) {
Packit Service ac8aad
Packit Service da4517
			if (!result)
Packit Service da4517
				return true;
Packit Service ac8aad
Packit Service da4517
			if (result->objname)
Packit Service ac8aad
				ERROR("duplicate exported symbol found for %s", name);
Packit Service da4517
Packit Service da4517
			result->objname		= sym->objname;
Packit Service da4517
			result->addr		= 0; /* determined at runtime */
Packit Service da4517
			result->size		= 0; /* not used for exported symbols */
Packit Service da4517
			result->sympos		= 0; /* always 0 for exported symbols */
Packit Service da4517
			result->global		= true;
Packit Service da4517
			result->exported	= true;
Packit Service ac8aad
		}
Packit Service ac8aad
	}
Packit Service ac8aad
Packit Service da4517
	return result && result->objname;
Packit Service da4517
}
Packit Service ac8aad
Packit Service da4517
bool is_exported(struct lookup_table *table, char *name)
Packit Service ac8aad
{
Packit Service da4517
	return lookup_exported_symbol(table, name, NULL);
Packit Service ac8aad
}
Packit Service ac8aad
Packit Service da4517
static bool lookup_global_symbol(struct lookup_table *table, char *name,
Packit Service da4517
				 struct lookup_result *result)
Packit Service ac8aad
{
Packit Service da4517
	struct object_symbol *sym;
Packit Service da4517
	int i;
Packit Service ac8aad
Packit Service da4517
	memset(result, 0, sizeof(*result));
Packit Service da4517
	for_each_obj_symbol(i, sym, table) {
Packit Service da4517
		if ((sym->bind == STB_GLOBAL || sym->bind == STB_WEAK) &&
Packit Service da4517
		    !strcmp(sym->name, name)) {
Packit Service ac8aad
Packit Service da4517
			if (result->objname)
Packit Service da4517
				ERROR("duplicate global symbol found for %s", name);
Packit Service ac8aad
Packit Service da4517
			result->objname		= table->objname;
Packit Service da4517
			result->addr		= sym->addr;
Packit Service da4517
			result->size		= sym->size;
Packit Service da4517
			result->sympos		= 0; /* always 0 for global symbols */
Packit Service da4517
			result->global		= true;
Packit Service da4517
			result->exported	= is_exported(table, name);
Packit Service da4517
		}
Packit Service da4517
	}
Packit Service ac8aad
Packit Service da4517
	return !!result->objname;
Packit Service da4517
}
Packit Service ac8aad
Packit Service da4517
bool lookup_symbol(struct lookup_table *table, char *name,
Packit Service da4517
		   struct lookup_result *result)
Packit Service da4517
{
Packit Service da4517
	if (lookup_local_symbol(table, name, result))
Packit Service da4517
		return true;
Packit Service ac8aad
Packit Service da4517
	if (lookup_global_symbol(table, name, result))
Packit Service da4517
		return true;
Packit Service da4517
Packit Service da4517
	return lookup_exported_symbol(table, name, result);
Packit Service ac8aad
}