Subversion Repositories planix.SVN

/*
 * code to keep track of registers
 */

#include "defs.h"
#include "fns.h"

/*
 * translate a name to a magic register offset
 */
Reglist*
rname(char *name)
{
        Reglist *rp;

        for (rp = mach->reglist; rp->rname; rp++)
                if (strcmp(name, rp->rname) == 0)
                        return rp;
        return 0;
}

static uvlong
getreg(Map *map, Reglist *rp)
{
        uvlong v;
        ulong w;
        ushort s;
        int ret;

        v = 0;
        ret = 0;
        switch (rp->rformat)
        {
        case 'x':
                ret = get2(map, rp->roffs, &s);
                v = s;
                break;
        case 'f':
        case 'X':
                ret = get4(map, rp->roffs, &w);
                v = w;
                break;
        case 'F':
        case 'W':
        case 'Y':
                ret = get8(map, rp->roffs, &v);
                break;
        default:
                werrstr("can't retrieve register %s", rp->rname);
                error("%r");
        }
        if (ret < 0) {
                werrstr("Register %s: %r", rp->rname);
                error("%r");
        }
        return v;
}

uvlong
rget(Map *map, char *name)
{
        Reglist *rp;

        rp = rname(name);
        if (!rp)
                error("invalid register name");
        return getreg(map, rp);
}

void
rput(Map *map, char *name, vlong v)
{
        Reglist *rp;
        int ret;

        rp = rname(name);
        if (!rp)
                error("invalid register name");
        if (rp->rflags & RRDONLY)
                error("register is read-only");
        switch (rp->rformat)
        {
        case 'x':
                ret = put2(map, rp->roffs, (ushort) v);
                break;
        case 'X':
        case 'f':
        case 'F':
                ret = put4(map, rp->roffs, (long) v);
                break;
        case 'Y':
                ret = put8(map, rp->roffs, v);
                break;
        default:
                ret = -1;
        }
        if (ret < 0)
                error("can't write register");
}
/*
 * print the registers
 */
void
printregs(int c)
{
        Reglist *rp;
        int i;
        uvlong v;

        for (i = 1, rp = mach->reglist; rp->rname; rp++, i++) {
                if ((rp->rflags & RFLT)) {
                        if (c != 'R')
                                continue;
                        if (rp->rformat == '8' || rp->rformat == '3')
                                continue;
                }
                v = getreg(cormap, rp);
                if(rp->rformat == 'Y')
                        dprint("%-8s %-20#llux", rp->rname, v);
                else
                        dprint("%-8s %-12#lux", rp->rname, (ulong)v);
                if ((i % 3) == 0) {
                        dprint("\n");
                        i = 0;
                }
        }
        if (i != 1)
                dprint("\n");
        dprint ("%s\n", machdata->excep(cormap, rget));
        printpc();
}