Initial commit of OpenSPARC T2 architecture model.

[OpenSPARC-T2-SAM] / legion / src / procs / sunsparc / debug / dbxrc

#
# Copyright 2007 Sun Microsystems, Inc.  All rights reserved.
# Use is subject to license terms.
#
#ident	"@(#)dbxrc	1.8	07/05/30 SMI"
#
if [ -f $HOME/.dbxrc ]; then
	source $HOME/.dbxrc
fi

debug sim

when in init_threads -temp { stop in debug_hook; }
when in init_threads -temp { when in debug_hook { call debug_dump_pc(); }; }

function simbreak
{
	: ${1?"usage: $0 <pc>		#set a simulation breakpoint at pc"}

	if [ $proc = 0 ]; then
		eval "when in init_threads -temp { call debug_set_breakpoint($1); }"
	else
		call debug_set_breakpoint($1)
	fi
}

function simclearbreak
{
	: ${1?"usage: $0 <pc>		#clear simulation breakpoint at pc"}

	if [ $proc = 0 ]; then
		eval "when in init_threads -temp { call debug_clear_breakpoint($1); }"
	else
		call debug_clear_breakpoint($1)
	fi
}

function simshowbreak
{
	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi

	call debug_print_breakpoints()

}

function simstep
{
	[ -z "$2" ] || { echo "usage: $0 [<n>]" >&2 && return; }

	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi

	if [ -z "$1" ]; then n=1; else n=$1; fi
	while [ $n -gt 0 ]; do
		call debug_set_breakpoint_next()
		cont
		((n -= 1))
	done
}

function simregs
{
	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi

	call debug_regs()
}

function simregsall
{
	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi

	call debug_regs_all()
}

function simmmuregs
{
	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi

	call debug_mmuregs()
}

function simmmuregsall
{
	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi

	call debug_mmuregs_all()
}

function simdumpdtlb
{
	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi

	call debug_dump_dtlb()
}

function simdumpdtlball
{
	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi

	call debug_dump_dtlb_all()
}

function simdumpitlb
{
	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi

	call debug_dump_itlb()
}

function simdumpitlball
{
	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi

	call debug_dump_itlb_all()
}

function simx
{
	: ${1?"usage: $0 <paddr> [<n>]"}

	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi

	if [ -z "$2" ]; then n=1; else n=$2; fi

	call debug_x($1, $n)
}

function simdis
{
	: ${1?"usage: $0 <paddr> [<n>]"}

	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi

	if [ -z "$2" ]; then n=1; else n=$2; fi

	call debug_dis($1, $n)
}

function simfocus
{
	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi

	if [ -z "$1" ]; then
	 call debug_focus_show();
	else
	 call debug_focus_set($1);
	fi
}

function simtrans
{
	: ${1?"usage: $0 <vaddr>"}

	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi

	call debug_trans($1)
}

function simpc
{
	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi

	call debug_dump_pc()
}

function simpcall
{
	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi

	call debug_dump_pc_all()
}

function simscratch
{
	if [ $proc = 0 ]; then
		echo "dbx: sim not active"
		return
	fi

	if [ -z "$1" ]; then
	  call debug_print_scratch(-1)
	else
	  call debug_print_scratch($1)
	fi
}

function simsave
{
	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi
	call debug_initiate_save_state_now()
	echo "type 'cont' on the debugger prompt for the save_state to begin"
}

function simicount
{
	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi
	call debug_print_icount()

}

function simcmpregs
{
	if [ $proc = 0 ]; then
	 echo "dbx: sim not active"
	 return
	fi

	call debug_cmpregs()
}

function simdumpbreak
{
	: ${1?"usage: $0 <fname>	#dump breakpoints to file"}

	if [ $proc = 0 ]; then
		echo "dbx: sim not active"
		return
	fi

	call debug_dump_breakpoints($1)
}

function simrestorebreak
{
	: ${1?"usage: $0 <fname>	#restore breakpoints from file"}

	if [ $proc = 0 ]; then
		echo "dbx: sim not active"
		return
	fi

	call debug_restore_breakpoints($1)
}