WebSVN – HelenOS-historic – Diff – /kernel/trunk/arch/ia32/src/smp/apic.c


/*
 * Copyright (C) 2001-2004 Jakub Jermar
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * - Redistributions of source code must retain the above copyright
 *   notice, this list of conditions and the following disclaimer.
 * - Redistributions in binary form must reproduce the above copyright
 *   notice, this list of conditions and the following disclaimer in the
 *   documentation and/or other materials provided with the distribution.
 * - The name of the author may not be used to endorse or promote products
 *   derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */
 
#include <arch/types.h>
#include <arch/smp/apic.h>
#include <arch/smp/ap.h>
#include <arch/smp/mps.h>
#include <arch/boot/boot.h>
#include <mm/page.h>
#include <time/delay.h>
#include <interrupt.h>
#include <arch/interrupt.h>
#include <print.h>
#include <arch/asm.h>
#include <arch.h>
 
#ifdef CONFIG_SMP
 
/*
 * Advanced Programmable Interrupt Controller for SMP systems.
 * Tested on:
 *  Bochs 2.0.2 - Bochs 2.2.6 with 2-8 CPUs
 *  Simics 2.0.28 - Simics 2.2.19 2-15 CPUs
 *  VMware Workstation 5.5 with 2 CPUs
 *  QEMU 0.8.0 with 2-15 CPUs
 *  ASUS P/I-P65UP5 + ASUS C-P55T2D REV. 1.41 with 2x 200Mhz Pentium CPUs
 *  ASUS PCH-DL with 2x 3000Mhz Pentium 4 Xeon (HT) CPUs
 *  MSI K7D Master-L with 2x 2100MHz Athlon MP CPUs
 */
 
/*
 * These variables either stay configured as initilalized, or are changed by
 * the MP configuration code.
 *
 * Pay special attention to the volatile keyword. Without it, gcc -O2 would
 * optimize the code too much and accesses to l_apic and io_apic, that must
 * always be 32-bit, would use byte oriented instructions.
 */
volatile __u32 *l_apic = (__u32 *) 0xfee00000;
volatile __u32 *io_apic = (__u32 *) 0xfec00000;
 
__u32 apic_id_mask = 0;
 
static int apic_poll_errors(void);
 
#ifdef LAPIC_VERBOSE
static char *delmod_str[] = {
    "Fixed",
    "Lowest Priority",
    "SMI",
    "Reserved",
    "NMI",
    "INIT",
    "STARTUP",
    "ExtInt"
};
 
static char *destmod_str[] = {
    "Physical",
    "Logical"
};
 
static char *trigmod_str[] = {
    "Edge",
    "Level"
};
 
static char *mask_str[] = {
    "Unmasked",
    "Masked"
};
 
static char *delivs_str[] = {
    "Idle",
    "Send Pending"
};
 
static char *tm_mode_str[] = {
    "One-shot",
    "Periodic"
};
 
static char *intpol_str[] = {
    "Polarity High",
    "Polarity Low"
};
#endif /* LAPIC_VERBOSE */
 
 
static void apic_spurious(int n, istate_t *istate);
static void l_apic_timer_interrupt(int n, istate_t *istate);
 
/** Initialize APIC on BSP. */
void apic_init(void)
{
    io_apic_id_t idreg;
    int i;
 
    exc_register(VECTOR_APIC_SPUR, "apic_spurious", (iroutine) apic_spurious);
 
    enable_irqs_function = io_apic_enable_irqs;
    disable_irqs_function = io_apic_disable_irqs;
    eoi_function = l_apic_eoi;
   
    /*
     * Configure interrupt routing.
     * IRQ 0 remains masked as the time signal is generated by l_apic's themselves.
     * Other interrupts will be forwarded to the lowest priority CPU.
     */
    io_apic_disable_irqs(0xffff);
    exc_register(VECTOR_CLK, "l_apic_timer", (iroutine) l_apic_timer_interrupt);
    for (i = 0; i < IRQ_COUNT; i++) {
        int pin;
   
        if ((pin = smp_irq_to_pin(i)) != -1) {
            io_apic_change_ioredtbl(pin, DEST_ALL, IVT_IRQBASE+i, LOPRI);
        }
    }
   
    /*
     * Ensure that io_apic has unique ID.
     */
    idreg.value = io_apic_read(IOAPICID);
    if ((1<<idreg.apic_id) & apic_id_mask) {    /* see if IO APIC ID is used already */
        for (i = 0; i < APIC_ID_COUNT; i++) {
            if (!((1<<i) & apic_id_mask)) {
                idreg.apic_id = i;
                io_apic_write(IOAPICID, idreg.value);
                break;
            }
        }
    }
 
    /*
     * Configure the BSP's lapic.
     */
    l_apic_init();
 
    l_apic_debug();
}
 
/** APIC spurious interrupt handler.
 *
 * @param n Interrupt vector.
 * @param stack Interrupted stack.
 */
void apic_spurious(int n, istate_t *istate)
{
    printf("cpu%d: APIC spurious interrupt\n", CPU->id);
}
 
/** Poll for APIC errors.
 *
 * Examine Error Status Register and report all errors found.
 *
 * @return 0 on error, 1 on success.
 */
int apic_poll_errors(void)
{
    esr_t esr;
   
    esr.value = l_apic[ESR];
   
    if (esr.send_checksum_error)
        printf("Send Checksum Error\n");
    if (esr.receive_checksum_error)
        printf("Receive Checksum Error\n");
    if (esr.send_accept_error)
        printf("Send Accept Error\n");
    if (esr.receive_accept_error)
        printf("Receive Accept Error\n");
    if (esr.send_illegal_vector)
        printf("Send Illegal Vector\n");
    if (esr.received_illegal_vector)
        printf("Received Illegal Vector\n");
    if (esr.illegal_register_address)
        printf("Illegal Register Address\n");
 
    return !esr.err_bitmap;
}
 
/** Send all CPUs excluding CPU IPI vector.
 *
 * @param vector Interrupt vector to be sent.
 *
 * @return 0 on failure, 1 on success.
 */
int l_apic_broadcast_custom_ipi(__u8 vector)
{
    icr_t icr;
 
    icr.lo = l_apic[ICRlo];
    icr.delmod = DELMOD_FIXED;
    icr.destmod = DESTMOD_LOGIC;
    icr.level = LEVEL_ASSERT;
    icr.shorthand = SHORTHAND_ALL_EXCL;
    icr.trigger_mode = TRIGMOD_LEVEL;
    icr.vector = vector;
 
    l_apic[ICRlo] = icr.lo;
 
    icr.lo = l_apic[ICRlo];
    if (icr.delivs == DELIVS_PENDING)
        printf("IPI is pending.\n");
 
    return apic_poll_errors();
}
 
/** Universal Start-up Algorithm for bringing up the AP processors.
 *
 * @param apicid APIC ID of the processor to be brought up.
 *
 * @return 0 on failure, 1 on success.
 */
int l_apic_send_init_ipi(__u8 apicid)
{
    icr_t icr;
    int i;
 
    /*
     * Read the ICR register in and zero all non-reserved fields.
     */
    icr.lo = l_apic[ICRlo];
    icr.hi = l_apic[ICRhi];
   
    icr.delmod = DELMOD_INIT;
    icr.destmod = DESTMOD_PHYS;
    icr.level = LEVEL_ASSERT;
    icr.trigger_mode = TRIGMOD_LEVEL;
    icr.shorthand = SHORTHAND_NONE;
    icr.vector = 0;
    icr.dest = apicid;
   
    l_apic[ICRhi] = icr.hi;
    l_apic[ICRlo] = icr.lo;
 
    /*
     * According to MP Specification, 20us should be enough to
     * deliver the IPI.
     */
    delay(20);
 
    if (!apic_poll_errors()) return 0;
 
    icr.lo = l_apic[ICRlo];
    if (icr.delivs == DELIVS_PENDING)
        printf("IPI is pending.\n");
 
    icr.delmod = DELMOD_INIT;
    icr.destmod = DESTMOD_PHYS;
    icr.level = LEVEL_DEASSERT;
    icr.shorthand = SHORTHAND_NONE;
    icr.trigger_mode = TRIGMOD_LEVEL;
    icr.vector = 0;
    l_apic[ICRlo] = icr.lo;
 
    /*
     * Wait 10ms as MP Specification specifies.
     */
    delay(10000);
 
    if (!is_82489DX_apic(l_apic[LAVR])) {
        /*
         * If this is not 82489DX-based l_apic we must send two STARTUP IPI's.
         */
        for (i = 0; i<2; i++) {
            icr.lo = l_apic[ICRlo];
            icr.vector = ((__address) ap_boot) / 4096; /* calculate the reset vector */
            icr.delmod = DELMOD_STARTUP;
            icr.destmod = DESTMOD_PHYS;
            icr.level = LEVEL_ASSERT;
            icr.shorthand = SHORTHAND_NONE;
            icr.trigger_mode = TRIGMOD_LEVEL;
            l_apic[ICRlo] = icr.lo;
            delay(200);
        }
    }
   
    return apic_poll_errors();
}
 
/** Initialize Local APIC. */
void l_apic_init(void)
{
    lvt_error_t error;
    lvt_lint_t lint;
    tpr_t tpr;
    svr_t svr;
    icr_t icr;
    tdcr_t tdcr;
    lvt_tm_t tm;
    ldr_t ldr;
    dfr_t dfr;
    __u32 t1, t2;
 
    /* Initialize LVT Error register. */
    error.value = l_apic[LVT_Err];
    error.masked = true;
    l_apic[LVT_Err] = error.value;
 
    /* Initialize LVT LINT0 register. */
    lint.value = l_apic[LVT_LINT0];
    lint.masked = true;
    l_apic[LVT_LINT0] = lint.value;
 
    /* Initialize LVT LINT1 register. */
    lint.value = l_apic[LVT_LINT1];
    lint.masked = true;
    l_apic[LVT_LINT1] = lint.value;
 
    /* Task Priority Register initialization. */
    tpr.value = l_apic[TPR];
    tpr.pri_sc = 0;
    tpr.pri = 0;
    l_apic[TPR] = tpr.value;
   
    /* Spurious-Interrupt Vector Register initialization. */
    svr.value = l_apic[SVR];
    svr.vector = VECTOR_APIC_SPUR;
    svr.lapic_enabled = true;
    svr.focus_checking = true;
    l_apic[SVR] = svr.value;
 
    if (CPU->arch.family >= 6)
        enable_l_apic_in_msr();
   
    /* Interrupt Command Register initialization. */
    icr.lo = l_apic[ICRlo];
    icr.delmod = DELMOD_INIT;
    icr.destmod = DESTMOD_PHYS;
    icr.level = LEVEL_DEASSERT;
    icr.shorthand = SHORTHAND_ALL_INCL;
    icr.trigger_mode = TRIGMOD_LEVEL;
    l_apic[ICRlo] = icr.lo;
   
    /* Timer Divide Configuration Register initialization. */
    tdcr.value = l_apic[TDCR];
    tdcr.div_value = DIVIDE_1;
    l_apic[TDCR] = tdcr.value;
 
    /* Program local timer. */
    tm.value = l_apic[LVT_Tm];
    tm.vector = VECTOR_CLK;
    tm.mode = TIMER_PERIODIC;
    tm.masked = false;
    l_apic[LVT_Tm] = tm.value;
 
    /* Measure and configure the timer to generate timer interrupt each ms. */
    t1 = l_apic[CCRT];
    l_apic[ICRT] = 0xffffffff;
 
    while (l_apic[CCRT] == t1)
        ;
       
    t1 = l_apic[CCRT];
    delay(1000);
    t2 = l_apic[CCRT];
   
    l_apic[ICRT] = t1-t2;
   
    /* Program Logical Destination Register. */
    ldr.value = l_apic[LDR];
    if (CPU->id < sizeof(CPU->id)*8)    /* size in bits */
        ldr.id = (1<<CPU->id);
    l_apic[LDR] = ldr.value;
   
    /* Program Destination Format Register for Flat mode. */
    dfr.value = l_apic[DFR];
    dfr.model = MODEL_FLAT;
    l_apic[DFR] = dfr.value;
}
 
/** Local APIC End of Interrupt. */
void l_apic_eoi(void)
{
    l_apic[EOI] = 0;
}
 
/** Dump content of Local APIC registers. */
void l_apic_debug(void)
{
#ifdef LAPIC_VERBOSE
    lvt_tm_t tm;
    lvt_lint_t lint;
    lvt_error_t error; 
   
    printf("LVT on cpu%d, LAPIC ID: %d\n", CPU->id, l_apic_id());
 
    tm.value = l_apic[LVT_Tm];
    printf("LVT Tm: vector=%hhd, %s, %s, %s\n", tm.vector, delivs_str[tm.delivs], mask_str[tm.masked], tm_mode_str[tm.mode]);
    lint.value = l_apic[LVT_LINT0];
    printf("LVT LINT0: vector=%hhd, %s, %s, %s, irr=%d, %s, %s\n", tm.vector, delmod_str[lint.delmod], delivs_str[lint.delivs], intpol_str[lint.intpol], lint.irr, trigmod_str[lint.trigger_mode], mask_str[lint.masked]);
    lint.value = l_apic[LVT_LINT1];
    printf("LVT LINT1: vector=%hhd, %s, %s, %s, irr=%d, %s, %s\n", tm.vector, delmod_str[lint.delmod], delivs_str[lint.delivs], intpol_str[lint.intpol], lint.irr, trigmod_str[lint.trigger_mode], mask_str[lint.masked]); 
    error.value = l_apic[LVT_Err];
    printf("LVT Err: vector=%hhd, %s, %s\n", error.vector, delivs_str[error.delivs], mask_str[error.masked]);
#endif
}
 
/** Local APIC Timer Interrupt.
 *
 * @param n Interrupt vector number.
 * @param stack Interrupted stack.
 */
void l_apic_timer_interrupt(int n, istate_t *istate)
{
    l_apic_eoi();
    clock();
}
 
/** Get Local APIC ID.
 *
 * @return Local APIC ID.
 */
__u8 l_apic_id(void)
{
    l_apic_id_t idreg;
   
    idreg.value = l_apic[L_APIC_ID];
    return idreg.apic_id;
}
 
/** Read from IO APIC register.
 *
 * @param address IO APIC register address.
 *
 * @return Content of the addressed IO APIC register.
 */
__u32 io_apic_read(__u8 address)
{
    io_regsel_t regsel;
   
    regsel.value = io_apic[IOREGSEL];
    regsel.reg_addr = address;
    io_apic[IOREGSEL] = regsel.value;
    return io_apic[IOWIN];
}
 
/** Write to IO APIC register.
 *
 * @param address IO APIC register address.
 * @param Content to be written to the addressed IO APIC register.
 */
void io_apic_write(__u8 address, __u32 x)
{
    io_regsel_t regsel;
   
    regsel.value = io_apic[IOREGSEL];
    regsel.reg_addr = address;
    io_apic[IOREGSEL] = regsel.value;
    io_apic[IOWIN] = x;
}
 
/** Change some attributes of one item in I/O Redirection Table.
 *
 * @param pin IO APIC pin number.
 * @param dest Interrupt destination address.
 * @param v Interrupt vector to trigger.
 * @param flags Flags.
 */
void io_apic_change_ioredtbl(int pin, int dest, __u8 v, int flags)
{
    io_redirection_reg_t reg;
    int dlvr = DELMOD_FIXED;
   
    if (flags & LOPRI)
        dlvr = DELMOD_LOWPRI;
 
    reg.lo = io_apic_read(IOREDTBL + pin*2);
    reg.hi = io_apic_read(IOREDTBL + pin*2 + 1);
   
    reg.dest = dest;
    reg.destmod = DESTMOD_LOGIC;
    reg.trigger_mode = TRIGMOD_EDGE;
    reg.intpol = POLARITY_HIGH;
    reg.delmod = dlvr;
    reg.intvec = v;
 
    io_apic_write(IOREDTBL + pin*2, reg.lo);
    io_apic_write(IOREDTBL + pin*2 + 1, reg.hi);
}
 
/** Mask IRQs in IO APIC.
 *
 * @param irqmask Bitmask of IRQs to be masked (0 = do not mask, 1 = mask).
 */
void io_apic_disable_irqs(__u16 irqmask)
{
    io_redirection_reg_t reg;
    int i, pin;
   
    for (i=0;i<16;i++) {
        if (irqmask & (1<<i)) {
            /*
             * Mask the signal input in IO APIC if there is a
             * mapping for the respective IRQ number.
             */
            pin = smp_irq_to_pin(i);
            if (pin != -1) {
                reg.lo = io_apic_read(IOREDTBL + pin*2);
                reg.masked = true;
                io_apic_write(IOREDTBL + pin*2, reg.lo);
            }
           
        }
    }
}
 
/** Unmask IRQs in IO APIC.
 *
 * @param irqmask Bitmask of IRQs to be unmasked (0 = do not unmask, 1 = unmask).
 */
void io_apic_enable_irqs(__u16 irqmask)
{
    int i, pin;
    io_redirection_reg_t reg;  
   
    for (i=0;i<16;i++) {
        if (irqmask & (1<<i)) {
            /*
             * Unmask the signal input in IO APIC if there is a
             * mapping for the respective IRQ number.
             */
            pin = smp_irq_to_pin(i);
            if (pin != -1) {
                reg.lo = io_apic_read(IOREDTBL + pin*2);
                reg.masked = false;
                io_apic_write(IOREDTBL + pin*2, reg.lo);
            }
           
        }
    }
}
 
#endif /* CONFIG_SMP */
 

Rev 958	Rev 1196
1	/*	1	/*
2	* Copyright (C) 2001-2004 Jakub Jermar	2	* Copyright (C) 2001-2004 Jakub Jermar
3	* All rights reserved.	3	* All rights reserved.
4	*	4	*
5	* Redistribution and use in source and binary forms, with or without	5	* Redistribution and use in source and binary forms, with or without
6	* modification, are permitted provided that the following conditions	6	* modification, are permitted provided that the following conditions
7	* are met:	7	* are met:
8	*	8	*
9	* - Redistributions of source code must retain the above copyright	9	* - Redistributions of source code must retain the above copyright
10	* notice, this list of conditions and the following disclaimer.	10	* notice, this list of conditions and the following disclaimer.
11	* - Redistributions in binary form must reproduce the above copyright	11	* - Redistributions in binary form must reproduce the above copyright
12	* notice, this list of conditions and the following disclaimer in the	12	* notice, this list of conditions and the following disclaimer in the
13	* documentation and/or other materials provided with the distribution.	13	* documentation and/or other materials provided with the distribution.
14	* - The name of the author may not be used to endorse or promote products	14	* - The name of the author may not be used to endorse or promote products
15	* derived from this software without specific prior written permission.	15	* derived from this software without specific prior written permission.
16	*	16	*
17	* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR	17	* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18	* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES	18	* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19	* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.	19	* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20	* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,	20	* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21	* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT	21	* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22	* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,	22	* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23	* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY	23	* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24	* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT	24	* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25	* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF	25	* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26	* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.	26	* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27	*/	27	*/
28		28
29	#include <arch/types.h>	29	#include <arch/types.h>
30	#include <arch/smp/apic.h>	30	#include <arch/smp/apic.h>
31	#include <arch/smp/ap.h>	31	#include <arch/smp/ap.h>
32	#include <arch/smp/mps.h>	32	#include <arch/smp/mps.h>
33	#include <arch/boot/boot.h>	33	#include <arch/boot/boot.h>
34	#include <mm/page.h>	34	#include <mm/page.h>
35	#include <time/delay.h>	35	#include <time/delay.h>
36	#include <interrupt.h>	36	#include <interrupt.h>
37	#include <arch/interrupt.h>	37	#include <arch/interrupt.h>
38	#include <print.h>	38	#include <print.h>
39	#include <arch/asm.h>	39	#include <arch/asm.h>
40	#include <arch.h>	40	#include <arch.h>
41		41
42	#ifdef CONFIG_SMP	42	#ifdef CONFIG_SMP
43		43
44	/*	44	/*
45	* Advanced Programmable Interrupt Controller for SMP systems.	45	* Advanced Programmable Interrupt Controller for SMP systems.
46	* Tested on:	46	* Tested on:
47	* Bochs 2.0.2 - Bochs 2.2.6 with 2-8 CPUs	47	* Bochs 2.0.2 - Bochs 2.2.6 with 2-8 CPUs
48	* Simics 2.0.28 - Simics 2.2.19 2-15 CPUs	48	* Simics 2.0.28 - Simics 2.2.19 2-15 CPUs
49	* VMware Workstation 5.5 with 2 CPUs	49	* VMware Workstation 5.5 with 2 CPUs
50	* QEMU 0.8.0 with 2-15 CPUs	50	* QEMU 0.8.0 with 2-15 CPUs
51	* ASUS P/I-P65UP5 + ASUS C-P55T2D REV. 1.41 with 2x 200Mhz Pentium CPUs	51	* ASUS P/I-P65UP5 + ASUS C-P55T2D REV. 1.41 with 2x 200Mhz Pentium CPUs
52	* ASUS PCH-DL with 2x 3000Mhz Pentium 4 Xeon (HT) CPUs	52	* ASUS PCH-DL with 2x 3000Mhz Pentium 4 Xeon (HT) CPUs
53	* MSI K7D Master-L with 2x 2100MHz Athlon MP CPUs	53	* MSI K7D Master-L with 2x 2100MHz Athlon MP CPUs
54	*/	54	*/
55		55
56	/*	56	/*
57	* These variables either stay configured as initilalized, or are changed by	57	* These variables either stay configured as initilalized, or are changed by
58	* the MP configuration code.	58	* the MP configuration code.
59	*	59	*
60	* Pay special attention to the volatile keyword. Without it, gcc -O2 would	60	* Pay special attention to the volatile keyword. Without it, gcc -O2 would
61	* optimize the code too much and accesses to l_apic and io_apic, that must	61	* optimize the code too much and accesses to l_apic and io_apic, that must
62	* always be 32-bit, would use byte oriented instructions.	62	* always be 32-bit, would use byte oriented instructions.
63	*/	63	*/
64	volatile __u32 l_apic = (__u32 ) 0xfee00000;	64	volatile __u32 l_apic = (__u32 ) 0xfee00000;
65	volatile __u32 io_apic = (__u32 ) 0xfec00000;	65	volatile __u32 io_apic = (__u32 ) 0xfec00000;
66		66
67	__u32 apic_id_mask = 0;	67	__u32 apic_id_mask = 0;
68		68
69	static int apic_poll_errors(void);	69	static int apic_poll_errors(void);
70		70
71	#ifdef LAPIC_VERBOSE	71	#ifdef LAPIC_VERBOSE
72	static char *delmod_str[] = {	72	static char *delmod_str[] = {
73	"Fixed",	73	"Fixed",
74	"Lowest Priority",	74	"Lowest Priority",
75	"SMI",	75	"SMI",
76	"Reserved",	76	"Reserved",
77	"NMI",	77	"NMI",
78	"INIT",	78	"INIT",
79	"STARTUP",	79	"STARTUP",
80	"ExtInt"	80	"ExtInt"
81	};	81	};
82		82
83	static char *destmod_str[] = {	83	static char *destmod_str[] = {
84	"Physical",	84	"Physical",
85	"Logical"	85	"Logical"
86	};	86	};
87		87
88	static char *trigmod_str[] = {	88	static char *trigmod_str[] = {
89	"Edge",	89	"Edge",
90	"Level"	90	"Level"
91	};	91	};
92		92
93	static char *mask_str[] = {	93	static char *mask_str[] = {
94	"Unmasked",	94	"Unmasked",
95	"Masked"	95	"Masked"
96	};	96	};
97		97
98	static char *delivs_str[] = {	98	static char *delivs_str[] = {
99	"Idle",	99	"Idle",
100	"Send Pending"	100	"Send Pending"
101	};	101	};
102		102
103	static char *tm_mode_str[] = {	103	static char *tm_mode_str[] = {
104	"One-shot",	104	"One-shot",
105	"Periodic"	105	"Periodic"
106	};	106	};
107		107
108	static char *intpol_str[] = {	108	static char *intpol_str[] = {
109	"Polarity High",	109	"Polarity High",
110	"Polarity Low"	110	"Polarity Low"
111	};	111	};
112	#endif /* LAPIC_VERBOSE */	112	#endif /* LAPIC_VERBOSE */
113		113
114		114
115	static void apic_spurious(int n, istate_t *istate);	115	static void apic_spurious(int n, istate_t *istate);
116	static void l_apic_timer_interrupt(int n, istate_t *istate);	116	static void l_apic_timer_interrupt(int n, istate_t *istate);
117		117
118	/** Initialize APIC on BSP. */	118	/** Initialize APIC on BSP. */
119	void apic_init(void)	119	void apic_init(void)
120	{	120	{
121	io_apic_id_t idreg;	121	io_apic_id_t idreg;
122	int i;	122	int i;
123		123
124	exc_register(VECTOR_APIC_SPUR, "apic_spurious", (iroutine) apic_spurious);	124	exc_register(VECTOR_APIC_SPUR, "apic_spurious", (iroutine) apic_spurious);
125		125
126	enable_irqs_function = io_apic_enable_irqs;	126	enable_irqs_function = io_apic_enable_irqs;
127	disable_irqs_function = io_apic_disable_irqs;	127	disable_irqs_function = io_apic_disable_irqs;
128	eoi_function = l_apic_eoi;	128	eoi_function = l_apic_eoi;
129		129
130	/*	130	/*
131	* Configure interrupt routing.	131	* Configure interrupt routing.
132	* IRQ 0 remains masked as the time signal is generated by l_apic's themselves.	132	* IRQ 0 remains masked as the time signal is generated by l_apic's themselves.
133	* Other interrupts will be forwarded to the lowest priority CPU.	133	* Other interrupts will be forwarded to the lowest priority CPU.
134	*/	134	*/
135	io_apic_disable_irqs(0xffff);	135	io_apic_disable_irqs(0xffff);
136	exc_register(VECTOR_CLK, "l_apic_timer", (iroutine) l_apic_timer_interrupt);	136	exc_register(VECTOR_CLK, "l_apic_timer", (iroutine) l_apic_timer_interrupt);
137	for (i = 0; i < IRQ_COUNT; i++) {	137	for (i = 0; i < IRQ_COUNT; i++) {
138	int pin;	138	int pin;
139		139
140	if ((pin = smp_irq_to_pin(i)) != -1) {	140	if ((pin = smp_irq_to_pin(i)) != -1) {
141	io_apic_change_ioredtbl(pin, DEST_ALL, IVT_IRQBASE+i, LOPRI);	141	io_apic_change_ioredtbl(pin, DEST_ALL, IVT_IRQBASE+i, LOPRI);
142	}	142	}
143	}	143	}
144		144
145	/*	145	/*
146	* Ensure that io_apic has unique ID.	146	* Ensure that io_apic has unique ID.
147	*/	147	*/
148	idreg.value = io_apic_read(IOAPICID);	148	idreg.value = io_apic_read(IOAPICID);
149	if ((1<<idreg.apic_id) & apic_id_mask) { /* see if IO APIC ID is used already */	149	if ((1<<idreg.apic_id) & apic_id_mask) { /* see if IO APIC ID is used already */
150	for (i = 0; i < APIC_ID_COUNT; i++) {	150	for (i = 0; i < APIC_ID_COUNT; i++) {
151	if (!((1<<i) & apic_id_mask)) {	151	if (!((1<<i) & apic_id_mask)) {
152	idreg.apic_id = i;	152	idreg.apic_id = i;
153	io_apic_write(IOAPICID, idreg.value);	153	io_apic_write(IOAPICID, idreg.value);
154	break;	154	break;
155	}	155	}
156	}	156	}
157	}	157	}
158		158
159	/*	159	/*
160	* Configure the BSP's lapic.	160	* Configure the BSP's lapic.
161	*/	161	*/
162	l_apic_init();	162	l_apic_init();
163		163
164	l_apic_debug();	164	l_apic_debug();
165	}	165	}
166		166
167	/** APIC spurious interrupt handler.	167	/** APIC spurious interrupt handler.
168	*	168	*
169	* @param n Interrupt vector.	169	* @param n Interrupt vector.
170	* @param stack Interrupted stack.	170	* @param stack Interrupted stack.
171	*/	171	*/
172	void apic_spurious(int n, istate_t *istate)	172	void apic_spurious(int n, istate_t *istate)
173	{	173	{
174	printf("cpu%d: APIC spurious interrupt\n", CPU->id);	174	printf("cpu%d: APIC spurious interrupt\n", CPU->id);
175	}	175	}
176		176
177	/** Poll for APIC errors.	177	/** Poll for APIC errors.
178	*	178	*
179	* Examine Error Status Register and report all errors found.	179	* Examine Error Status Register and report all errors found.
180	*	180	*
181	* @return 0 on error, 1 on success.	181	* @return 0 on error, 1 on success.
182	*/	182	*/
183	int apic_poll_errors(void)	183	int apic_poll_errors(void)
184	{	184	{
185	esr_t esr;	185	esr_t esr;
186		186
187	esr.value = l_apic[ESR];	187	esr.value = l_apic[ESR];
188		188
189	if (esr.send_checksum_error)	189	if (esr.send_checksum_error)
190	printf("Send Checksum Error\n");	190	printf("Send Checksum Error\n");
191	if (esr.receive_checksum_error)	191	if (esr.receive_checksum_error)
192	printf("Receive Checksum Error\n");	192	printf("Receive Checksum Error\n");
193	if (esr.send_accept_error)	193	if (esr.send_accept_error)
194	printf("Send Accept Error\n");	194	printf("Send Accept Error\n");
195	if (esr.receive_accept_error)	195	if (esr.receive_accept_error)
196	printf("Receive Accept Error\n");	196	printf("Receive Accept Error\n");
197	if (esr.send_illegal_vector)	197	if (esr.send_illegal_vector)
198	printf("Send Illegal Vector\n");	198	printf("Send Illegal Vector\n");
199	if (esr.received_illegal_vector)	199	if (esr.received_illegal_vector)
200	printf("Received Illegal Vector\n");	200	printf("Received Illegal Vector\n");
201	if (esr.illegal_register_address)	201	if (esr.illegal_register_address)
202	printf("Illegal Register Address\n");	202	printf("Illegal Register Address\n");
203		203
204	return !esr.err_bitmap;	204	return !esr.err_bitmap;
205	}	205	}
206		206
207	/** Send all CPUs excluding CPU IPI vector.	207	/** Send all CPUs excluding CPU IPI vector.
208	*	208	*
209	* @param vector Interrupt vector to be sent.	209	* @param vector Interrupt vector to be sent.
210	*	210	*
211	* @return 0 on failure, 1 on success.	211	* @return 0 on failure, 1 on success.
212	*/	212	*/
213	int l_apic_broadcast_custom_ipi(__u8 vector)	213	int l_apic_broadcast_custom_ipi(__u8 vector)
214	{	214	{
215	icr_t icr;	215	icr_t icr;
216		216
217	icr.lo = l_apic[ICRlo];	217	icr.lo = l_apic[ICRlo];
218	icr.delmod = DELMOD_FIXED;	218	icr.delmod = DELMOD_FIXED;
219	icr.destmod = DESTMOD_LOGIC;	219	icr.destmod = DESTMOD_LOGIC;
220	icr.level = LEVEL_ASSERT;	220	icr.level = LEVEL_ASSERT;
221	icr.shorthand = SHORTHAND_ALL_EXCL;	221	icr.shorthand = SHORTHAND_ALL_EXCL;
222	icr.trigger_mode = TRIGMOD_LEVEL;	222	icr.trigger_mode = TRIGMOD_LEVEL;
223	icr.vector = vector;	223	icr.vector = vector;
224		224
225	l_apic[ICRlo] = icr.lo;	225	l_apic[ICRlo] = icr.lo;
226		226
227	icr.lo = l_apic[ICRlo];	227	icr.lo = l_apic[ICRlo];
228	if (icr.delivs == DELIVS_PENDING)	228	if (icr.delivs == DELIVS_PENDING)
229	printf("IPI is pending.\n");	229	printf("IPI is pending.\n");
230		230
231	return apic_poll_errors();	231	return apic_poll_errors();
232	}	232	}
233		233
234	/** Universal Start-up Algorithm for bringing up the AP processors.	234	/** Universal Start-up Algorithm for bringing up the AP processors.
235	*	235	*
236	* @param apicid APIC ID of the processor to be brought up.	236	* @param apicid APIC ID of the processor to be brought up.
237	*	237	*
238	* @return 0 on failure, 1 on success.	238	* @return 0 on failure, 1 on success.
239	*/	239	*/
240	int l_apic_send_init_ipi(__u8 apicid)	240	int l_apic_send_init_ipi(__u8 apicid)
241	{	241	{
242	icr_t icr;	242	icr_t icr;
243	int i;	243	int i;
244		244
245	/*	245	/*
246	* Read the ICR register in and zero all non-reserved fields.	246	* Read the ICR register in and zero all non-reserved fields.
247	*/	247	*/
248	icr.lo = l_apic[ICRlo];	248	icr.lo = l_apic[ICRlo];
249	icr.hi = l_apic[ICRhi];	249	icr.hi = l_apic[ICRhi];
250		250
251	icr.delmod = DELMOD_INIT;	251	icr.delmod = DELMOD_INIT;
252	icr.destmod = DESTMOD_PHYS;	252	icr.destmod = DESTMOD_PHYS;
253	icr.level = LEVEL_ASSERT;	253	icr.level = LEVEL_ASSERT;
254	icr.trigger_mode = TRIGMOD_LEVEL;	254	icr.trigger_mode = TRIGMOD_LEVEL;
255	icr.shorthand = SHORTHAND_NONE;	255	icr.shorthand = SHORTHAND_NONE;
256	icr.vector = 0;	256	icr.vector = 0;
257	icr.dest = apicid;	257	icr.dest = apicid;
258		258
259	l_apic[ICRhi] = icr.hi;	259	l_apic[ICRhi] = icr.hi;
260	l_apic[ICRlo] = icr.lo;	260	l_apic[ICRlo] = icr.lo;
261		261
262	/*	262	/*
263	* According to MP Specification, 20us should be enough to	263	* According to MP Specification, 20us should be enough to
264	* deliver the IPI.	264	* deliver the IPI.
265	*/	265	*/
266	delay(20);	266	delay(20);
267		267
268	if (!apic_poll_errors()) return 0;	268	if (!apic_poll_errors()) return 0;
269		269
270	icr.lo = l_apic[ICRlo];	270	icr.lo = l_apic[ICRlo];
271	if (icr.delivs == DELIVS_PENDING)	271	if (icr.delivs == DELIVS_PENDING)
272	printf("IPI is pending.\n");	272	printf("IPI is pending.\n");
273		273
274	icr.delmod = DELMOD_INIT;	274	icr.delmod = DELMOD_INIT;
275	icr.destmod = DESTMOD_PHYS;	275	icr.destmod = DESTMOD_PHYS;
276	icr.level = LEVEL_DEASSERT;	276	icr.level = LEVEL_DEASSERT;
277	icr.shorthand = SHORTHAND_NONE;	277	icr.shorthand = SHORTHAND_NONE;
278	icr.trigger_mode = TRIGMOD_LEVEL;	278	icr.trigger_mode = TRIGMOD_LEVEL;
279	icr.vector = 0;	279	icr.vector = 0;
280	l_apic[ICRlo] = icr.lo;	280	l_apic[ICRlo] = icr.lo;
281		281
282	/*	282	/*
283	* Wait 10ms as MP Specification specifies.	283	* Wait 10ms as MP Specification specifies.
284	*/	284	*/
285	delay(10000);	285	delay(10000);
286		286
287	if (!is_82489DX_apic(l_apic[LAVR])) {	287	if (!is_82489DX_apic(l_apic[LAVR])) {
288	/*	288	/*
289	* If this is not 82489DX-based l_apic we must send two STARTUP IPI's.	289	* If this is not 82489DX-based l_apic we must send two STARTUP IPI's.
290	*/	290	*/
291	for (i = 0; i<2; i++) {	291	for (i = 0; i<2; i++) {
292	icr.lo = l_apic[ICRlo];	292	icr.lo = l_apic[ICRlo];
293	icr.vector = ((__address) ap_boot) / 4096; /* calculate the reset vector */	293	icr.vector = ((__address) ap_boot) / 4096; /* calculate the reset vector */
294	icr.delmod = DELMOD_STARTUP;	294	icr.delmod = DELMOD_STARTUP;
295	icr.destmod = DESTMOD_PHYS;	295	icr.destmod = DESTMOD_PHYS;
296	icr.level = LEVEL_ASSERT;	296	icr.level = LEVEL_ASSERT;
297	icr.shorthand = SHORTHAND_NONE;	297	icr.shorthand = SHORTHAND_NONE;
298	icr.trigger_mode = TRIGMOD_LEVEL;	298	icr.trigger_mode = TRIGMOD_LEVEL;
299	l_apic[ICRlo] = icr.lo;	299	l_apic[ICRlo] = icr.lo;
300	delay(200);	300	delay(200);
301	}	301	}
302	}	302	}
303		303
304	return apic_poll_errors();	304	return apic_poll_errors();
305	}	305	}
306		306
307	/** Initialize Local APIC. */	307	/** Initialize Local APIC. */
308	void l_apic_init(void)	308	void l_apic_init(void)
309	{	309	{
310	lvt_error_t error;	310	lvt_error_t error;
311	lvt_lint_t lint;	311	lvt_lint_t lint;
312	tpr_t tpr;	312	tpr_t tpr;
313	svr_t svr;	313	svr_t svr;
314	icr_t icr;	314	icr_t icr;
315	tdcr_t tdcr;	315	tdcr_t tdcr;
316	lvt_tm_t tm;	316	lvt_tm_t tm;
317	ldr_t ldr;	317	ldr_t ldr;
318	dfr_t dfr;	318	dfr_t dfr;
319	__u32 t1, t2;	319	__u32 t1, t2;
320		320
321	/* Initialize LVT Error register. */	321	/* Initialize LVT Error register. */
322	error.value = l_apic[LVT_Err];	322	error.value = l_apic[LVT_Err];
323	error.masked = true;	323	error.masked = true;
324	l_apic[LVT_Err] = error.value;	324	l_apic[LVT_Err] = error.value;
325		325
326	/* Initialize LVT LINT0 register. */	326	/* Initialize LVT LINT0 register. */
327	lint.value = l_apic[LVT_LINT0];	327	lint.value = l_apic[LVT_LINT0];
328	lint.masked = true;	328	lint.masked = true;
329	l_apic[LVT_LINT0] = lint.value;	329	l_apic[LVT_LINT0] = lint.value;
330		330
331	/* Initialize LVT LINT1 register. */	331	/* Initialize LVT LINT1 register. */
332	lint.value = l_apic[LVT_LINT1];	332	lint.value = l_apic[LVT_LINT1];
333	lint.masked = true;	333	lint.masked = true;
334	l_apic[LVT_LINT1] = lint.value;	334	l_apic[LVT_LINT1] = lint.value;
335		335
336	/* Task Priority Register initialization. */	336	/* Task Priority Register initialization. */
337	tpr.value = l_apic[TPR];	337	tpr.value = l_apic[TPR];
338	tpr.pri_sc = 0;	338	tpr.pri_sc = 0;
339	tpr.pri = 0;	339	tpr.pri = 0;
340	l_apic[TPR] = tpr.value;	340	l_apic[TPR] = tpr.value;
341		341
342	/* Spurious-Interrupt Vector Register initialization. */	342	/* Spurious-Interrupt Vector Register initialization. */
343	svr.value = l_apic[SVR];	343	svr.value = l_apic[SVR];
344	svr.vector = VECTOR_APIC_SPUR;	344	svr.vector = VECTOR_APIC_SPUR;
345	svr.lapic_enabled = true;	345	svr.lapic_enabled = true;
346	svr.focus_checking = true;	346	svr.focus_checking = true;
347	l_apic[SVR] = svr.value;	347	l_apic[SVR] = svr.value;
348		348
349	if (CPU->arch.family >= 6)	349	if (CPU->arch.family >= 6)
350	enable_l_apic_in_msr();	350	enable_l_apic_in_msr();
351		351
352	/* Interrupt Command Register initialization. */	352	/* Interrupt Command Register initialization. */
353	icr.lo = l_apic[ICRlo];	353	icr.lo = l_apic[ICRlo];
354	icr.delmod = DELMOD_INIT;	354	icr.delmod = DELMOD_INIT;
355	icr.destmod = DESTMOD_PHYS;	355	icr.destmod = DESTMOD_PHYS;
356	icr.level = LEVEL_DEASSERT;	356	icr.level = LEVEL_DEASSERT;
357	icr.shorthand = SHORTHAND_ALL_INCL;	357	icr.shorthand = SHORTHAND_ALL_INCL;
358	icr.trigger_mode = TRIGMOD_LEVEL;	358	icr.trigger_mode = TRIGMOD_LEVEL;
359	l_apic[ICRlo] = icr.lo;	359	l_apic[ICRlo] = icr.lo;
360		360
361	/* Timer Divide Configuration Register initialization. */	361	/* Timer Divide Configuration Register initialization. */
362	tdcr.value = l_apic[TDCR];	362	tdcr.value = l_apic[TDCR];
363	tdcr.div_value = DIVIDE_1;	363	tdcr.div_value = DIVIDE_1;
364	l_apic[TDCR] = tdcr.value;	364	l_apic[TDCR] = tdcr.value;
365		365
366	/* Program local timer. */	366	/* Program local timer. */
367	tm.value = l_apic[LVT_Tm];	367	tm.value = l_apic[LVT_Tm];
368	tm.vector = VECTOR_CLK;	368	tm.vector = VECTOR_CLK;
369	tm.mode = TIMER_PERIODIC;	369	tm.mode = TIMER_PERIODIC;
370	tm.masked = false;	370	tm.masked = false;
371	l_apic[LVT_Tm] = tm.value;	371	l_apic[LVT_Tm] = tm.value;
372		372
373	/* Measure and configure the timer to generate timer interrupt each ms. */	373	/* Measure and configure the timer to generate timer interrupt each ms. */
374	t1 = l_apic[CCRT];	374	t1 = l_apic[CCRT];
375	l_apic[ICRT] = 0xffffffff;	375	l_apic[ICRT] = 0xffffffff;
376		376
377	while (l_apic[CCRT] == t1)	377	while (l_apic[CCRT] == t1)
378	;	378	;
379		379
380	t1 = l_apic[CCRT];	380	t1 = l_apic[CCRT];
381	delay(1000);	381	delay(1000);
382	t2 = l_apic[CCRT];	382	t2 = l_apic[CCRT];
383		383
384	l_apic[ICRT] = t1-t2;	384	l_apic[ICRT] = t1-t2;
385		385
386	/* Program Logical Destination Register. */	386	/* Program Logical Destination Register. */
387	ldr.value = l_apic[LDR];	387	ldr.value = l_apic[LDR];
388	if (CPU->id < sizeof(CPU->id)8) / size in bits */	388	if (CPU->id < sizeof(CPU->id)8) / size in bits */
389	ldr.id = (1<<CPU->id);	389	ldr.id = (1<<CPU->id);
390	l_apic[LDR] = ldr.value;	390	l_apic[LDR] = ldr.value;
391		391
392	/* Program Destination Format Register for Flat mode. */	392	/* Program Destination Format Register for Flat mode. */
393	dfr.value = l_apic[DFR];	393	dfr.value = l_apic[DFR];
394	dfr.model = MODEL_FLAT;	394	dfr.model = MODEL_FLAT;
395	l_apic[DFR] = dfr.value;	395	l_apic[DFR] = dfr.value;
396	}	396	}
397		397
398	/** Local APIC End of Interrupt. */	398	/** Local APIC End of Interrupt. */
399	void l_apic_eoi(void)	399	void l_apic_eoi(void)
400	{	400	{
401	l_apic[EOI] = 0;	401	l_apic[EOI] = 0;
402	}	402	}
403		403
404	/** Dump content of Local APIC registers. */	404	/** Dump content of Local APIC registers. */
405	void l_apic_debug(void)	405	void l_apic_debug(void)
406	{	406	{
407	#ifdef LAPIC_VERBOSE	407	#ifdef LAPIC_VERBOSE
408	lvt_tm_t tm;	408	lvt_tm_t tm;
409	lvt_lint_t lint;	409	lvt_lint_t lint;
410	lvt_error_t error;	410	lvt_error_t error;
411		411
412	printf("LVT on cpu%d, LAPIC ID: %d\n", CPU->id, l_apic_id());	412	printf("LVT on cpu%d, LAPIC ID: %d\n", CPU->id, l_apic_id());
413		413
414	tm.value = l_apic[LVT_Tm];	414	tm.value = l_apic[LVT_Tm];
415	printf("LVT Tm: vector=%B, %s, %s, %s\n", tm.vector, delivs_str[tm.delivs], mask_str[tm.masked], tm_mode_str[tm.mode]);	415	printf("LVT Tm: vector=%hhd, %s, %s, %s\n", tm.vector, delivs_str[tm.delivs], mask_str[tm.masked], tm_mode_str[tm.mode]);
416	lint.value = l_apic[LVT_LINT0];	416	lint.value = l_apic[LVT_LINT0];
417	printf("LVT LINT0: vector=%B, %s, %s, %s, irr=%d, %s, %s\n", tm.vector, delmod_str[lint.delmod], delivs_str[lint.delivs], intpol_str[lint.intpol], lint.irr, trigmod_str[lint.trigger_mode], mask_str[lint.masked]);	417	printf("LVT LINT0: vector=%hhd, %s, %s, %s, irr=%d, %s, %s\n", tm.vector, delmod_str[lint.delmod], delivs_str[lint.delivs], intpol_str[lint.intpol], lint.irr, trigmod_str[lint.trigger_mode], mask_str[lint.masked]);
418	lint.value = l_apic[LVT_LINT1];	418	lint.value = l_apic[LVT_LINT1];
419	printf("LVT LINT1: vector=%B, %s, %s, %s, irr=%d, %s, %s\n", tm.vector, delmod_str[lint.delmod], delivs_str[lint.delivs], intpol_str[lint.intpol], lint.irr, trigmod_str[lint.trigger_mode], mask_str[lint.masked]);	419	printf("LVT LINT1: vector=%hhd, %s, %s, %s, irr=%d, %s, %s\n", tm.vector, delmod_str[lint.delmod], delivs_str[lint.delivs], intpol_str[lint.intpol], lint.irr, trigmod_str[lint.trigger_mode], mask_str[lint.masked]);
420	error.value = l_apic[LVT_Err];	420	error.value = l_apic[LVT_Err];
421	printf("LVT Err: vector=%B, %s, %s\n", error.vector, delivs_str[error.delivs], mask_str[error.masked]);	421	printf("LVT Err: vector=%hhd, %s, %s\n", error.vector, delivs_str[error.delivs], mask_str[error.masked]);
422	#endif	422	#endif
423	}	423	}
424		424
425	/** Local APIC Timer Interrupt.	425	/** Local APIC Timer Interrupt.
426	*	426	*
427	* @param n Interrupt vector number.	427	* @param n Interrupt vector number.
428	* @param stack Interrupted stack.	428	* @param stack Interrupted stack.
429	*/	429	*/
430	void l_apic_timer_interrupt(int n, istate_t *istate)	430	void l_apic_timer_interrupt(int n, istate_t *istate)
431	{	431	{
432	l_apic_eoi();	432	l_apic_eoi();
433	clock();	433	clock();
434	}	434	}
435		435
436	/** Get Local APIC ID.	436	/** Get Local APIC ID.
437	*	437	*
438	* @return Local APIC ID.	438	* @return Local APIC ID.
439	*/	439	*/
440	__u8 l_apic_id(void)	440	__u8 l_apic_id(void)
441	{	441	{
442	l_apic_id_t idreg;	442	l_apic_id_t idreg;
443		443
444	idreg.value = l_apic[L_APIC_ID];	444	idreg.value = l_apic[L_APIC_ID];
445	return idreg.apic_id;	445	return idreg.apic_id;
446	}	446	}
447		447
448	/** Read from IO APIC register.	448	/** Read from IO APIC register.
449	*	449	*
450	* @param address IO APIC register address.	450	* @param address IO APIC register address.
451	*	451	*
452	* @return Content of the addressed IO APIC register.	452	* @return Content of the addressed IO APIC register.
453	*/	453	*/
454	__u32 io_apic_read(__u8 address)	454	__u32 io_apic_read(__u8 address)
455	{	455	{
456	io_regsel_t regsel;	456	io_regsel_t regsel;
457		457
458	regsel.value = io_apic[IOREGSEL];	458	regsel.value = io_apic[IOREGSEL];
459	regsel.reg_addr = address;	459	regsel.reg_addr = address;
460	io_apic[IOREGSEL] = regsel.value;	460	io_apic[IOREGSEL] = regsel.value;
461	return io_apic[IOWIN];	461	return io_apic[IOWIN];
462	}	462	}
463		463
464	/** Write to IO APIC register.	464	/** Write to IO APIC register.
465	*	465	*
466	* @param address IO APIC register address.	466	* @param address IO APIC register address.
467	* @param Content to be written to the addressed IO APIC register.	467	* @param Content to be written to the addressed IO APIC register.
468	*/	468	*/
469	void io_apic_write(__u8 address, __u32 x)	469	void io_apic_write(__u8 address, __u32 x)
470	{	470	{
471	io_regsel_t regsel;	471	io_regsel_t regsel;
472		472
473	regsel.value = io_apic[IOREGSEL];	473	regsel.value = io_apic[IOREGSEL];
474	regsel.reg_addr = address;	474	regsel.reg_addr = address;
475	io_apic[IOREGSEL] = regsel.value;	475	io_apic[IOREGSEL] = regsel.value;
476	io_apic[IOWIN] = x;	476	io_apic[IOWIN] = x;
477	}	477	}
478		478
479	/** Change some attributes of one item in I/O Redirection Table.	479	/** Change some attributes of one item in I/O Redirection Table.
480	*	480	*
481	* @param pin IO APIC pin number.	481	* @param pin IO APIC pin number.
482	* @param dest Interrupt destination address.	482	* @param dest Interrupt destination address.
483	* @param v Interrupt vector to trigger.	483	* @param v Interrupt vector to trigger.
484	* @param flags Flags.	484	* @param flags Flags.
485	*/	485	*/
486	void io_apic_change_ioredtbl(int pin, int dest, __u8 v, int flags)	486	void io_apic_change_ioredtbl(int pin, int dest, __u8 v, int flags)
487	{	487	{
488	io_redirection_reg_t reg;	488	io_redirection_reg_t reg;
489	int dlvr = DELMOD_FIXED;	489	int dlvr = DELMOD_FIXED;
490		490
491	if (flags & LOPRI)	491	if (flags & LOPRI)
492	dlvr = DELMOD_LOWPRI;	492	dlvr = DELMOD_LOWPRI;
493		493
494	reg.lo = io_apic_read(IOREDTBL + pin*2);	494	reg.lo = io_apic_read(IOREDTBL + pin*2);
495	reg.hi = io_apic_read(IOREDTBL + pin*2 + 1);	495	reg.hi = io_apic_read(IOREDTBL + pin*2 + 1);
496		496
497	reg.dest = dest;	497	reg.dest = dest;
498	reg.destmod = DESTMOD_LOGIC;	498	reg.destmod = DESTMOD_LOGIC;
499	reg.trigger_mode = TRIGMOD_EDGE;	499	reg.trigger_mode = TRIGMOD_EDGE;
500	reg.intpol = POLARITY_HIGH;	500	reg.intpol = POLARITY_HIGH;

Subversion Repositories HelenOS-historic

(root)/kernel/trunk/arch/ia32/src/smp/apic.c – Rev 958 → 1196