173 lines · c
1// SPDX-License-Identifier: GPL-2.02#include <linux/compiler.h>3 4static int s390_call__parse(struct arch *arch, struct ins_operands *ops,5 struct map_symbol *ms, struct disasm_line *dl __maybe_unused)6{7 char *endptr, *tok, *name;8 struct map *map = ms->map;9 struct addr_map_symbol target = {10 .ms = { .map = map, },11 };12 13 tok = strchr(ops->raw, ',');14 if (!tok)15 return -1;16 17 ops->target.addr = strtoull(tok + 1, &endptr, 16);18 19 name = strchr(endptr, '<');20 if (name == NULL)21 return -1;22 23 name++;24 25 if (arch->objdump.skip_functions_char &&26 strchr(name, arch->objdump.skip_functions_char))27 return -1;28 29 tok = strchr(name, '>');30 if (tok == NULL)31 return -1;32 33 *tok = '\0';34 ops->target.name = strdup(name);35 *tok = '>';36 37 if (ops->target.name == NULL)38 return -1;39 target.addr = map__objdump_2mem(map, ops->target.addr);40 41 if (maps__find_ams(ms->maps, &target) == 0 &&42 map__rip_2objdump(target.ms.map, map__map_ip(target.ms.map, target.addr)) == ops->target.addr)43 ops->target.sym = target.ms.sym;44 45 return 0;46}47 48static struct ins_ops s390_call_ops = {49 .parse = s390_call__parse,50 .scnprintf = call__scnprintf,51};52 53static int s390_mov__parse(struct arch *arch __maybe_unused,54 struct ins_operands *ops,55 struct map_symbol *ms __maybe_unused,56 struct disasm_line *dl __maybe_unused)57{58 char *s = strchr(ops->raw, ','), *target, *endptr;59 60 if (s == NULL)61 return -1;62 63 *s = '\0';64 ops->source.raw = strdup(ops->raw);65 *s = ',';66 67 if (ops->source.raw == NULL)68 return -1;69 70 target = ++s;71 ops->target.raw = strdup(target);72 if (ops->target.raw == NULL)73 goto out_free_source;74 75 ops->target.addr = strtoull(target, &endptr, 16);76 if (endptr == target)77 goto out_free_target;78 79 s = strchr(endptr, '<');80 if (s == NULL)81 goto out_free_target;82 endptr = strchr(s + 1, '>');83 if (endptr == NULL)84 goto out_free_target;85 86 *endptr = '\0';87 ops->target.name = strdup(s + 1);88 *endptr = '>';89 if (ops->target.name == NULL)90 goto out_free_target;91 92 return 0;93 94out_free_target:95 zfree(&ops->target.raw);96out_free_source:97 zfree(&ops->source.raw);98 return -1;99}100 101 102static struct ins_ops s390_mov_ops = {103 .parse = s390_mov__parse,104 .scnprintf = mov__scnprintf,105};106 107static struct ins_ops *s390__associate_ins_ops(struct arch *arch, const char *name)108{109 struct ins_ops *ops = NULL;110 111 /* catch all kind of jumps */112 if (strchr(name, 'j') ||113 !strncmp(name, "bct", 3) ||114 !strncmp(name, "br", 2))115 ops = &jump_ops;116 /* override call/returns */117 if (!strcmp(name, "bras") ||118 !strcmp(name, "brasl") ||119 !strcmp(name, "basr"))120 ops = &s390_call_ops;121 if (!strcmp(name, "br"))122 ops = &ret_ops;123 /* override load/store relative to PC */124 if (!strcmp(name, "lrl") ||125 !strcmp(name, "lgrl") ||126 !strcmp(name, "lgfrl") ||127 !strcmp(name, "llgfrl") ||128 !strcmp(name, "strl") ||129 !strcmp(name, "stgrl"))130 ops = &s390_mov_ops;131 132 if (ops)133 arch__associate_ins_ops(arch, name, ops);134 return ops;135}136 137static int s390__cpuid_parse(struct arch *arch, char *cpuid)138{139 unsigned int family;140 char model[16], model_c[16], cpumf_v[16], cpumf_a[16];141 int ret;142 143 /*144 * cpuid string format:145 * "IBM,family,model-capacity,model[,cpum_cf-version,cpum_cf-authorization]"146 */147 ret = sscanf(cpuid, "%*[^,],%u,%[^,],%[^,],%[^,],%s", &family, model_c,148 model, cpumf_v, cpumf_a);149 if (ret >= 2) {150 arch->family = family;151 arch->model = 0;152 return 0;153 }154 155 return -1;156}157 158static int s390__annotate_init(struct arch *arch, char *cpuid __maybe_unused)159{160 int err = 0;161 162 if (!arch->initialized) {163 arch->initialized = true;164 arch->associate_instruction_ops = s390__associate_ins_ops;165 if (cpuid) {166 if (s390__cpuid_parse(arch, cpuid))167 err = SYMBOL_ANNOTATE_ERRNO__ARCH_INIT_CPUID_PARSING;168 }169 }170 171 return err;172}173