/*
 * 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/types.h>
#include <sys/reg.h>
#include <sys/frame.h>
#include <sys/stack.h>
#include <sys/machelf.h>
#include <procfs.h>

#include "rdb.h"

#ifndef STACK_BIAS
#define STACK_BIAS      0
#endif

static int
get_frame(struct ps_prochandle *ph, psaddr_t fp, struct frame *frm)
{
#if     defined(_LP64)
        /*
         * Use special structures to read a 32-bit process
         * from a 64-bit process.
         */
        if (ph->pp_dmodel == PR_MODEL_ILP32) {
                struct frame32  frm32;

                if (ps_pread(ph, (psaddr_t)fp, (char *)&frm32,
                    sizeof (struct frame32)) != PS_OK) {
                        (void) printf("stack trace: bad frame pointer: 0x%lx\n",
                                fp);
                        return (-1);
                }

                frm->fr_savpc = (long)frm32.fr_savpc;
#if     defined(__sparcv9)
                frm->fr_savfp = (struct frame *)(uintptr_t)frm32.fr_savfp;
#elif   defined(__amd64)
                frm->fr_savfp = (long)frm32.fr_savfp;
#endif
                return (0);
        }
#endif  /* defined(_LP64) */

        if (ps_pread(ph, (psaddr_t)fp + STACK_BIAS, (char *)frm,
            sizeof (struct frame)) != PS_OK) {
                (void) printf("stack trace: bad frame pointer: 0x%lx\n", fp);
                return (-1);
        }
        return (0);
}

/*
 * Relatively architecture neutral routine to display the callstack.
 */
void
CallStack(struct ps_prochandle *ph)
{
        pstatus_t       pstatus;
        greg_t          fp;
        struct frame    frm;
        char            *symstr;

        if (pread(ph->pp_statusfd, &pstatus, sizeof (pstatus), 0) == -1)
                perr("cs: reading status");

        symstr = print_address_ps(ph, (ulong_t)pstatus.pr_lwp.pr_reg[R_PC],
            FLG_PAP_SONAME);
        (void) printf(" 0x%08x:%-17s\n", EC_WORD(pstatus.pr_lwp.pr_reg[R_PC]),
            symstr);

        fp = pstatus.pr_lwp.pr_reg[R_FP];

        while (fp) {
                if (get_frame(ph, (psaddr_t)fp, &frm) == -1)
                        return;
                if (frm.fr_savpc) {
                        symstr = print_address_ps(ph, (ulong_t)frm.fr_savpc,
                            FLG_PAP_SONAME);
                        (void) printf(" 0x%08x:%-17s\n", EC_WORD(frm.fr_savpc),
                            symstr);
                }
                fp = (greg_t)frm.fr_savfp;
        }
}