1 /* 2 * CDDL HEADER START 3 * 4 * The contents of this file are subject to the terms of the 5 * Common Development and Distribution License (the "License"). 6 * You may not use this file except in compliance with the License. 7 * 8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9 * or http://www.opensolaris.org/os/licensing. 10 * See the License for the specific language governing permissions 11 * and limitations under the License. 12 * 13 * When distributing Covered Code, include this CDDL HEADER in each 14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15 * If applicable, add the following below this CDDL HEADER, with the 16 * fields enclosed by brackets "[]" replaced with your own identifying 17 * information: Portions Copyright [yyyy] [name of copyright owner] 18 * 19 * CDDL HEADER END 20 */ 21 22 /* 23 * Copyright 2007 Sun Microsystems, Inc. All rights reserved. 24 * Use is subject to license terms. 25 */ 26 27 /* 28 * Copyright 2007 Jason King. All rights reserved. 29 * Use is subject to license terms. 30 * Copyright 2012 Joshua M. Clulow <josh@sysmgr.org> 31 */ 32 33 /* 34 * The sparc disassembler is mostly straightforward, each instruction is 35 * represented by an inst_t structure. The inst_t definitions are organized 36 * into tables. The tables are correspond to the opcode maps documented in the 37 * various sparc architecture manuals. Each table defines the bit range of the 38 * instruction whose value act as an index into the array of instructions. A 39 * table can also refer to another table if needed. Each table also contains 40 * a function pointer of type format_fcn that knows how to output the 41 * instructions in the table, as well as handle any synthetic instructions 42 * 43 * Unfortunately, the changes from sparcv8 -> sparcv9 not only include new 44 * instructions, they sometimes renamed or just reused the same instruction to 45 * do different operations (i.e. the sparcv8 coprocessor instructions). To 46 * accommodate this, each table can define an overlay table. The overlay table 47 * is a list of (table index, architecture, new instruction definition) values. 48 * 49 * 50 * Traversal starts with the first table, 51 * get index value from the instruction 52 * if an relevant overlay entry exists for this index, 53 * grab the overlay definition 54 * else 55 * grab the definition from the array (corresponding to the index value) 56 * 57 * If the entry is an instruction, 58 * call print function of instruction. 59 * If the entry is a pointer to another table 60 * traverse the table 61 * If not valid, 62 * return an error 63 * 64 * 65 * To keep dis happy, for sparc, instead of actually returning an error, if 66 * the instruction cannot be disassembled, we instead merely place the value 67 * of the instruction into the output buffer. 68 * 69 * Adding new instructions: 70 * 71 * With the above information, it hopefully makes it clear how to add support 72 * for decoding new instructions. Presumably, with new instructions will come 73 * a new dissassembly mode (I.e. DIS_SPARC_V8, DIS_SPARC_V9, etc.). 74 * 75 * If the dissassembled format does not correspond to one of the existing 76 * formats, a new formatter will have to be written. The 'flags' value of 77 * inst_t is intended to instruct the corresponding formatter about how to 78 * output the instruction. 79 * 80 * If the corresponding entry in the correct table is currently unoccupied, 81 * simply replace the INVALID entry with the correct definition. The INST and 82 * TABLE macros are suggested to be used for this. If there is already an 83 * instruction defined, then the entry must be placed in an overlay table. If 84 * no overlay table exists for the instruction table, one will need to be 85 * created. 86 */ 87 88 #include <libdisasm.h> 89 #include <stdlib.h> 90 #include <stdio.h> 91 #include <sys/types.h> 92 #include <sys/byteorder.h> 93 #include <string.h> 94 95 #include "libdisasm_impl.h" 96 #include "dis_sparc.h" 97 98 static const inst_t *dis_get_overlay(dis_handle_t *, const table_t *, 99 uint32_t); 100 static uint32_t dis_get_bits(uint32_t, int, int); 101 102 #if !defined(DIS_STANDALONE) 103 static void do_binary(uint32_t); 104 #endif /* DIS_STANDALONE */ 105 106 static void 107 dis_sparc_handle_detach(dis_handle_t *dhp) 108 { 109 dis_free(dhp->dh_arch_private, sizeof (dis_handle_sparc_t)); 110 dhp->dh_arch_private = NULL; 111 } 112 113 static int 114 dis_sparc_handle_attach(dis_handle_t *dhp) 115 { 116 dis_handle_sparc_t *dhx; 117 118 #if !defined(DIS_STANDALONE) 119 char *opt = NULL; 120 char *opt2, *save, *end; 121 #endif 122 123 /* Validate architecture flags */ 124 if ((dhp->dh_flags & (DIS_SPARC_V8|DIS_SPARC_V9|DIS_SPARC_V9_SGI)) 125 == 0) { 126 (void) dis_seterrno(E_DIS_INVALFLAG); 127 return (-1); 128 } 129 130 if ((dhx = dis_zalloc(sizeof (dis_handle_sparc_t))) == NULL) { 131 (void) dis_seterrno(E_DIS_NOMEM); 132 return (NULL); 133 } 134 dhx->dhx_debug = DIS_DEBUG_COMPAT; 135 dhp->dh_arch_private = dhx; 136 137 #if !defined(DIS_STANDALONE) 138 139 opt = getenv("_LIBDISASM_DEBUG"); 140 if (opt == NULL) 141 return (0); 142 143 opt2 = strdup(opt); 144 if (opt2 == NULL) { 145 dis_handle_destroy(dhp); 146 dis_free(dhx, sizeof (dis_handle_sparc_t)); 147 (void) dis_seterrno(E_DIS_NOMEM); 148 return (-1); 149 } 150 save = opt2; 151 152 while (opt2 != NULL) { 153 end = strchr(opt2, ','); 154 155 if (end != 0) 156 *end++ = '\0'; 157 158 if (strcasecmp("synth-all", opt2) == 0) 159 dhx->dhx_debug |= DIS_DEBUG_SYN_ALL; 160 161 if (strcasecmp("compat", opt2) == 0) 162 dhx->dhx_debug |= DIS_DEBUG_COMPAT; 163 164 if (strcasecmp("synth-none", opt2) == 0) 165 dhx->dhx_debug &= ~(DIS_DEBUG_SYN_ALL|DIS_DEBUG_COMPAT); 166 167 if (strcasecmp("binary", opt2) == 0) 168 dhx->dhx_debug |= DIS_DEBUG_PRTBIN; 169 170 if (strcasecmp("format", opt2) == 0) 171 dhx->dhx_debug |= DIS_DEBUG_PRTFMT; 172 173 if (strcasecmp("all", opt2) == 0) 174 dhx->dhx_debug = DIS_DEBUG_ALL; 175 176 if (strcasecmp("none", opt2) == 0) 177 dhx->dhx_debug = DIS_DEBUG_NONE; 178 179 opt2 = end; 180 } 181 free(save); 182 #endif /* DIS_STANDALONE */ 183 return (0); 184 } 185 186 /* ARGSUSED */ 187 static int 188 dis_sparc_max_instrlen(dis_handle_t *dhp) 189 { 190 return (4); 191 } 192 193 /* ARGSUSED */ 194 static int 195 dis_sparc_min_instrlen(dis_handle_t *dhp) 196 { 197 return (4); 198 } 199 200 /* 201 * The dis_i386.c comment for this says it returns the previous instruction, 202 * however, I'm fairly sure it's actually returning the _address_ of the 203 * nth previous instruction. 204 */ 205 /* ARGSUSED */ 206 static uint64_t 207 dis_sparc_previnstr(dis_handle_t *dhp, uint64_t pc, int n) 208 { 209 if (n <= 0) 210 return (pc); 211 212 if (pc < n) 213 return (pc); 214 215 return (pc - n*4); 216 } 217 218 /* ARGSUSED */ 219 static int 220 dis_sparc_instrlen(dis_handle_t *dhp, uint64_t pc) 221 { 222 return (4); 223 } 224 225 static int 226 dis_sparc_disassemble(dis_handle_t *dhp, uint64_t addr, char *buf, 227 size_t buflen) 228 { 229 dis_handle_sparc_t *dhx = dhp->dh_arch_private; 230 const table_t *tp = &initial_table; 231 const inst_t *inp = NULL; 232 233 uint32_t instr; 234 uint32_t idx = 0; 235 236 if (dhp->dh_read(dhp->dh_data, addr, &instr, sizeof (instr)) != 237 sizeof (instr)) 238 return (-1); 239 240 dhx->dhx_buf = buf; 241 dhx->dhx_buflen = buflen; 242 dhp->dh_addr = addr; 243 244 buf[0] = '\0'; 245 246 /* this allows sparc code to be tested on x86 */ 247 #if !defined(DIS_STANDALONE) 248 instr = BE_32(instr); 249 #endif /* DIS_STANDALONE */ 250 251 #if !defined(DIS_STANDALONE) 252 if ((dhx->dhx_debug & DIS_DEBUG_PRTBIN) != 0) 253 do_binary(instr); 254 #endif /* DIS_STANDALONE */ 255 256 /* CONSTCOND */ 257 while (1) { 258 idx = dis_get_bits(instr, tp->tbl_field, tp->tbl_len); 259 inp = &tp->tbl_inp[idx]; 260 261 inp = dis_get_overlay(dhp, tp, idx); 262 263 if ((inp->in_type == INST_NONE) || 264 ((inp->in_arch & dhp->dh_flags) == 0)) 265 goto error; 266 267 if (inp->in_type == INST_TBL) { 268 tp = inp->in_data.in_tbl; 269 continue; 270 } 271 272 break; 273 } 274 275 if (tp->tbl_fmt(dhp, instr, inp, idx) == 0) 276 return (0); 277 278 error: 279 280 (void) dis_snprintf(buf, buflen, 281 ((dhp->dh_flags & DIS_OCTAL) != 0) ? "0%011lo" : "0x%08lx", 282 instr); 283 284 return (0); 285 } 286 287 static uint32_t 288 dis_get_bits(uint32_t instr, int offset, int length) 289 { 290 uint32_t mask, val; 291 int i; 292 293 for (i = 0, mask = 0; i < length; ++i) 294 mask |= (1UL << i); 295 296 mask = mask << (offset - length + 1); 297 298 val = instr & mask; 299 300 val = val >> (offset - length + 1); 301 302 return (val); 303 } 304 305 static const inst_t * 306 dis_get_overlay(dis_handle_t *dhp, const table_t *tp, uint32_t idx) 307 { 308 const inst_t *ip = &tp->tbl_inp[idx]; 309 int i; 310 311 if (tp->tbl_ovp == NULL) 312 return (ip); 313 314 for (i = 0; tp->tbl_ovp[i].ov_idx != -1; ++i) { 315 if (tp->tbl_ovp[i].ov_idx != idx) 316 continue; 317 318 if ((tp->tbl_ovp[i].ov_inst.in_arch & dhp->dh_flags) == 0) 319 continue; 320 321 ip = &tp->tbl_ovp[i].ov_inst; 322 break; 323 } 324 325 return (ip); 326 } 327 328 #if !defined(DIS_STANDALONE) 329 static void 330 do_binary(uint32_t instr) 331 { 332 (void) fprintf(stderr, "DISASM: "); 333 prt_binary(instr, 32); 334 (void) fprintf(stderr, "\n"); 335 } 336 #endif /* DIS_STANDALONE */ 337 338 static int 339 dis_sparc_supports_flags(int flags) 340 { 341 int archflags = flags & DIS_ARCH_MASK; 342 343 if (archflags == DIS_SPARC_V8 || 344 (archflags & (DIS_SPARC_V9 | DIS_SPARC_V8)) == DIS_SPARC_V9) 345 return (1); 346 347 return (0); 348 } 349 350 const dis_arch_t dis_arch_sparc = { 351 .da_supports_flags = dis_sparc_supports_flags, 352 .da_handle_attach = dis_sparc_handle_attach, 353 .da_handle_detach = dis_sparc_handle_detach, 354 .da_disassemble = dis_sparc_disassemble, 355 .da_previnstr = dis_sparc_previnstr, 356 .da_min_instrlen = dis_sparc_min_instrlen, 357 .da_max_instrlen = dis_sparc_max_instrlen, 358 .da_instrlen = dis_sparc_instrlen 359 }; 360