forked from Qortal/Brooklyn
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
174 lines
3.7 KiB
174 lines
3.7 KiB
// SPDX-License-Identifier: GPL-2.0 |
|
#include <linux/compiler.h> |
|
|
|
static int s390_call__parse(struct arch *arch, struct ins_operands *ops, |
|
struct map_symbol *ms) |
|
{ |
|
char *endptr, *tok, *name; |
|
struct map *map = ms->map; |
|
struct addr_map_symbol target = { |
|
.ms = { .map = map, }, |
|
}; |
|
|
|
tok = strchr(ops->raw, ','); |
|
if (!tok) |
|
return -1; |
|
|
|
ops->target.addr = strtoull(tok + 1, &endptr, 16); |
|
|
|
name = strchr(endptr, '<'); |
|
if (name == NULL) |
|
return -1; |
|
|
|
name++; |
|
|
|
if (arch->objdump.skip_functions_char && |
|
strchr(name, arch->objdump.skip_functions_char)) |
|
return -1; |
|
|
|
tok = strchr(name, '>'); |
|
if (tok == NULL) |
|
return -1; |
|
|
|
*tok = '\0'; |
|
ops->target.name = strdup(name); |
|
*tok = '>'; |
|
|
|
if (ops->target.name == NULL) |
|
return -1; |
|
target.addr = map__objdump_2mem(map, ops->target.addr); |
|
|
|
if (maps__find_ams(ms->maps, &target) == 0 && |
|
map__rip_2objdump(target.ms.map, map->map_ip(target.ms.map, target.addr)) == ops->target.addr) |
|
ops->target.sym = target.ms.sym; |
|
|
|
return 0; |
|
} |
|
|
|
static int call__scnprintf(struct ins *ins, char *bf, size_t size, |
|
struct ins_operands *ops, int max_ins_name); |
|
|
|
static struct ins_ops s390_call_ops = { |
|
.parse = s390_call__parse, |
|
.scnprintf = call__scnprintf, |
|
}; |
|
|
|
static int s390_mov__parse(struct arch *arch __maybe_unused, |
|
struct ins_operands *ops, |
|
struct map_symbol *ms __maybe_unused) |
|
{ |
|
char *s = strchr(ops->raw, ','), *target, *endptr; |
|
|
|
if (s == NULL) |
|
return -1; |
|
|
|
*s = '\0'; |
|
ops->source.raw = strdup(ops->raw); |
|
*s = ','; |
|
|
|
if (ops->source.raw == NULL) |
|
return -1; |
|
|
|
target = ++s; |
|
ops->target.raw = strdup(target); |
|
if (ops->target.raw == NULL) |
|
goto out_free_source; |
|
|
|
ops->target.addr = strtoull(target, &endptr, 16); |
|
if (endptr == target) |
|
goto out_free_target; |
|
|
|
s = strchr(endptr, '<'); |
|
if (s == NULL) |
|
goto out_free_target; |
|
endptr = strchr(s + 1, '>'); |
|
if (endptr == NULL) |
|
goto out_free_target; |
|
|
|
*endptr = '\0'; |
|
ops->target.name = strdup(s + 1); |
|
*endptr = '>'; |
|
if (ops->target.name == NULL) |
|
goto out_free_target; |
|
|
|
return 0; |
|
|
|
out_free_target: |
|
zfree(&ops->target.raw); |
|
out_free_source: |
|
zfree(&ops->source.raw); |
|
return -1; |
|
} |
|
|
|
|
|
static struct ins_ops s390_mov_ops = { |
|
.parse = s390_mov__parse, |
|
.scnprintf = mov__scnprintf, |
|
}; |
|
|
|
static struct ins_ops *s390__associate_ins_ops(struct arch *arch, const char *name) |
|
{ |
|
struct ins_ops *ops = NULL; |
|
|
|
/* catch all kind of jumps */ |
|
if (strchr(name, 'j') || |
|
!strncmp(name, "bct", 3) || |
|
!strncmp(name, "br", 2)) |
|
ops = &jump_ops; |
|
/* override call/returns */ |
|
if (!strcmp(name, "bras") || |
|
!strcmp(name, "brasl") || |
|
!strcmp(name, "basr")) |
|
ops = &s390_call_ops; |
|
if (!strcmp(name, "br")) |
|
ops = &ret_ops; |
|
/* override load/store relative to PC */ |
|
if (!strcmp(name, "lrl") || |
|
!strcmp(name, "lgrl") || |
|
!strcmp(name, "lgfrl") || |
|
!strcmp(name, "llgfrl") || |
|
!strcmp(name, "strl") || |
|
!strcmp(name, "stgrl")) |
|
ops = &s390_mov_ops; |
|
|
|
if (ops) |
|
arch__associate_ins_ops(arch, name, ops); |
|
return ops; |
|
} |
|
|
|
static int s390__cpuid_parse(struct arch *arch, char *cpuid) |
|
{ |
|
unsigned int family; |
|
char model[16], model_c[16], cpumf_v[16], cpumf_a[16]; |
|
int ret; |
|
|
|
/* |
|
* cpuid string format: |
|
* "IBM,family,model-capacity,model[,cpum_cf-version,cpum_cf-authorization]" |
|
*/ |
|
ret = sscanf(cpuid, "%*[^,],%u,%[^,],%[^,],%[^,],%s", &family, model_c, |
|
model, cpumf_v, cpumf_a); |
|
if (ret >= 2) { |
|
arch->family = family; |
|
arch->model = 0; |
|
return 0; |
|
} |
|
|
|
return -1; |
|
} |
|
|
|
static int s390__annotate_init(struct arch *arch, char *cpuid __maybe_unused) |
|
{ |
|
int err = 0; |
|
|
|
if (!arch->initialized) { |
|
arch->initialized = true; |
|
arch->associate_instruction_ops = s390__associate_ins_ops; |
|
if (cpuid) { |
|
if (s390__cpuid_parse(arch, cpuid)) |
|
err = SYMBOL_ANNOTATE_ERRNO__ARCH_INIT_CPUID_PARSING; |
|
} |
|
} |
|
|
|
return err; |
|
}
|
|
|