root/sys/arch/sun3/sun3x/locore2.c
/*      $NetBSD: locore2.c,v 1.46 2026/04/06 14:45:32 thorpej Exp $     */

/*-
 * Copyright (c) 1996 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * This code is derived from software contributed to The NetBSD Foundation
 * by Gordon W. Ross and Jeremy Cooper.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. 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.
 *
 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
 * ``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 FOUNDATION OR CONTRIBUTORS
 * 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 <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: locore2.c,v 1.46 2026/04/06 14:45:32 thorpej Exp $");

#include "opt_ddb.h"

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/proc.h>
#include <sys/reboot.h>
#define ELFSIZE 32
#include <sys/exec_elf.h>

#include <uvm/uvm_extern.h>

#include <dev/cons.h>

#include <machine/cpu.h>
#include <machine/db_machdep.h>
#include <machine/dvma.h>
#include <machine/fcode.h>
#include <machine/idprom.h>
#include <machine/leds.h>
#include <machine/mon.h>
#include <machine/pmap.h>
#include <machine/pte.h>
#include <machine/vectors.h>

#include <sun3/sun3/interreg.h>
#include <sun3/sun3/machdep.h>

/* This is defined in locore.s */
extern char kernel_text[];

/* These are defined by the linker */
extern char etext[], edata[], end[];
int nsym;
char *ssym, *esym;

/*
 * XXX: m68k common code needs these...
 * ... but this port does not need to deal with anything except
 * an mc68030, so these two variables are always ignored.
 */
int cputype = CPU_68030;
int mmutype = MMU_68030;

/*
 * Now our own stuff.
 */

extern struct pcb *curpcb;

/* First C code called by locore.s */
void *_bootstrap(void);

#if defined(DDB)
/*
 * Preserve DDB symbols and strings by setting esym.
 */
static void
_save_symtab(void)
{
        int i;
        Elf_Ehdr *ehdr;
        Elf_Shdr *shp;
        vaddr_t minsym, maxsym;

        /*
         * Check the ELF headers.
         */

        ehdr = (void *)end;
        if (memcmp(ehdr->e_ident, ELFMAG, SELFMAG) != 0 ||
            ehdr->e_ident[EI_CLASS] != ELFCLASS32) {
                mon_printf("_save_symtab: bad ELF magic\n");
                return;
        }

        /*
         * Find the end of the symbols and strings.
         */

        maxsym = 0;
        minsym = ~maxsym;
        shp = (Elf_Shdr *)(end + ehdr->e_shoff);
        for (i = 0; i < ehdr->e_shnum; i++) {
                if (shp[i].sh_type != SHT_SYMTAB &&
                    shp[i].sh_type != SHT_STRTAB) {
                        continue;
                }
                minsym = uimin(minsym, (vaddr_t)end + shp[i].sh_offset);
                maxsym = uimax(maxsym, (vaddr_t)end + shp[i].sh_offset +
                             shp[i].sh_size);
        }
        nsym = 1;
        ssym = (char *)ehdr;
        esym = (char *)maxsym;
}
#endif  /* DDB */

/*
 * This function is called from _bootstrap() to initialize
 * pre-vm-system virtual memory.  All this really does is to
 * set virtual_avail to the first page following preloaded
 * data (i.e. the kernel and its symbol table) and special
 * things that may be needed very early (lwp0 upages).
 * Once that is done, pmap_bootstrap() is called to do the
 * usual preparations for our use of the MMU.
 *
 * Returns the new kernel %sp value for lwp0.
 */
static void *
_vm_init(void)
{
        vaddr_t nextva;
        paddr_t nextpa;

        /*
         * First preserve our symbol table, which might have been
         * loaded after our BSS area by the boot loader.  However,
         * if DDB is not part of this kernel, ignore the symbols.
         */
        esym = end + 4;
#if defined(DDB)
        /* This will advance esym past the symbols. */
        _save_symtab();
#endif

        /*
         * Steal some special-purpose, already mapped pages.
         * Note: msgbuf is setup in machdep.c:cpu_startup()
         */
        nextva = m68k_round_page(esym);

        /*
         * Setup the u-area pages (stack, etc.) for lwp0.
         * This is done very early (here) to make sure the
         * fault handler works in case we hit an early bug.
         * (The fault handler may reference lwp0 stuff.)
         */
        uvm_lwp_setuarea(&lwp0, nextva);
        memset((void *)nextva, 0, USPACE);
        curlwp = &lwp0;
        curpcb = lwp_getpcb(&lwp0);

        /* Create a fake exception frame so that cpu_lwp_fork() can copy it. */
        struct trapframe *tf = (struct trapframe *)(nextva + USPACE) - 1;
        tf->tf_sr = PSL_USER;
        lwp0.l_md.md_regs = (int *)tf;

        nextva += USPACE;

        /* This does most of the real work. */
        nextpa = pmap_bootstrap(nextva);

        machine_init_common(nextpa);

        return tf;
}

/*
 * This is called from locore.s just after the kernel is remapped
 * to its proper address, but before the call to main().  The work
 * done here corresponds to various things done in locore.s on the
 * hp300 port (and other m68k) but which we prefer to do in C code.
 * Also do setup specific to the Sun PROM monitor and IDPROM here.
 */
void *
_bootstrap(void)
{
        extern struct consdev consdev_prom;     /* XXX */

        /* First, Clear BSS. */
        memset(edata, 0, end - edata);

        /* Set v_handler, get boothowto. */
        sunmon_init();

        /*
         * Initialize console to point to the PROM (output only) table
         * for early printf calls.
         */
        cn_tab = &consdev_prom;

        /* Handle kernel mapping, pmap_bootstrap(), etc. */
        void *ksp = _vm_init();

        /*
         * Find and save OBIO mappings needed early,
         * and call some init functions.
         */
        obio_init();

        /*
         * Point interrupts/exceptions to our vector table.
         * (Until now, we use the one setup by the PROM.)
         *
         * This is done after obio_init() / intreg_init() finds
         * the interrupt register and disables the NMI clock so
         * it will not cause "spurrious level 7" complaints.
         * Done after _vm_init so the PROM can debug that.
         */
        vec_init();
        /* Interrupts are enabled later, after autoconfig. */

        /*
         * Find the IDPROM and copy it to memory.
         * Needs obio_init and setvbr earlier.
         */
        idprom_init();

        /*
         * Turn on the LEDs so we know power is on.
         * Needs idprom_init and obio_init earlier.
         */
        leds_init();

        /*
         * Initialize the source/destination control registers for
         * movs.
         */
        setsfc(FC_USERD);
        setdfc(FC_USERD);

        return ksp;
}