/*
 * 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) 1992, 2010, Oracle and/or its affiliates. All rights reserved.
 */

/*
 * Adr memory based encoding
 */

#include <sys/feature_tests.h>

#pragma weak adr_ushort = adr_short
#pragma weak adr_uint32 = adr_int32
#pragma weak adr_uint64 = adr_int64
#pragma weak adr_getushort = adr_getshort
#pragma weak adr_getuint32 = adr_getint32
#pragma weak adr_getuint64 = adr_getint64

#include <sys/types.h>
#include <sys/t_lock.h>
#include <sys/systm.h>
#include <sys/mutex.h>
#include <sys/thread.h>
#include <c2/audit.h>
#include <c2/audit_kernel.h>
#include <c2/audit_record.h>

void
adr_start(adr_t *adr, char *p)
{
        adr->adr_stream = p;
        adr->adr_now = p;
}

int
adr_count(adr_t *adr)
{
        return ((int)((uintptr_t)adr->adr_now - (uintptr_t)adr->adr_stream));
}


/*
 * adr_char - pull out characters
 */
void
adr_char(adr_t *adr, char *cp, int count)
{
        while (count-- > 0)
                *adr->adr_now++ = *cp++;
}

/*
 * adr_short - pull out shorts
 */
void
adr_short(adr_t *adr, short *sp, int count)
{

        for (; count-- > 0; sp++) {
                *adr->adr_now++ = (char)((*sp >> (int)8) & 0x00ff);
                *adr->adr_now++ = (char)(*sp & 0x00ff);
        }
}

/*
 * adr_int32 - pull out int32
 */
void
adr_int32(adr_t *adr, int32_t *lp, int count)
{
        int i;          /* index for counting */
        int32_t l;              /* value for shifting */

        for (; count-- > 0; lp++) {
                for (i = 0, l = *lp; i < 4; i++) {
                        *adr->adr_now++ = (char)((l & (int32_t)0xff000000) >>
                            (int)24);
                        l <<= (int)8;
                }
        }
}

/*
 * adr_int64 - pull out int64
 */
void
adr_int64(adr_t *adr, int64_t *lp, int count)
{
        int i;          /* index for counting */
        int64_t l;      /* value for shifting */

        for (; count-- > 0; lp++) {
                for (i = 0, l = *lp; i < 8; i++) {
                        *adr->adr_now++ =
                            (char)((l & (int64_t)0xff00000000000000) >>
                            (int)56);
                        l <<= (int)8;
                }
        }
}


char *
adr_getchar(adr_t *adr, char *cp)
{
        char    *old;

        old = adr->adr_now;
        *cp = *adr->adr_now++;
        return (old);
}

char *
adr_getshort(adr_t *adr, short  *sp)
{
        char    *old;

        old = adr->adr_now;
        *sp = *adr->adr_now++;
        *sp >>= (int)8;
        *sp = *adr->adr_now++;
        *sp >>= (int)8;
        return (old);
}

char *
adr_getint32(adr_t *adr, int32_t *lp)
{
        char    *old;
        int     i;

        old = adr->adr_now;
        for (i = 0; i < 4; i++) {
                *lp <<= 8;
                *lp += ((int32_t)*adr->adr_now++) & 0x000000ff;

        }
        return (old);
}

char *
adr_getint64(adr_t *adr, int64_t *lp)
{
        char    *old;
        int     i;

        old = adr->adr_now;
        for (i = 0; i < 8; i++) {
                *lp <<= 8;
                *lp += ((int64_t)*adr->adr_now++) & 0x00000000000000ff;
        }
        return (old);
}