source: mainline/kernel/arch/ppc32/src/ppc32.c@ 8023571

/*
 * Copyright (c) 2005 Martin Decky
 * 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.
 */

/** @addtogroup ppc32
 * @{
 */
/** @file
 */

#include <config.h>
#include <arch.h>
#include <arch/boot/boot.h>
#include <genarch/drivers/via-cuda/cuda.h>
#include <genarch/kbrd/kbrd.h>
#include <arch/interrupt.h>
#include <interrupt.h>
#include <genarch/fb/fb.h>
#include <genarch/fb/visuals.h>
#include <genarch/ofw/ofw_tree.h>
#include <genarch/ofw/pci.h>
#include <userspace.h>
#include <mm/page.h>
#include <proc/uarg.h>
#include <console/console.h>
#include <sysinfo/sysinfo.h>
#include <ddi/irq.h>
#include <arch/drivers/pic.h>
#include <align.h>
#include <macros.h>
#include <str.h>
#include <print.h>

#define IRQ_COUNT  64
#define IRQ_CUDA   10

bootinfo_t bootinfo;

static cir_t pic_cir;
static void *pic_cir_arg;

/** Performs ppc32-specific initialization before main_bsp() is called. */
void arch_pre_main(void)
{
        init.cnt = bootinfo.taskmap.count;
        
        uint32_t i;
        
        for (i = 0; i < min3(bootinfo.taskmap.count, TASKMAP_MAX_RECORDS, CONFIG_INIT_TASKS); i++) {
                init.tasks[i].addr = bootinfo.taskmap.tasks[i].addr;
                init.tasks[i].size = bootinfo.taskmap.tasks[i].size;
                str_cpy(init.tasks[i].name, CONFIG_TASK_NAME_BUFLEN,
                    bootinfo.taskmap.tasks[i].name);
        }
        
        /* Copy boot allocations info. */
        ballocs.base = bootinfo.ballocs.base;
        ballocs.size = bootinfo.ballocs.size;
        
        ofw_tree_init(bootinfo.ofw_root);
}

void arch_pre_mm_init(void)
{
        /* Initialize dispatch table */
        interrupt_init();
        
        /* Start decrementer */
        start_decrementer();
}

static bool display_register(ofw_tree_node_t *node, void *arg)
{
        uintptr_t fb_addr = 0;
        uint32_t fb_width = 0;
        uint32_t fb_height = 0;
        uint32_t fb_scanline = 0;
        unsigned int visual = VISUAL_UNKNOWN;
        
        ofw_tree_property_t *prop = ofw_tree_getprop(node, "address");
        if ((prop) && (prop->value))
                fb_addr = *((uintptr_t *) prop->value);
        
        prop = ofw_tree_getprop(node, "width");
        if ((prop) && (prop->value))
                fb_width = *((uint32_t *) prop->value);
        
        prop = ofw_tree_getprop(node, "height");
        if ((prop) && (prop->value))
                fb_height = *((uint32_t *) prop->value);
        
        prop = ofw_tree_getprop(node, "depth");
        if ((prop) && (prop->value)) {
                uint32_t fb_bpp = *((uint32_t *) prop->value);
                switch (fb_bpp) {
                case 8:
                        visual = VISUAL_INDIRECT_8;
                        break;
                case 16:
                        visual = VISUAL_RGB_5_5_5_BE;
                        break;
                case 24:
                        visual = VISUAL_BGR_8_8_8;
                        break;
                case 32:
                        visual = VISUAL_RGB_0_8_8_8;
                        break;
                default:
                        visual = VISUAL_UNKNOWN;
                }
        }
        
        prop = ofw_tree_getprop(node, "linebytes");
        if ((prop) && (prop->value))
                fb_scanline = *((uint32_t *) prop->value);
        
        if ((fb_addr) && (fb_width > 0) && (fb_height > 0)
            && (fb_scanline > 0) && (visual != VISUAL_UNKNOWN)) {
                fb_properties_t fb_prop = {
                        .addr = fb_addr,
                        .offset = 0,
                        .x = fb_width,
                        .y = fb_height,
                        .scan = fb_scanline,
                        .visual = visual,
                };
                
                outdev_t *fbdev = fb_init(&fb_prop);
                if (fbdev)
                        stdout_wire(fbdev);
        }
        
        return true;
}

void arch_post_mm_init(void)
{
        if (config.cpu_active == 1) {
#ifdef CONFIG_FB
                ofw_tree_walk_by_device_type("display", display_register, NULL);
#endif
                
                /* Initialize IRQ routing */
                irq_init(IRQ_COUNT, IRQ_COUNT);
                
                /* Merge all zones to 1 big zone */
                zone_merge_all();
        }
}

void arch_post_cpu_init(void)
{
}

void arch_pre_smp_init(void)
{
}

static bool macio_register(ofw_tree_node_t *node, void *arg)
{
        ofw_pci_reg_t *assigned_address = NULL;
        
        ofw_tree_property_t *prop = ofw_tree_getprop(node, "assigned-addresses");
        if ((prop) && (prop->value))
                assigned_address = ((ofw_pci_reg_t *) prop->value);
        
        if (assigned_address) {
                /* Initialize PIC */
                pic_init(assigned_address[0].addr, PAGE_SIZE, &pic_cir,
                    &pic_cir_arg);

#ifdef CONFIG_MAC_KBD
                uintptr_t pa = assigned_address[0].addr + 0x16000;
                uintptr_t aligned_addr = ALIGN_DOWN(pa, PAGE_SIZE);
                size_t offset = pa - aligned_addr;
                size_t size = 2 * PAGE_SIZE;
                
                cuda_t *cuda = (cuda_t *)
                    (hw_map(aligned_addr, offset + size) + offset);
                
                /* Initialize I/O controller */
                cuda_instance_t *cuda_instance =
                    cuda_init(cuda, IRQ_CUDA, pic_cir, pic_cir_arg);
                if (cuda_instance) {
                        kbrd_instance_t *kbrd_instance = kbrd_init();
                        if (kbrd_instance) {
                                indev_t *sink = stdin_wire();
                                indev_t *kbrd = kbrd_wire(kbrd_instance, sink);
                                cuda_wire(cuda_instance, kbrd);
                                pic_enable_interrupt(IRQ_CUDA);
                        }
                }

                /*
                 * This is the necessary evil until the userspace driver is entirely
                 * self-sufficient.
                 */
                sysinfo_set_item_val("cuda", NULL, true);
                sysinfo_set_item_val("cuda.inr", NULL, IRQ_CUDA);
                sysinfo_set_item_val("cuda.address.physical", NULL, pa);
                sysinfo_set_item_val("cuda.address.kernel", NULL,
                    (uintptr_t) cuda);
#endif
        }
        
        /* Consider only a single device for now */
        return false;
}

void irq_initialize_arch(irq_t *irq)
{
        irq->cir = pic_cir;
        irq->cir_arg = pic_cir_arg;
        irq->preack = true;
}

void arch_post_smp_init(void)
{
        ofw_tree_walk_by_device_type("mac-io", macio_register, NULL);
}

void calibrate_delay_loop(void)
{
}

void userspace(uspace_arg_t *kernel_uarg)
{
        userspace_asm((uintptr_t) kernel_uarg->uspace_uarg,
            (uintptr_t) kernel_uarg->uspace_stack +
            THREAD_STACK_SIZE - SP_DELTA,
            (uintptr_t) kernel_uarg->uspace_entry);
        
        /* Unreachable */
        while (true);
}

/** Construct function pointer
 *
 * @param fptr   function pointer structure
 * @param addr   function address
 * @param caller calling function address
 *
 * @return address of the function pointer
 *
 */
void *arch_construct_function(fncptr_t *fptr, void *addr, void *caller)
{
        return addr;
}

void arch_reboot(void)
{
        // TODO
        while (1);
}

/** @}
 */