--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/usr/src/cmd/sgs/librtld_db/demo/sparcv9/regs.c	Tue Jul 27 22:49:34 2010 -0700
@@ -0,0 +1,186 @@
+/*
+ * CDDL HEADER START
+ *
+ * The contents of this file are subject to the terms of the
+ * Common Development and Distribution License (the "License").
+ * You may not use this file except in compliance with the License.
+ *
+ * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
+ * or http://www.opensolaris.org/os/licensing.
+ * See the License for the specific language governing permissions
+ * and limitations under the License.
+ *
+ * When distributing Covered Code, include this CDDL HEADER in each
+ * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
+ * If applicable, add the following below this CDDL HEADER, with the
+ * fields enclosed by brackets "[]" replaced with your own identifying
+ * information: Portions Copyright [yyyy] [name of copyright owner]
+ *
+ * CDDL HEADER END
+ */
+
+/*
+ * Copyright (c) 1995, 2010, Oracle and/or its affiliates. All rights reserved.
+ */
+
+#include <stdio.h>
+#include <unistd.h>
+#include <string.h>
+#include <sys/param.h>
+
+#include "rdb.h"
+
+static void
+disp_reg_line(struct ps_prochandle *ph, pstatus_t *prst, char *r1, int ind1,
+    char *r2, int ind2)
+{
+	char	str1[MAXPATHLEN], str2[MAXPATHLEN];
+
+	(void) strcpy(str1, print_address_ps(ph, prst->pr_lwp.pr_reg[ind1],
+	    FLG_PAP_NOHEXNAME));
+
+	(void) strcpy(str2, print_address_ps(ph, prst->pr_lwp.pr_reg[ind2],
+	    FLG_PAP_NOHEXNAME));
+
+	if (ph->pp_dmodel == PR_MODEL_LP64) {
+		/*
+		 *  In 64-bits, the display gets too wide when
+		 *  you have both a 64-bit address and a symbol
+		 *  name, e.g. _GLOBAL_OFFSET_TABLE;  therefore,
+		 *  each is put on a separate line.  This isn't
+		 *  as convenient as the 32-bit display.
+		 */
+		(void) printf("%8s: 0x%08lx %-16s\n", r1,
+		    prst->pr_lwp.pr_reg[ind1], str1);
+		(void) printf("%8s: 0x%08lx %-16s\n", r2,
+		    prst->pr_lwp.pr_reg[ind2], str2);
+	} else
+		(void) printf("%8s: 0x%08lx %-16s %8s: 0x%08lx %-16s\n", r1,
+		    prst->pr_lwp.pr_reg[ind1], str1, r2,
+		    prst->pr_lwp.pr_reg[ind2], str2);
+}
+
+void
+display_local_regs(struct ps_prochandle *ph, pstatus_t *prst)
+{
+	pstatus_t	pstatus;
+
+	if (prst == NULL) {
+		if (pread(ph->pp_statusfd, &pstatus, sizeof (pstatus),
+		    0) == -1) {
+			perror("dar: reading status");
+			return;
+		}
+		prst = &pstatus;
+	}
+	(void) printf("locals:\n");
+	disp_reg_line(ph, prst, "l0", R_L0, "l4", R_L4);
+	disp_reg_line(ph, prst, "l1", R_L1, "l5", R_L5);
+	disp_reg_line(ph, prst, "l2", R_L2, "l6", R_L6);
+	disp_reg_line(ph, prst, "l3", R_L3, "l7", R_L7);
+}
+
+void
+display_out_regs(struct ps_prochandle *ph, pstatus_t *prst)
+{
+	pstatus_t	pstatus;
+
+	if (prst == NULL) {
+		if (pread(ph->pp_statusfd, &pstatus, sizeof (pstatus),
+		    0) == -1) {
+			perror("dar: reading status");
+			return;
+		}
+		prst = &pstatus;
+	}
+	(void) printf("outs:\n");
+	disp_reg_line(ph, prst, "o0", R_O0, "o4", R_O4);
+	disp_reg_line(ph, prst, "o1", R_O1, "o5", R_O5);
+	disp_reg_line(ph, prst, "o2", R_O2, "o6(sp)", R_O6);
+	disp_reg_line(ph, prst, "o3", R_O3, "o7", R_O7);
+}
+
+void
+display_special_regs(struct ps_prochandle *ph, pstatus_t *prst)
+{
+	pstatus_t	pstatus;
+
+	if (prst == NULL) {
+		if (pread(ph->pp_statusfd, &pstatus, sizeof (pstatus),
+		    0) == -1) {
+			perror("dar: reading status");
+			return;
+		}
+		prst = &pstatus;
+	}
+	(void) printf("specials:\n");
+	if (ph->pp_dmodel == PR_MODEL_LP64) {
+		disp_reg_line(ph, prst, "ccr", R_CCR, "pc", R_PC);
+		disp_reg_line(ph, prst, "npc", R_nPC, "Y", R_Y);
+		disp_reg_line(ph, prst, "asi", R_ASI, "FPRS", R_FPRS);
+	} else {
+		disp_reg_line(ph, prst, "psr", R_PSR, "pc", R_PC);
+		disp_reg_line(ph, prst, "npc", R_nPC, "Y", R_Y);
+		disp_reg_line(ph, prst, "wim", R_WIM, "TBR", R_TBR);
+	}
+}
+
+void
+display_global_regs(struct ps_prochandle *ph, pstatus_t *prst)
+{
+	pstatus_t	pstatus;
+
+	if (prst == NULL) {
+		if (pread(ph->pp_statusfd, &pstatus, sizeof (pstatus),
+		    0) == -1) {
+			perror("dar: reading status");
+			return;
+		}
+		prst = &pstatus;
+	}
+	(void) printf("globals:\n");
+	disp_reg_line(ph, prst, "g0", R_G0, "g4", R_G4);
+	disp_reg_line(ph, prst, "g1", R_G1, "g5", R_G5);
+	disp_reg_line(ph, prst, "g2", R_G2, "g6", R_G6);
+	disp_reg_line(ph, prst, "g3", R_G3, "g7", R_G7);
+}
+
+void
+display_in_regs(struct ps_prochandle *ph, pstatus_t *prst)
+{
+	pstatus_t	pstatus;
+
+	if (prst == NULL) {
+		if (pread(ph->pp_statusfd, &pstatus, sizeof (pstatus),
+		    0) == -1) {
+			perror("dar: reading status");
+			return;
+		}
+		prst = &pstatus;
+	}
+	(void) printf("ins:\n");
+	disp_reg_line(ph, prst, "i0", R_I0, "i4", R_I4);
+	disp_reg_line(ph, prst, "i1", R_I1, "i5", R_I5);
+	disp_reg_line(ph, prst, "i2", R_I2, "i6(fp)", R_I6);
+	disp_reg_line(ph, prst, "i3", R_I3, "i7", R_I7);
+
+}
+
+retc_t
+display_all_regs(struct ps_prochandle *ph)
+{
+	pstatus_t	pstatus;
+
+	if (pread(ph->pp_statusfd, &pstatus, sizeof (pstatus),
+	    0) == -1) {
+		perror("dar: reading status");
+		return (RET_FAILED);
+	}
+	display_global_regs(ph, &pstatus);
+	display_in_regs(ph, &pstatus);
+	display_local_regs(ph, &pstatus);
+	display_out_regs(ph, &pstatus);
+	display_special_regs(ph, &pstatus);
+
+	return (RET_OK);
+}