/*
 * 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 (c) 1997 by Sun Microsystems, Inc.
 * All rights reserved.
 */

/*
 * Kernel Basic Block Profiling - profiling initialization hooks
 */

#include <sys/param.h>
#include <sys/types.h>
#include <sys/t_lock.h>
#include <sys/cpuvar.h>
#include <sys/systm.h>
#include <sys/spl.h>
#include <sys/unix_bb_info.h>

#ifdef KCOV

/*
 * routines to do kernel basic block coverage.
 */

struct bb_info	*unix_bb_list;
lock_t		unix_bb_lock;

/*
 *  There is the potential that we will be called by any C routine.
 *  So we avoid calling any C routines from here, as we'll get
 *  a recursive call.
 *  Also, we wish to avoid a deadlock due to being called by
 *  an interrupt handler, so we lock at the NMI level.
 *  Of course, that leaves the possibility that we'll
 *  be called from an NMI handler.  If the lock is available,
 *  fine, otherwise, if we're on the interrupt stack at the
 *  NMI level, we just return.
 *
 *  We will probably get another chance to add the bb_info structure
 *  to the list, since the bb_info structure is for the entire object file.
 */
#ifdef	KCOV_TEST
int		unix_bb_a, unix_bb_b, unix_bb_c;
int		unix_bb_d, unix_bb_e, unix_bb_f, unix_bb_g;
processorid_t	bb_last_who;
char 		*bb_last_where;
#endif

void
__bb_init_func(struct bb_info *bb)
{
	u_short s;

/*
 *	a = c + g
 *	b = c + d
 *	a = c + e
 *	e = g
 *
 *	a->b->c
 *	a->b->d->e->g
 *	a->b->d->e->f->g
 *	a->e->g
 *	a->e->f->g
 */

	/*
	 *  Raise the pil and try to get the lock.
	 */
	s = spl8();
#ifdef	KCOV_TEST
	unix_bb_a++;
#endif

	if (!lock_try(&unix_bb_lock)) {
		/*
		 *  If we're on the interrrupt stack, we just return
		 *  in case it's an NMI and we're looking at a deadlock
		 *  situation.  Otherwise, we use lock_set_spl()
		 */
#ifdef	KCOV_TEST
		unix_bb_b++;
#endif
		if (CPU_ON_INTR(CPU)) {
#ifdef	KCOV_TEST
			unix_bb_c++;
#endif
			splx(s);
			return;
		}
#ifdef	KCOV_TEST
		unix_bb_d++;
#endif
		splx(s);
		lock_set_spl(&unix_bb_lock, ipltospl(NMI_LEVEL), &s);
	}

#ifdef	KCOV_TEST
	bb_last_who = CPU->cpu_id;
	bb_last_where = bb->bb_filename;
	unix_bb_e++;
#endif
	/*
	 *  We've got the lock.  If we have not been initialized, add us
	 *  to the list and set the initialized flag.
	 */
#ifdef	KCOV_TEST
	if (bb->bb_next == 0) {
		unix_bb_f++;
#else
	if (bb->bb_initflag == 0) {
		bb->bb_initflag = 1;
#endif
		bb->bb_next = unix_bb_list;
		unix_bb_list = bb;
	}

#ifdef	KCOV_TEST
	unix_bb_g++;
#endif
	lock_clear_splx(&unix_bb_lock, s);
}
#endif /* KCOV */