hsdis-demo.c revision 1472:c18cbe5936b8
1/* 2 * Copyright (c) 2008, 2009, Oracle and/or its affiliates. All rights reserved. 3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4 * 5 * This code is free software; you can redistribute it and/or modify it 6 * under the terms of the GNU General Public License version 2 only, as 7 * published by the Free Software Foundation. 8 * 9 * This code is distributed in the hope that it will be useful, but WITHOUT 10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 12 * version 2 for more details (a copy is included in the LICENSE file that 13 * accompanied this code). 14 * 15 * You should have received a copy of the GNU General Public License version 16 * 2 along with this work; if not, write to the Free Software Foundation, 17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. 18 * 19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA 20 * or visit www.oracle.com if you need additional information or have any 21 * questions. 22 * 23 */ 24 25/* hsdis-demo.c -- dump a range of addresses as native instructions 26 This demonstrates the protocol required by the HotSpot PrintAssembly option. 27*/ 28 29#include "hsdis.h" 30 31#include "stdio.h" 32#include "stdlib.h" 33#include "string.h" 34 35void greet(const char*); 36void disassemble(void*, void*); 37void end_of_file(); 38 39const char* options = NULL; 40int raw = 0; 41int xml = 0; 42 43int main(int ac, char** av) { 44 int greeted = 0; 45 int i; 46 for (i = 1; i < ac; i++) { 47 const char* arg = av[i]; 48 if (arg[0] == '-') { 49 if (!strcmp(arg, "-xml")) 50 xml ^= 1; 51 else if (!strcmp(arg, "-raw")) 52 raw ^= 1; 53 else if (!strncmp(arg, "-options=", 9)) 54 options = arg+9; 55 else 56 { printf("Usage: %s [-xml] [name...]\n", av[0]); exit(2); } 57 continue; 58 } 59 greet(arg); 60 greeted = 1; 61 } 62 if (!greeted) 63 greet("world"); 64 printf("...And now for something completely different:\n"); 65 disassemble((void*) &main, (void*) &end_of_file); 66 printf("Cheers!\n"); 67} 68 69void greet(const char* whom) { 70 printf("Hello, %s!\n", whom); 71} 72 73void end_of_file() { } 74 75/* don't disassemble after this point... */ 76 77#include "dlfcn.h" 78 79#define DECODE_INSTRUCTIONS_NAME "decode_instructions" 80#define HSDIS_NAME "hsdis" 81static void* decode_instructions_pv = 0; 82static const char* hsdis_path[] = { 83 HSDIS_NAME"-"LIBARCH LIB_EXT, 84 "./" HSDIS_NAME"-"LIBARCH LIB_EXT, 85#ifdef TARGET_DIR 86 TARGET_DIR"/"HSDIS_NAME"-"LIBARCH LIB_EXT, 87#endif 88 NULL 89}; 90 91static const char* load_decode_instructions() { 92 void* dllib = NULL; 93 const char* *next_in_path = hsdis_path; 94 while (1) { 95 decode_instructions_pv = dlsym(dllib, DECODE_INSTRUCTIONS_NAME); 96 if (decode_instructions_pv != NULL) 97 return NULL; 98 if (dllib != NULL) 99 return "plugin does not defined "DECODE_INSTRUCTIONS_NAME; 100 for (dllib = NULL; dllib == NULL; ) { 101 const char* next_lib = (*next_in_path++); 102 if (next_lib == NULL) 103 return "cannot find plugin "HSDIS_NAME LIB_EXT; 104 dllib = dlopen(next_lib, RTLD_LAZY); 105 } 106 } 107} 108 109 110static const char* lookup(void* addr) { 111#define CHECK_NAME(fn) \ 112 if (addr == (void*) &fn) return #fn; 113 114 CHECK_NAME(main); 115 CHECK_NAME(greet); 116 return NULL; 117} 118 119/* does the event match the tag, followed by a null, space, or slash? */ 120#define MATCH(event, tag) \ 121 (!strncmp(event, tag, sizeof(tag)-1) && \ 122 (!event[sizeof(tag)-1] || strchr(" /", event[sizeof(tag)-1]))) 123 124 125static const char event_cookie[] = "event_cookie"; /* demo placeholder */ 126static void* handle_event(void* cookie, const char* event, void* arg) { 127#define NS_DEMO "demo:" 128 if (cookie != event_cookie) 129 printf("*** bad event cookie %p != %p\n", cookie, event_cookie); 130 131 if (xml) { 132 /* We could almost do a printf(event, arg), 133 but for the sake of a better demo, 134 we dress the result up as valid XML. 135 */ 136 const char* fmt = strchr(event, ' '); 137 int evlen = (fmt ? fmt - event : strlen(event)); 138 if (!fmt) { 139 if (event[0] != '/') { 140 printf("<"NS_DEMO"%.*s>", evlen, event); 141 } else { 142 printf("</"NS_DEMO"%.*s>", evlen-1, event+1); 143 } 144 } else { 145 if (event[0] != '/') { 146 printf("<"NS_DEMO"%.*s", evlen, event); 147 printf(fmt, arg); 148 printf(">"); 149 } else { 150 printf("<"NS_DEMO"%.*s_done", evlen-1, event+1); 151 printf(fmt, arg); 152 printf("/></"NS_DEMO"%.*s>", evlen-1, event+1); 153 } 154 } 155 } 156 157 if (MATCH(event, "insn")) { 158 const char* name = lookup(arg); 159 if (name) printf("%s:\n", name); 160 161 /* basic action for <insn>: */ 162 printf(" %p\t", arg); 163 164 } else if (MATCH(event, "/insn")) { 165 /* basic action for </insn>: 166 (none, plugin puts the newline for us 167 */ 168 169 } else if (MATCH(event, "mach")) { 170 printf("Decoding for CPU '%s'\n", (char*) arg); 171 172 } else if (MATCH(event, "addr")) { 173 /* basic action for <addr/>: */ 174 const char* name = lookup(arg); 175 if (name) { 176 printf("&%s (%p)", name, arg); 177 /* return non-null to notify hsdis not to print the addr */ 178 return arg; 179 } 180 } 181 182 /* null return is always safe; can mean "I ignored it" */ 183 return NULL; 184} 185 186#define fprintf_callback \ 187 (decode_instructions_printf_callback_ftype)&fprintf 188 189void disassemble(void* from, void* to) { 190 const char* err = load_decode_instructions(); 191 if (err != NULL) { 192 printf("%s: %s\n", err, dlerror()); 193 exit(1); 194 } 195 printf("Decoding from %p to %p...\n", from, to); 196 decode_instructions_ftype decode_instructions 197 = (decode_instructions_ftype) decode_instructions_pv; 198 void* res; 199 if (raw && xml) { 200 res = (*decode_instructions)(from, to, NULL, stdout, NULL, stdout, options); 201 } else if (raw) { 202 res = (*decode_instructions)(from, to, NULL, NULL, NULL, stdout, options); 203 } else { 204 res = (*decode_instructions)(from, to, 205 handle_event, (void*) event_cookie, 206 fprintf_callback, stdout, 207 options); 208 } 209 if (res != to) 210 printf("*** Result was %p!\n", res); 211} 212