• file
• revisions
• annotate
• diff
• comparison
• raw

src/cpu/sparc/vm/disassembler_sparc.cpp@a61af66fc99e (annotated)

src/cpu/sparc/vm/disassembler_sparc.cpp

Sat, 01 Dec 2007 00:00:00 +0000

author

duke

date

Sat, 01 Dec 2007 00:00:00 +0000

changeset 435

a61af66fc99e

permissions

-rw-r--r--

Initial load

duke@435	1	/*
duke@435	2	* Copyright 1997-2007 Sun Microsystems, Inc. All Rights Reserved.
duke@435	3	* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
duke@435	4	*
duke@435	5	* This code is free software; you can redistribute it and/or modify it
duke@435	6	* under the terms of the GNU General Public License version 2 only, as
duke@435	7	* published by the Free Software Foundation.
duke@435	8	*
duke@435	9	* This code is distributed in the hope that it will be useful, but WITHOUT
duke@435	10	* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
duke@435	11	* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
duke@435	12	* version 2 for more details (a copy is included in the LICENSE file that
duke@435	13	* accompanied this code).
duke@435	14	*
duke@435	15	* You should have received a copy of the GNU General Public License version
duke@435	16	* 2 along with this work; if not, write to the Free Software Foundation,
duke@435	17	* Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
duke@435	18	*
duke@435	19	* Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
duke@435	20	* CA 95054 USA or visit www.sun.com if you need additional information or
duke@435	21	* have any questions.
duke@435	22	*
duke@435	23	*/
duke@435	24
duke@435	25	# include "incls/_precompiled.incl"
duke@435	26	# include "incls/_disassembler_sparc.cpp.incl"
duke@435	27
duke@435	28	#ifndef PRODUCT
duke@435	29
duke@435	30	#define SPARC_VERSION (VM_Version::v9_instructions_work()? \
duke@435	31	(VM_Version::v8_instructions_work()? "" : "9") : "8")
duke@435	32
duke@435	33	// This routine is in the shared library:
duke@435	34	typedef unsigned char* print_insn_sparc_t(unsigned char* start, DisassemblerEnv* env,
duke@435	35	const char* sparc_version);
duke@435	36
duke@435	37	void* Disassembler::_library = NULL;
duke@435	38	dll_func Disassembler::_print_insn_sparc = NULL;
duke@435	39
duke@435	40	bool Disassembler::load_library() {
duke@435	41	if (_library == NULL) {
duke@435	42	char buf[1024];
duke@435	43	char ebuf[1024];
duke@435	44	sprintf(buf, "disassembler%s", os::dll_file_extension());
duke@435	45	_library = hpi::dll_load(buf, ebuf, sizeof ebuf);
duke@435	46	if (_library != NULL) {
duke@435	47	tty->print_cr("Loaded disassembler");
duke@435	48	_print_insn_sparc = CAST_TO_FN_PTR(dll_func, hpi::dll_lookup(_library, "print_insn_sparc"));
duke@435	49	}
duke@435	50	}
duke@435	51	return (_library != NULL) && (_print_insn_sparc != NULL);
duke@435	52	}
duke@435	53
duke@435	54
duke@435	55	class sparc_env : public DisassemblerEnv {
duke@435	56	private:
duke@435	57	nmethod* code;
duke@435	58	outputStream* output;
duke@435	59	const char* version;
duke@435	60
duke@435	61	static void print_address(address value, outputStream* st);
duke@435	62
duke@435	63	public:
duke@435	64	sparc_env(nmethod* rcode, outputStream* routput) {
duke@435	65	code = rcode;
duke@435	66	output = routput;
duke@435	67	version = SPARC_VERSION;
duke@435	68	}
duke@435	69	const char* sparc_version() { return version; }
duke@435	70	void print_label(intptr_t value);
duke@435	71	void print_raw(char* str) { output->print_raw(str); }
duke@435	72	void print(char* format, ...);
duke@435	73	char* string_for_offset(intptr_t value);
duke@435	74	char* string_for_constant(unsigned char* pc, intptr_t value, int is_decimal);
duke@435	75	};
duke@435	76
duke@435	77
duke@435	78	void sparc_env::print_address(address adr, outputStream* st) {
duke@435	79	if (!Universe::is_fully_initialized()) {
duke@435	80	st->print(INTPTR_FORMAT, (intptr_t)adr);
duke@435	81	return;
duke@435	82	}
duke@435	83	if (StubRoutines::contains(adr)) {
duke@435	84	StubCodeDesc *desc = StubCodeDesc::desc_for(adr);
duke@435	85	if (desc == NULL)
duke@435	86	desc = StubCodeDesc::desc_for(adr + frame::pc_return_offset);
duke@435	87	if (desc == NULL)
duke@435	88	st->print("Unknown stub at " INTPTR_FORMAT, adr);
duke@435	89	else {
duke@435	90	st->print("Stub::%s", desc->name());
duke@435	91	if (desc->begin() != adr)
duke@435	92	st->print("%+d 0x%p",adr - desc->begin(), adr);
duke@435	93	else if (WizardMode) st->print(" " INTPTR_FORMAT, adr);
duke@435	94	}
duke@435	95	} else {
duke@435	96	BarrierSet* bs = Universe::heap()->barrier_set();
duke@435	97	if (bs->kind() == BarrierSet::CardTableModRef &&
duke@435	98	adr == (address)((CardTableModRefBS*)(bs))->byte_map_base) {
duke@435	99	st->print("word_map_base");
duke@435	100	if (WizardMode) st->print(" " INTPTR_FORMAT, (intptr_t)adr);
duke@435	101	} else {
duke@435	102	st->print(INTPTR_FORMAT, (intptr_t)adr);
duke@435	103	}
duke@435	104	}
duke@435	105	}
duke@435	106
duke@435	107
duke@435	108	// called by the disassembler to print out jump addresses
duke@435	109	void sparc_env::print_label(intptr_t value) {
duke@435	110	print_address((address) value, output);
duke@435	111	}
duke@435	112
duke@435	113	void sparc_env::print(char* format, ...) {
duke@435	114	va_list ap;
duke@435	115	va_start(ap, format);
duke@435	116	output->vprint(format, ap);
duke@435	117	va_end(ap);
duke@435	118	}
duke@435	119
duke@435	120	char* sparc_env::string_for_offset(intptr_t value) {
duke@435	121	stringStream st;
duke@435	122	print_address((address) value, &st);
duke@435	123	return st.as_string();
duke@435	124	}
duke@435	125
duke@435	126	char* sparc_env::string_for_constant(unsigned char* pc, intptr_t value, int is_decimal) {
duke@435	127	stringStream st;
duke@435	128	oop obj;
duke@435	129	if (code && (obj = code->embeddedOop_at(pc)) != NULL) {
duke@435	130	obj->print_value_on(&st);
duke@435	131	} else
duke@435	132	{
duke@435	133	print_address((address) value, &st);
duke@435	134	}
duke@435	135	return st.as_string();
duke@435	136	}
duke@435	137
duke@435	138
duke@435	139	address Disassembler::decode_instruction(address start, DisassemblerEnv* env) {
duke@435	140	const char* version = ((sparc_env*)env)->sparc_version();
duke@435	141	return ((print_insn_sparc_t*) _print_insn_sparc)(start, env, version);
duke@435	142	}
duke@435	143
duke@435	144
duke@435	145	const int show_bytes = false; // for disassembler debugging
duke@435	146
duke@435	147
duke@435	148	void Disassembler::decode(CodeBlob* cb, outputStream* st) {
duke@435	149	st = st ? st : tty;
duke@435	150	st->print_cr("Decoding CodeBlob " INTPTR_FORMAT, cb);
duke@435	151	decode(cb->instructions_begin(), cb->instructions_end(), st);
duke@435	152	}
duke@435	153
duke@435	154
duke@435	155	void Disassembler::decode(u_char* begin, u_char* end, outputStream* st) {
duke@435	156	assert ((((intptr_t)begin | (intptr_t)end) % sizeof(int) == 0), "misaligned insn addr");
duke@435	157	st = st ? st : tty;
duke@435	158	if (!load_library()) {
duke@435	159	st->print_cr("Could not load disassembler");
duke@435	160	return;
duke@435	161	}
duke@435	162	sparc_env env(NULL, st);
duke@435	163	unsigned char* p = (unsigned char*) begin;
duke@435	164	CodeBlob* cb = CodeCache::find_blob_unsafe(begin);
duke@435	165	while (p < (unsigned char*) end && p) {
duke@435	166	if (cb != NULL) {
duke@435	167	cb->print_block_comment(st, (intptr_t)(p - cb->instructions_begin()));
duke@435	168	}
duke@435	169
duke@435	170	unsigned char* p0 = p;
duke@435	171	st->print(INTPTR_FORMAT ": ", p);
duke@435	172	p = decode_instruction(p, &env);
duke@435	173	if (show_bytes && p) {
duke@435	174	st->print("\t\t\t");
duke@435	175	while (p0 < p) { st->print("%08lx ", *(int*)p0); p0 += sizeof(int); }
duke@435	176	}
duke@435	177	st->cr();
duke@435	178	}
duke@435	179	}
duke@435	180
duke@435	181
duke@435	182	void Disassembler::decode(nmethod* nm, outputStream* st) {
duke@435	183	st = st ? st : tty;
duke@435	184
duke@435	185	st->print_cr("Decoding compiled method " INTPTR_FORMAT ":", nm);
duke@435	186	st->print("Code:");
duke@435	187	st->cr();
duke@435	188
duke@435	189	if (!load_library()) {
duke@435	190	st->print_cr("Could not load disassembler");
duke@435	191	return;
duke@435	192	}
duke@435	193	sparc_env env(nm, st);
duke@435	194	unsigned char* p = nm->instructions_begin();
duke@435	195	unsigned char* end = nm->instructions_end();
duke@435	196	assert ((((intptr_t)p | (intptr_t)end) % sizeof(int) == 0), "misaligned insn addr");
duke@435	197
duke@435	198	unsigned char *p1 = p;
duke@435	199	int total_bucket_count = 0;
duke@435	200	while (p1 < end && p1) {
duke@435	201	unsigned char *p0 = p1;
duke@435	202	++p1;
duke@435	203	address bucket_pc = FlatProfiler::bucket_start_for(p1);
duke@435	204	if (bucket_pc != NULL && bucket_pc > p0 && bucket_pc <= p1)
duke@435	205	total_bucket_count += FlatProfiler::bucket_count_for(p0);
duke@435	206	}
duke@435	207
duke@435	208	while (p < end && p) {
duke@435	209	if (p == nm->entry_point()) st->print_cr("[Entry Point]");
duke@435	210	if (p == nm->verified_entry_point()) st->print_cr("[Verified Entry Point]");
duke@435	211	if (p == nm->exception_begin()) st->print_cr("[Exception Handler]");
duke@435	212	if (p == nm->stub_begin()) st->print_cr("[Stub Code]");
duke@435	213	if (p == nm->consts_begin()) st->print_cr("[Constants]");
duke@435	214	nm->print_block_comment(st, (intptr_t)(p - nm->instructions_begin()));
duke@435	215	unsigned char* p0 = p;
duke@435	216	st->print(" " INTPTR_FORMAT ": ", p);
duke@435	217	p = decode_instruction(p, &env);
duke@435	218	nm->print_code_comment_on(st, 40, p0, p);
duke@435	219	st->cr();
duke@435	220	// Output pc bucket ticks if we have any
duke@435	221	address bucket_pc = FlatProfiler::bucket_start_for(p);
duke@435	222	if (bucket_pc != NULL && bucket_pc > p0 && bucket_pc <= p) {
duke@435	223	int bucket_count = FlatProfiler::bucket_count_for(p0);
duke@435	224	tty->print_cr("%3.1f%% [%d]", bucket_count*100.0/total_bucket_count, bucket_count);
duke@435	225	tty->cr();
duke@435	226	}
duke@435	227	}
duke@435	228	}
duke@435	229
duke@435	230	#endif // PRODUCT