xnu-517.3.15.tar.gz

[apple/xnu.git] / osfmk / ppc / interrupt.c

/*
 * Copyright (c) 2000 Apple Computer, Inc. All rights reserved.
 *
 * @APPLE_LICENSE_HEADER_START@
 * 
 * Copyright (c) 1999-2003 Apple Computer, Inc.  All Rights Reserved.
 * 
 * This file contains Original Code and/or Modifications of Original Code
 * as defined in and that are subject to the Apple Public Source License
 * Version 2.0 (the 'License'). You may not use this file except in
 * compliance with the License. Please obtain a copy of the License at
 * http://www.opensource.apple.com/apsl/ and read it before using this
 * file.
 * 
 * The Original Code and all software distributed under the License are
 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
 * Please see the License for the specific language governing rights and
 * limitations under the License.
 * 
 * @APPLE_LICENSE_HEADER_END@
 */
/*
 * @OSF_COPYRIGHT@
 */
/*
 * @APPLE_FREE_COPYRIGHT@
 */
#include <kern/misc_protos.h>
#include <kern/assert.h>
#include <kern/thread.h>
#include <kern/counters.h>
#include <ppc/misc_protos.h>
#include <ppc/trap.h>
#include <ppc/proc_reg.h>
#include <ppc/exception.h>
#include <ppc/savearea.h>
#include <pexpert/pexpert.h>
#include <sys/kdebug.h>

perfTrap perfIntHook = 0;						/* Pointer to performance trap hook routine */

struct savearea * interrupt(
        int type,
        struct savearea *ssp,
	unsigned int dsisr,
	unsigned int dar)
{
	int	current_cpu, tmpr, targtemp;
	unsigned int	throttle;
	uint64_t		now;
	thread_act_t	act;

	disable_preemption();

	if(perfIntHook) {							/* Is there a hook? */
		if(perfIntHook(type, ssp, dsisr, dar) == KERN_SUCCESS) return ssp;	/* If it succeeds, we are done... */
	}
	
#if 0
	{
		extern void fctx_text(void);
		fctx_test();
	}
#endif
	
	
	current_cpu = cpu_number();

	switch (type) {

		case T_THERMAL:						/* Fix the air conditioning, I'm dripping with sweat, or freezing, whatever... */

/*
 *			Note that this code is just a hackification until we have a real thermal plan.
 */
			
			tmpr = ml_read_temp();			/* Find out just how hot it is */
			targtemp = (dar >> 23) & 0x7F;	/* Get the temprature we were looking for */
			if(dar & 4) {					/* Did the temprature drop down? */
#if 1
				kprintf("THERMAL below (cpu %d) target = %d; actual = %d; thrm = %08X\n", current_cpu, targtemp, tmpr, dar);
#endif	
#if 0
				throttle = ml_throttle(0);	/* Set throttle off */
#if 1
				kprintf("THERMAL (cpu %d) throttle set off; last = %d\n", current_cpu, throttle);
#endif	
#endif
				ml_thrm_set(0, per_proc_info[current_cpu].thrm.throttleTemp);	/* Set no low temp and max allowable as max */

#if 1
				kprintf("THERMAL (cpu %d) temp set to: off min, %d max\n", current_cpu, per_proc_info[current_cpu].thrm.throttleTemp);
#endif	
			}
			else {
#if 1
				kprintf("THERMAL above (cpu %d) target = %d; actual = %d; thrm = %08X\n", current_cpu, targtemp, tmpr, dar);
#endif	
#if 0
				throttle = ml_throttle(32);	/* Set throttle on about 1/8th */
#if 1
				kprintf("THERMAL (cpu %d) throttle set to 32; last = %d\n", current_cpu, throttle);
#endif	
#endif
				ml_thrm_set(per_proc_info[current_cpu].thrm.throttleTemp - 4, 0);	/* Set low temp to max - 4 and max off */
#if 1
				kprintf("THERMAL (cpu %d) temp set to: %d min, off max\n", current_cpu, per_proc_info[current_cpu].thrm.throttleTemp - 4);
#endif	

			}
			break;
			
		case T_DECREMENTER:
			KERNEL_DEBUG_CONSTANT(MACHDBG_CODE(DBG_MACH_EXCP_DECI, 0) | DBG_FUNC_NONE,
				  isync_mfdec(), (unsigned int)ssp->save_srr0, 0, 0, 0);
	
#if 0
			if (pcsample_enable) {
				if (find_user_regs(current_act()))
				  add_pcsamples (user_pc(current_act()));
			}
#endif

			act = current_act();					/* Find ourselves */
			if(act->mact.qactTimer != 0) {	/* Is the timer set? */
				clock_get_uptime(&now);				/* Find out what time it is */
				if (act->mact.qactTimer <= now) {	/* It is set, has it popped? */
					act->mact.qactTimer = 0;		/* Clear single shot timer */
					if((unsigned int)act->mact.vmmControl & 0xFFFFFFFE) {	/* Are there any virtual machines? */
						vmm_timer_pop(act);			/* Yes, check out them out... */
					}
				}
			}

			rtclock_intr(0, ssp, 0);
			break;
	
		case T_INTERRUPT:
			/* Call the platform interrupt routine */
			counter_always(c_incoming_interrupts++);
	
			KERNEL_DEBUG_CONSTANT(MACHDBG_CODE(DBG_MACH_EXCP_INTR, 0) | DBG_FUNC_START,
			   current_cpu, (unsigned int)ssp->save_srr0, 0, 0, 0);
	
			per_proc_info[current_cpu].interrupt_handler(
				per_proc_info[current_cpu].interrupt_target, 
				per_proc_info[current_cpu].interrupt_refCon,
				per_proc_info[current_cpu].interrupt_nub, 
				per_proc_info[current_cpu].interrupt_source);
	
			KERNEL_DEBUG_CONSTANT(MACHDBG_CODE(DBG_MACH_EXCP_INTR, 0) | DBG_FUNC_END,
			   0, 0, 0, 0, 0);
	
			break;
	
		case T_SIGP:
			/* Did the other processor signal us? */ 
			cpu_signal_handler();
			break;
	
		case T_SHUTDOWN:
			cpu_doshutdown();
			panic("returning from cpu_doshutdown()\n");
			break;
	
				
		default:
	#if     MACH_KDP || MACH_KDB
			(void)Call_Debugger(type, ssp);
	#else
			panic("Invalid interrupt type %x\n", type);
	#endif
			break;
	}

	enable_preemption();
	return ssp;
}