libproc/common/pr_meminfo.c

/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (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 2002 Sun Microsystems, Inc. All rights reserved.
 * Use is subject to license terms.
 */

#pragma ident   "%Z%%M% %I% %E% SMI"

#include <stdlib.h>
#include <unistd.h>
#include <errno.h>
#include <sys/types.h>
#include <sys/mman.h>
#include "libproc.h"
#include "Pcontrol.h"
#include "Putil.h"


int
pr_meminfo(struct ps_prochandle *Pr, const uint64_t *addrs,
    int addr_count, const uint_t *info, int info_count,
    uint64_t *outdata, uint_t *validity)
{


    int error;
    sysret_t rval;
    argdes_t argd[7];
    argdes_t *adp = &argd[0];
    struct meminfo m;
#ifdef _LP64
    struct meminfo32 m32;
    int model;
#endif
    int retval = -1;
    uintptr_t inaddr, infoaddr, outaddr, validityaddr;
    size_t outarraysize, infoarraysize;
    size_t inarraysize, validityarraysize;
    size_t totalsize;
    char *totalmap = MAP_FAILED;

    inarraysize = addr_count * sizeof (uint64_t);
    outarraysize = sizeof (uint64_t) * addr_count * info_count;
    infoarraysize = info_count * sizeof (uint_t);
    validityarraysize = sizeof (uint_t) * addr_count;


    totalsize = inarraysize + outarraysize + infoarraysize +
        validityarraysize;

    if ((totalmap  = pr_zmap(Pr, 0, totalsize, PROT_READ | PROT_WRITE,
        MAP_PRIVATE)) == MAP_FAILED) {
        dprintf("pr_meminfo: mmap failed\n");
        goto out;
    }

    inaddr = (uintptr_t)totalmap;

    outaddr = inaddr + inarraysize;

    infoaddr = outaddr + outarraysize;

    validityaddr = infoaddr + infoarraysize;

    if (Pwrite(Pr, addrs, inarraysize, inaddr) != inarraysize) {
        dprintf("pr_meminfo: Pwrite inaddr failed \n");
        goto out;
    }

    if (Pwrite(Pr, info, infoarraysize, infoaddr) !=
        infoarraysize) {
        dprintf("pr_meminfo: Pwrite info failed \n");
        goto out;
    }

#ifdef _LP64
    model = Pr->status.pr_dmodel;
    if (model == PR_MODEL_ILP32) {
        m32.mi_info_count = info_count;
        m32.mi_inaddr = (caddr32_t)inaddr;
        m32.mi_outdata = (caddr32_t)outaddr;
        m32.mi_info_req = (caddr32_t)infoaddr;
        m32.mi_validity = (caddr32_t)validityaddr;
    } else
#endif
    {
        m.mi_info_count = info_count;
        m.mi_inaddr = (uint64_t *)inaddr;
        m.mi_outdata = (uint64_t *)outaddr;
        m.mi_info_req = (uint_t *)infoaddr;
        m.mi_validity = (uint_t *)validityaddr;
    }


    /*
     * initial command
     */

    adp->arg_value = MISYS_MEMINFO;
    adp->arg_object = NULL;
    adp->arg_type = AT_BYVAL;
    adp->arg_inout = AI_INPUT;
    adp->arg_size = 0;
    adp++;

    /*
     * length of input address vector
     */

    adp->arg_value = addr_count;
    adp->arg_object = NULL;
    adp->arg_type = AT_BYVAL;
    adp->arg_inout = AI_INPUT;
    adp->arg_size = 0;
    adp++;

    /*
     * information wanted vector
     */

    adp->arg_value = 0;
#ifdef _LP64
    if (model == PR_MODEL_ILP32) {
        adp->arg_object = &m32;
        adp->arg_size = sizeof (struct meminfo32);
    } else
#endif
    {
        adp->arg_object = &m;
        adp->arg_size = sizeof (struct meminfo);
    }
    adp->arg_type = AT_BYREF;
    adp->arg_inout = AI_INPUT;


    error = Psyscall(Pr,  &rval, SYS_meminfosys, 3, &argd[0]);

    if (error) {
        errno = (error > 0) ? error: ENOSYS;
        goto out;
    }

    /* syscall was successful, copy out the data */

    if ((Pread(Pr, outdata, outarraysize, outaddr)) != outarraysize) {
        dprintf("pr_meminfo: Pread of outarray failed\n");
        goto out;
    }

    if (Pread(Pr, validity, validityarraysize, validityaddr)
        != validityarraysize) {
        dprintf("pr_meminfo: Pread of validity array failed\n");
        goto out;
    }

    retval = rval.sys_rval1;

out:

    if (totalmap != MAP_FAILED &&
        pr_munmap(Pr, totalmap, totalsize) == -1) {
            dprintf("pr_meminfo: munmap failed\n");
            retval = -1;
        }

    return (retval);

}