504 lines
14 KiB
C
504 lines
14 KiB
C
/* linux.c - boot Linux */
|
||
/*
|
||
* VasEBoot -- GRand Unified Bootloader
|
||
* Copyright (C) 2003,2004,2005,2007,2009,2010 Free Software Foundation, Inc.
|
||
*
|
||
* VasEBoot is free software: you can redistribute it and/or modify
|
||
* it under the terms of the GNU General Public License as published by
|
||
* the Free Software Foundation, either version 3 of the License, or
|
||
* (at your option) any later version.
|
||
*
|
||
* VasEBoot is distributed in the hope that it will be useful,
|
||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
* GNU General Public License for more details.
|
||
*
|
||
* You should have received a copy of the GNU General Public License
|
||
* along with VasEBoot. If not, see <http://www.gnu.org/licenses/>.
|
||
*/
|
||
|
||
#include <VasEBoot/elf.h>
|
||
#include <VasEBoot/elfload.h>
|
||
#include <VasEBoot/loader.h>
|
||
#include <VasEBoot/dl.h>
|
||
#include <VasEBoot/mm.h>
|
||
#include <VasEBoot/misc.h>
|
||
#include <VasEBoot/command.h>
|
||
#include <VasEBoot/mips/relocator.h>
|
||
#include <VasEBoot/memory.h>
|
||
#include <VasEBoot/i18n.h>
|
||
#include <VasEBoot/lib/cmdline.h>
|
||
#include <VasEBoot/linux.h>
|
||
|
||
VasEBoot_MOD_LICENSE ("GPLv3+");
|
||
|
||
#pragma GCC diagnostic ignored "-Wcast-align"
|
||
|
||
/* For frequencies. */
|
||
#include <VasEBoot/machine/time.h>
|
||
|
||
#ifdef VasEBoot_MACHINE_MIPS_LOONGSON
|
||
#include <VasEBoot/pci.h>
|
||
#include <VasEBoot/machine/kernel.h>
|
||
|
||
const char loongson_machtypes[][60] =
|
||
{
|
||
[VasEBoot_ARCH_MACHINE_YEELOONG] = "machtype=lemote-yeeloong-2f-8.9inches",
|
||
[VasEBoot_ARCH_MACHINE_FULOONG2F] = "machtype=lemote-fuloong-2f-box",
|
||
[VasEBoot_ARCH_MACHINE_FULOONG2E] = "machtype=lemote-fuloong-2e-unknown"
|
||
};
|
||
#endif
|
||
|
||
static VasEBoot_dl_t my_mod;
|
||
|
||
static int loaded;
|
||
|
||
static VasEBoot_size_t linux_size;
|
||
|
||
static struct VasEBoot_relocator *relocator;
|
||
static VasEBoot_uint8_t *playground;
|
||
static VasEBoot_addr_t target_addr, entry_addr;
|
||
#ifdef VasEBoot_MACHINE_MIPS_QEMU_MIPS
|
||
static char *params;
|
||
#else
|
||
static int linux_argc;
|
||
static VasEBoot_off_t argv_off;
|
||
#ifdef VasEBoot_MACHINE_MIPS_LOONGSON
|
||
static VasEBoot_off_t envp_off;
|
||
#endif
|
||
static VasEBoot_off_t rd_addr_arg_off, rd_size_arg_off;
|
||
#endif
|
||
static int initrd_loaded = 0;
|
||
|
||
static VasEBoot_err_t
|
||
VasEBoot_linux_boot (void)
|
||
{
|
||
struct VasEBoot_relocator32_state state;
|
||
|
||
VasEBoot_memset (&state, 0, sizeof (state));
|
||
|
||
/* Boot the kernel. */
|
||
state.gpr[1] = entry_addr;
|
||
|
||
#ifdef VasEBoot_MACHINE_MIPS_QEMU_MIPS
|
||
{
|
||
VasEBoot_err_t err;
|
||
VasEBoot_relocator_chunk_t ch;
|
||
VasEBoot_uint32_t *memsize;
|
||
VasEBoot_uint32_t *magic;
|
||
char *str;
|
||
|
||
err = VasEBoot_relocator_alloc_chunk_addr (relocator, &ch,
|
||
((16 << 20) - 264),
|
||
VasEBoot_strlen (params) + 1 + 8);
|
||
if (err)
|
||
return err;
|
||
memsize = get_virtual_current_address (ch);
|
||
magic = memsize + 1;
|
||
*memsize = VasEBoot_mmap_get_lower ();
|
||
*magic = 0x12345678;
|
||
str = (char *) (magic + 1);
|
||
VasEBoot_strcpy (str, params);
|
||
}
|
||
#endif
|
||
|
||
#ifndef VasEBoot_MACHINE_MIPS_QEMU_MIPS
|
||
state.gpr[4] = linux_argc;
|
||
state.gpr[5] = target_addr + argv_off;
|
||
#ifdef VasEBoot_MACHINE_MIPS_LOONGSON
|
||
state.gpr[6] = target_addr + envp_off;
|
||
#else
|
||
state.gpr[6] = 0;
|
||
#endif
|
||
state.gpr[7] = 0;
|
||
#endif
|
||
state.jumpreg = 1;
|
||
VasEBoot_relocator32_boot (relocator, state);
|
||
|
||
return VasEBoot_ERR_NONE;
|
||
}
|
||
|
||
static VasEBoot_err_t
|
||
VasEBoot_linux_unload (void)
|
||
{
|
||
VasEBoot_relocator_unload (relocator);
|
||
VasEBoot_dl_unref (my_mod);
|
||
|
||
#ifdef VasEBoot_MACHINE_MIPS_QEMU_MIPS
|
||
VasEBoot_free (params);
|
||
params = 0;
|
||
#endif
|
||
|
||
loaded = 0;
|
||
|
||
return VasEBoot_ERR_NONE;
|
||
}
|
||
|
||
static VasEBoot_err_t
|
||
VasEBoot_linux_load32 (VasEBoot_elf_t elf, const char *filename,
|
||
void **extra_mem, VasEBoot_size_t extra_size)
|
||
{
|
||
Elf32_Addr base;
|
||
int extraoff;
|
||
VasEBoot_err_t err;
|
||
|
||
/* Linux's entry point incorrectly contains a virtual address. */
|
||
entry_addr = elf->ehdr.ehdr32.e_entry;
|
||
|
||
linux_size = VasEBoot_elf32_size (elf, &base, 0);
|
||
if (linux_size == 0)
|
||
return VasEBoot_errno;
|
||
target_addr = base;
|
||
/* Pad it; the kernel scribbles over memory beyond its load address. */
|
||
linux_size += 0x100000;
|
||
linux_size = ALIGN_UP (base + linux_size, 4) - base;
|
||
extraoff = linux_size;
|
||
linux_size += extra_size;
|
||
|
||
relocator = VasEBoot_relocator_new ();
|
||
if (!relocator)
|
||
return VasEBoot_errno;
|
||
|
||
{
|
||
VasEBoot_relocator_chunk_t ch;
|
||
err = VasEBoot_relocator_alloc_chunk_addr (relocator, &ch,
|
||
target_addr & 0x1fffffff,
|
||
linux_size);
|
||
if (err)
|
||
return err;
|
||
playground = get_virtual_current_address (ch);
|
||
}
|
||
|
||
*extra_mem = playground + extraoff;
|
||
|
||
/* Now load the segments into the area we claimed. */
|
||
return VasEBoot_elf32_load (elf, filename, playground - base, VasEBoot_ELF_LOAD_FLAGS_NONE, 0, 0);
|
||
}
|
||
|
||
static VasEBoot_err_t
|
||
VasEBoot_linux_load64 (VasEBoot_elf_t elf, const char *filename,
|
||
void **extra_mem, VasEBoot_size_t extra_size)
|
||
{
|
||
Elf64_Addr base;
|
||
int extraoff;
|
||
VasEBoot_err_t err;
|
||
|
||
/* Linux's entry point incorrectly contains a virtual address. */
|
||
entry_addr = elf->ehdr.ehdr64.e_entry;
|
||
|
||
linux_size = VasEBoot_elf64_size (elf, &base, 0);
|
||
if (linux_size == 0)
|
||
return VasEBoot_errno;
|
||
target_addr = base;
|
||
/* Pad it; the kernel scribbles over memory beyond its load address. */
|
||
linux_size += 0x100000;
|
||
linux_size = ALIGN_UP (base + linux_size, 4) - base;
|
||
extraoff = linux_size;
|
||
linux_size += extra_size;
|
||
|
||
relocator = VasEBoot_relocator_new ();
|
||
if (!relocator)
|
||
return VasEBoot_errno;
|
||
|
||
{
|
||
VasEBoot_relocator_chunk_t ch;
|
||
err = VasEBoot_relocator_alloc_chunk_addr (relocator, &ch,
|
||
target_addr & 0x1fffffff,
|
||
linux_size);
|
||
if (err)
|
||
return err;
|
||
playground = get_virtual_current_address (ch);
|
||
}
|
||
|
||
*extra_mem = playground + extraoff;
|
||
|
||
/* Now load the segments into the area we claimed. */
|
||
return VasEBoot_elf64_load (elf, filename, playground - base, VasEBoot_ELF_LOAD_FLAGS_NONE, 0, 0);
|
||
}
|
||
|
||
static VasEBoot_err_t
|
||
VasEBoot_cmd_linux (VasEBoot_command_t cmd __attribute__ ((unused)),
|
||
int argc, char *argv[])
|
||
{
|
||
VasEBoot_elf_t elf = 0;
|
||
int size;
|
||
void *extra = NULL;
|
||
#ifndef VasEBoot_MACHINE_MIPS_QEMU_MIPS
|
||
int i;
|
||
VasEBoot_uint32_t *linux_argv;
|
||
char *linux_args;
|
||
#endif
|
||
VasEBoot_err_t err;
|
||
#ifdef VasEBoot_MACHINE_MIPS_LOONGSON
|
||
char *linux_envs;
|
||
VasEBoot_uint32_t *linux_envp;
|
||
#endif
|
||
|
||
if (argc == 0)
|
||
return VasEBoot_error (VasEBoot_ERR_BAD_ARGUMENT, N_("filename expected"));
|
||
|
||
elf = VasEBoot_elf_open (argv[0]);
|
||
if (! elf)
|
||
return VasEBoot_errno;
|
||
|
||
if (elf->ehdr.ehdr32.e_type != ET_EXEC)
|
||
{
|
||
VasEBoot_elf_close (elf);
|
||
return VasEBoot_error (VasEBoot_ERR_UNKNOWN_OS,
|
||
N_("this ELF file is not of the right type"));
|
||
}
|
||
|
||
/* Release the previously used memory. */
|
||
VasEBoot_loader_unset ();
|
||
loaded = 0;
|
||
|
||
#ifdef VasEBoot_MACHINE_MIPS_QEMU_MIPS
|
||
size = 0;
|
||
#else
|
||
/* For arguments. */
|
||
linux_argc = argc;
|
||
#ifdef VasEBoot_MACHINE_MIPS_LOONGSON
|
||
linux_argc++;
|
||
#endif
|
||
/* Main arguments. */
|
||
size = (linux_argc) * sizeof (VasEBoot_uint32_t);
|
||
/* Initrd address and size. */
|
||
size += 2 * sizeof (VasEBoot_uint32_t);
|
||
/* NULL terminator. */
|
||
size += sizeof (VasEBoot_uint32_t);
|
||
|
||
/* First argument is always "a0". */
|
||
size += ALIGN_UP (sizeof ("a0"), 4);
|
||
/* Normal arguments. */
|
||
for (i = 1; i < argc; i++)
|
||
size += ALIGN_UP (VasEBoot_strlen (argv[i]) + 1, 4);
|
||
#ifdef VasEBoot_MACHINE_MIPS_LOONGSON
|
||
size += ALIGN_UP (sizeof (loongson_machtypes[0]), 4);
|
||
#endif
|
||
|
||
/* rd arguments. */
|
||
size += ALIGN_UP (sizeof ("rd_start=0xXXXXXXXXXXXXXXXX"), 4);
|
||
size += ALIGN_UP (sizeof ("rd_size=0xXXXXXXXXXXXXXXXX"), 4);
|
||
|
||
/* For the environment. */
|
||
size += sizeof (VasEBoot_uint32_t);
|
||
size += 4 * sizeof (VasEBoot_uint32_t);
|
||
size += ALIGN_UP (sizeof ("memsize=XXXXXXXXXXXXXXXXXXXX"), 4)
|
||
+ ALIGN_UP (sizeof ("highmemsize=XXXXXXXXXXXXXXXXXXXX"), 4)
|
||
+ ALIGN_UP (sizeof ("busclock=XXXXXXXXXX"), 4)
|
||
+ ALIGN_UP (sizeof ("cpuclock=XXXXXXXXXX"), 4);
|
||
#endif
|
||
|
||
if (VasEBoot_elf_is_elf32 (elf))
|
||
err = VasEBoot_linux_load32 (elf, argv[0], &extra, size);
|
||
else
|
||
if (VasEBoot_elf_is_elf64 (elf))
|
||
err = VasEBoot_linux_load64 (elf, argv[0], &extra, size);
|
||
else
|
||
err = VasEBoot_error (VasEBoot_ERR_BAD_OS, N_("invalid arch-dependent ELF magic"));
|
||
|
||
VasEBoot_elf_close (elf);
|
||
|
||
if (err)
|
||
return err;
|
||
|
||
#ifdef VasEBoot_MACHINE_MIPS_QEMU_MIPS
|
||
/* Create kernel command line. */
|
||
size = VasEBoot_loader_cmdline_size(argc, argv);
|
||
params = VasEBoot_malloc (size + sizeof (LINUX_IMAGE));
|
||
if (! params)
|
||
{
|
||
VasEBoot_linux_unload ();
|
||
return VasEBoot_errno;
|
||
}
|
||
|
||
VasEBoot_memcpy (params, LINUX_IMAGE, sizeof (LINUX_IMAGE));
|
||
VasEBoot_create_loader_cmdline (argc, argv, params + sizeof (LINUX_IMAGE) - 1,
|
||
size);
|
||
#else
|
||
linux_argv = extra;
|
||
argv_off = (VasEBoot_uint8_t *) linux_argv - (VasEBoot_uint8_t *) playground;
|
||
extra = linux_argv + (linux_argc + 1 + 2);
|
||
linux_args = extra;
|
||
|
||
VasEBoot_memcpy (linux_args, "a0", sizeof ("a0"));
|
||
*linux_argv = (VasEBoot_uint8_t *) linux_args - (VasEBoot_uint8_t *) playground
|
||
+ target_addr;
|
||
linux_argv++;
|
||
linux_args += ALIGN_UP (sizeof ("a0"), 4);
|
||
|
||
#ifdef VasEBoot_MACHINE_MIPS_LOONGSON
|
||
{
|
||
unsigned mtype = VasEBoot_arch_machine;
|
||
if (mtype >= ARRAY_SIZE (loongson_machtypes))
|
||
mtype = 0;
|
||
/* In Loongson platform, it is the responsibility of the bootloader/firmware
|
||
to supply the OS kernel with machine type information. */
|
||
VasEBoot_memcpy (linux_args, loongson_machtypes[mtype],
|
||
sizeof (loongson_machtypes[mtype]));
|
||
*linux_argv = (VasEBoot_uint8_t *) linux_args - (VasEBoot_uint8_t *) playground
|
||
+ target_addr;
|
||
linux_argv++;
|
||
linux_args += ALIGN_UP (sizeof (loongson_machtypes[mtype]), 4);
|
||
}
|
||
#endif
|
||
|
||
for (i = 1; i < argc; i++)
|
||
{
|
||
VasEBoot_memcpy (linux_args, argv[i], VasEBoot_strlen (argv[i]) + 1);
|
||
*linux_argv = (VasEBoot_uint8_t *) linux_args - (VasEBoot_uint8_t *) playground
|
||
+ target_addr;
|
||
linux_argv++;
|
||
linux_args += ALIGN_UP (VasEBoot_strlen (argv[i]) + 1, 4);
|
||
}
|
||
|
||
/* Reserve space for rd arguments. */
|
||
rd_addr_arg_off = (VasEBoot_uint8_t *) linux_args - (VasEBoot_uint8_t *) playground;
|
||
linux_args += ALIGN_UP (sizeof ("rd_start=0xXXXXXXXXXXXXXXXX"), 4);
|
||
*linux_argv = 0;
|
||
linux_argv++;
|
||
|
||
rd_size_arg_off = (VasEBoot_uint8_t *) linux_args - (VasEBoot_uint8_t *) playground;
|
||
linux_args += ALIGN_UP (sizeof ("rd_size=0xXXXXXXXXXXXXXXXX"), 4);
|
||
*linux_argv = 0;
|
||
linux_argv++;
|
||
|
||
*linux_argv = 0;
|
||
|
||
extra = linux_args;
|
||
|
||
#ifdef VasEBoot_MACHINE_MIPS_LOONGSON
|
||
linux_envp = extra;
|
||
envp_off = (VasEBoot_uint8_t *) linux_envp - (VasEBoot_uint8_t *) playground;
|
||
linux_envs = (char *) (linux_envp + 5);
|
||
VasEBoot_snprintf (linux_envs, sizeof ("memsize=XXXXXXXXXXXXXXXXXXXX"),
|
||
"memsize=%lld",
|
||
(unsigned long long) VasEBoot_mmap_get_lower () >> 20);
|
||
linux_envp[0] = (VasEBoot_uint8_t *) linux_envs - (VasEBoot_uint8_t *) playground
|
||
+ target_addr;
|
||
linux_envs += ALIGN_UP (VasEBoot_strlen (linux_envs) + 1, 4);
|
||
VasEBoot_snprintf (linux_envs, sizeof ("highmemsize=XXXXXXXXXXXXXXXXXXXX"),
|
||
"highmemsize=%lld",
|
||
(unsigned long long) VasEBoot_mmap_get_upper () >> 20);
|
||
linux_envp[1] = (VasEBoot_uint8_t *) linux_envs - (VasEBoot_uint8_t *) playground
|
||
+ target_addr;
|
||
linux_envs += ALIGN_UP (VasEBoot_strlen (linux_envs) + 1, 4);
|
||
|
||
VasEBoot_snprintf (linux_envs, sizeof ("busclock=XXXXXXXXXX"),
|
||
"busclock=%d", VasEBoot_arch_busclock);
|
||
linux_envp[2] = (VasEBoot_uint8_t *) linux_envs - (VasEBoot_uint8_t *) playground
|
||
+ target_addr;
|
||
linux_envs += ALIGN_UP (VasEBoot_strlen (linux_envs) + 1, 4);
|
||
VasEBoot_snprintf (linux_envs, sizeof ("cpuclock=XXXXXXXXXX"),
|
||
"cpuclock=%d", VasEBoot_arch_cpuclock);
|
||
linux_envp[3] = (VasEBoot_uint8_t *) linux_envs - (VasEBoot_uint8_t *) playground
|
||
+ target_addr;
|
||
linux_envs += ALIGN_UP (VasEBoot_strlen (linux_envs) + 1, 4);
|
||
|
||
linux_envp[4] = 0;
|
||
#endif
|
||
#endif
|
||
|
||
VasEBoot_loader_set (VasEBoot_linux_boot, VasEBoot_linux_unload, 1);
|
||
initrd_loaded = 0;
|
||
loaded = 1;
|
||
VasEBoot_dl_ref (my_mod);
|
||
|
||
return VasEBoot_ERR_NONE;
|
||
}
|
||
|
||
static VasEBoot_err_t
|
||
VasEBoot_cmd_initrd (VasEBoot_command_t cmd __attribute__ ((unused)),
|
||
int argc, char *argv[])
|
||
{
|
||
VasEBoot_size_t size = 0;
|
||
void *initrd_src;
|
||
VasEBoot_addr_t initrd_dest;
|
||
VasEBoot_err_t err;
|
||
struct VasEBoot_linux_initrd_context initrd_ctx = { 0, 0, 0 };
|
||
|
||
if (argc == 0)
|
||
return VasEBoot_error (VasEBoot_ERR_BAD_ARGUMENT, N_("filename expected"));
|
||
|
||
if (!loaded)
|
||
return VasEBoot_error (VasEBoot_ERR_BAD_ARGUMENT, N_("you need to load the kernel first"));
|
||
|
||
if (initrd_loaded)
|
||
return VasEBoot_error (VasEBoot_ERR_BAD_ARGUMENT, "only one initrd command can be issued.");
|
||
|
||
if (VasEBoot_initrd_init (argc, argv, &initrd_ctx))
|
||
goto fail;
|
||
|
||
size = VasEBoot_get_initrd_size (&initrd_ctx);
|
||
|
||
{
|
||
VasEBoot_relocator_chunk_t ch;
|
||
|
||
err = VasEBoot_relocator_alloc_chunk_align (relocator, &ch,
|
||
(target_addr & 0x1fffffff)
|
||
+ linux_size + 0x10000,
|
||
(0x10000000 - size),
|
||
size, 0x10000,
|
||
VasEBoot_RELOCATOR_PREFERENCE_NONE, 0);
|
||
|
||
if (err)
|
||
goto fail;
|
||
initrd_src = get_virtual_current_address (ch);
|
||
initrd_dest = get_physical_target_address (ch) | 0x80000000;
|
||
}
|
||
|
||
if (VasEBoot_initrd_load (&initrd_ctx, argv, initrd_src))
|
||
goto fail;
|
||
|
||
#ifdef VasEBoot_MACHINE_MIPS_QEMU_MIPS
|
||
{
|
||
char *tmp;
|
||
tmp = VasEBoot_xasprintf ("%s rd_start=0x%" PRIxVasEBoot_ADDR
|
||
" rd_size=0x%" PRIxVasEBoot_ADDR, params,
|
||
initrd_dest, size);
|
||
if (!tmp)
|
||
goto fail;
|
||
VasEBoot_free (params);
|
||
params = tmp;
|
||
}
|
||
#else
|
||
VasEBoot_snprintf ((char *) playground + rd_addr_arg_off,
|
||
sizeof ("rd_start=0xXXXXXXXXXXXXXXXX"), "rd_start=0x%llx",
|
||
(unsigned long long) initrd_dest);
|
||
((VasEBoot_uint32_t *) (playground + argv_off))[linux_argc]
|
||
= target_addr + rd_addr_arg_off;
|
||
linux_argc++;
|
||
|
||
VasEBoot_snprintf ((char *) playground + rd_size_arg_off,
|
||
sizeof ("rd_size=0xXXXXXXXXXXXXXXXXX"), "rd_size=0x%llx",
|
||
(unsigned long long) size);
|
||
((VasEBoot_uint32_t *) (playground + argv_off))[linux_argc]
|
||
= target_addr + rd_size_arg_off;
|
||
linux_argc++;
|
||
#endif
|
||
|
||
initrd_loaded = 1;
|
||
|
||
fail:
|
||
VasEBoot_initrd_close (&initrd_ctx);
|
||
|
||
return VasEBoot_errno;
|
||
}
|
||
|
||
static VasEBoot_command_t cmd_linux, cmd_initrd;
|
||
|
||
VasEBoot_MOD_INIT(linux)
|
||
{
|
||
cmd_linux = VasEBoot_register_command ("linux", VasEBoot_cmd_linux,
|
||
0, N_("Load Linux."));
|
||
cmd_initrd = VasEBoot_register_command ("initrd", VasEBoot_cmd_initrd,
|
||
0, N_("Load initrd."));
|
||
my_mod = mod;
|
||
}
|
||
|
||
VasEBoot_MOD_FINI(linux)
|
||
{
|
||
VasEBoot_unregister_command (cmd_linux);
|
||
VasEBoot_unregister_command (cmd_initrd);
|
||
}
|