2N/A/* linux.c - boot Linux */
2N/A/*
2N/A * GRUB -- GRand Unified Bootloader
2N/A * Copyright (C) 2003,2004,2005,2007,2009,2010 Free Software Foundation, Inc.
2N/A *
2N/A * GRUB is free software: you can redistribute it and/or modify
2N/A * it under the terms of the GNU General Public License as published by
2N/A * the Free Software Foundation, either version 3 of the License, or
2N/A * (at your option) any later version.
2N/A *
2N/A * GRUB is distributed in the hope that it will be useful,
2N/A * but WITHOUT ANY WARRANTY; without even the implied warranty of
2N/A * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2N/A * GNU General Public License for more details.
2N/A *
2N/A * You should have received a copy of the GNU General Public License
2N/A * along with GRUB. If not, see <http://www.gnu.org/licenses/>.
2N/A */
2N/A
2N/A#include <grub/elf.h>
2N/A#include <grub/elfload.h>
2N/A#include <grub/loader.h>
2N/A#include <grub/dl.h>
2N/A#include <grub/mm.h>
2N/A#include <grub/misc.h>
2N/A#include <grub/command.h>
2N/A#include <grub/mips/relocator.h>
2N/A#include <grub/memory.h>
2N/A#include <grub/i18n.h>
2N/A#include <grub/lib/cmdline.h>
2N/A
2N/AGRUB_MOD_LICENSE ("GPLv3+");
2N/A
2N/A/* For frequencies. */
2N/A#include <grub/machine/time.h>
2N/A
2N/A#ifdef GRUB_MACHINE_MIPS_LOONGSON
2N/A#include <grub/pci.h>
2N/A#include <grub/machine/kernel.h>
2N/A
2N/Aconst char loongson_machtypes[][60] =
2N/A {
2N/A [GRUB_ARCH_MACHINE_YEELOONG] = "machtype=lemote-yeeloong-2f-8.9inches",
2N/A [GRUB_ARCH_MACHINE_FULOONG2F] = "machtype=lemote-fuloong-2f-box",
2N/A [GRUB_ARCH_MACHINE_FULOONG2E] = "machtype=lemote-fuloong-2e-unknown"
2N/A };
2N/A#endif
2N/A
2N/Astatic grub_dl_t my_mod;
2N/A
2N/Astatic int loaded;
2N/A
2N/Astatic grub_size_t linux_size;
2N/A
2N/Astatic struct grub_relocator *relocator;
2N/Astatic grub_uint8_t *playground;
2N/Astatic grub_addr_t target_addr, entry_addr;
2N/A#ifdef GRUB_MACHINE_MIPS_QEMU_MIPS
2N/Astatic char *params;
2N/A#else
2N/Astatic int linux_argc;
2N/Astatic grub_off_t argv_off;
2N/A#ifdef GRUB_MACHINE_MIPS_LOONGSON
2N/Astatic grub_off_t envp_off;
2N/A#endif
2N/Astatic grub_off_t rd_addr_arg_off, rd_size_arg_off;
2N/A#endif
2N/Astatic int initrd_loaded = 0;
2N/A
2N/Astatic grub_err_t
2N/Agrub_linux_boot (void)
2N/A{
2N/A struct grub_relocator32_state state;
2N/A
2N/A grub_memset (&state, 0, sizeof (state));
2N/A
2N/A /* Boot the kernel. */
2N/A state.gpr[1] = entry_addr;
2N/A
2N/A#ifdef GRUB_MACHINE_MIPS_QEMU_MIPS
2N/A {
2N/A grub_err_t err;
2N/A grub_relocator_chunk_t ch;
2N/A grub_uint32_t *memsize;
2N/A grub_uint32_t *magic;
2N/A char *str;
2N/A
2N/A err = grub_relocator_alloc_chunk_addr (relocator, &ch,
2N/A ((16 << 20) - 264),
2N/A grub_strlen (params) + 1 + 8);
2N/A if (err)
2N/A return err;
2N/A memsize = get_virtual_current_address (ch);
2N/A magic = memsize + 1;
2N/A *memsize = grub_mmap_get_lower ();
2N/A *magic = 0x12345678;
2N/A str = (char *) (magic + 1);
2N/A grub_strcpy (str, params);
2N/A }
2N/A#endif
2N/A
2N/A#ifndef GRUB_MACHINE_MIPS_QEMU_MIPS
2N/A state.gpr[4] = linux_argc;
2N/A state.gpr[5] = target_addr + argv_off;
2N/A#ifdef GRUB_MACHINE_MIPS_LOONGSON
2N/A state.gpr[6] = target_addr + envp_off;
2N/A#else
2N/A state.gpr[6] = 0;
2N/A#endif
2N/A state.gpr[7] = 0;
2N/A#endif
2N/A state.jumpreg = 1;
2N/A grub_relocator32_boot (relocator, state);
2N/A
2N/A return GRUB_ERR_NONE;
2N/A}
2N/A
2N/Astatic grub_err_t
2N/Agrub_linux_unload (void)
2N/A{
2N/A grub_relocator_unload (relocator);
2N/A grub_dl_unref (my_mod);
2N/A
2N/A#ifdef GRUB_MACHINE_MIPS_QEMU_MIPS
2N/A grub_free (params);
2N/A params = 0;
2N/A#endif
2N/A
2N/A loaded = 0;
2N/A
2N/A return GRUB_ERR_NONE;
2N/A}
2N/A
2N/Astatic grub_err_t
2N/Agrub_linux_load32 (grub_elf_t elf, void **extra_mem, grub_size_t extra_size)
2N/A{
2N/A Elf32_Addr base;
2N/A int extraoff;
2N/A grub_err_t err;
2N/A
2N/A /* Linux's entry point incorrectly contains a virtual address. */
2N/A entry_addr = elf->ehdr.ehdr32.e_entry;
2N/A
2N/A linux_size = grub_elf32_size (elf, &base, 0);
2N/A if (linux_size == 0)
2N/A return grub_errno;
2N/A target_addr = base;
2N/A /* Pad it; the kernel scribbles over memory beyond its load address. */
2N/A linux_size += 0x100000;
2N/A linux_size = ALIGN_UP (base + linux_size, 4) - base;
2N/A extraoff = linux_size;
2N/A linux_size += extra_size;
2N/A
2N/A relocator = grub_relocator_new ();
2N/A if (!relocator)
2N/A return grub_errno;
2N/A
2N/A {
2N/A grub_relocator_chunk_t ch;
2N/A err = grub_relocator_alloc_chunk_addr (relocator, &ch,
2N/A target_addr & 0x1fffffff,
2N/A linux_size);
2N/A if (err)
2N/A return err;
2N/A playground = get_virtual_current_address (ch);
2N/A }
2N/A
2N/A *extra_mem = playground + extraoff;
2N/A
2N/A /* Now load the segments into the area we claimed. */
2N/A auto grub_err_t offset_phdr (Elf32_Phdr *phdr, grub_addr_t *addr, int *do_load);
2N/A grub_err_t offset_phdr (Elf32_Phdr *phdr, grub_addr_t *addr, int *do_load)
2N/A {
2N/A if (phdr->p_type != PT_LOAD)
2N/A {
2N/A *do_load = 0;
2N/A return 0;
2N/A }
2N/A *do_load = 1;
2N/A
2N/A /* Linux's program headers incorrectly contain virtual addresses.
2N/A * Translate those to physical, and offset to the area we claimed. */
2N/A *addr = (grub_addr_t) (phdr->p_paddr - base + playground);
2N/A return 0;
2N/A }
2N/A return grub_elf32_load (elf, offset_phdr, 0, 0);
2N/A}
2N/A
2N/Astatic grub_err_t
2N/Agrub_linux_load64 (grub_elf_t elf, void **extra_mem, grub_size_t extra_size)
2N/A{
2N/A Elf64_Addr base;
2N/A int extraoff;
2N/A grub_err_t err;
2N/A
2N/A /* Linux's entry point incorrectly contains a virtual address. */
2N/A entry_addr = elf->ehdr.ehdr64.e_entry;
2N/A
2N/A linux_size = grub_elf64_size (elf, &base, 0);
2N/A if (linux_size == 0)
2N/A return grub_errno;
2N/A target_addr = base;
2N/A /* Pad it; the kernel scribbles over memory beyond its load address. */
2N/A linux_size += 0x100000;
2N/A linux_size = ALIGN_UP (base + linux_size, 4) - base;
2N/A extraoff = linux_size;
2N/A linux_size += extra_size;
2N/A
2N/A relocator = grub_relocator_new ();
2N/A if (!relocator)
2N/A return grub_errno;
2N/A
2N/A {
2N/A grub_relocator_chunk_t ch;
2N/A err = grub_relocator_alloc_chunk_addr (relocator, &ch,
2N/A target_addr & 0x1fffffff,
2N/A linux_size);
2N/A if (err)
2N/A return err;
2N/A playground = get_virtual_current_address (ch);
2N/A }
2N/A
2N/A *extra_mem = playground + extraoff;
2N/A
2N/A /* Now load the segments into the area we claimed. */
2N/A auto grub_err_t offset_phdr (Elf64_Phdr *phdr, grub_addr_t *addr, int *do_load);
2N/A grub_err_t offset_phdr (Elf64_Phdr *phdr, grub_addr_t *addr, int *do_load)
2N/A {
2N/A if (phdr->p_type != PT_LOAD)
2N/A {
2N/A *do_load = 0;
2N/A return 0;
2N/A }
2N/A *do_load = 1;
2N/A /* Linux's program headers incorrectly contain virtual addresses.
2N/A * Translate those to physical, and offset to the area we claimed. */
2N/A *addr = (grub_addr_t) (phdr->p_paddr - base + playground);
2N/A return 0;
2N/A }
2N/A return grub_elf64_load (elf, offset_phdr, 0, 0);
2N/A}
2N/A
2N/Astatic grub_err_t
2N/Agrub_cmd_linux (grub_command_t cmd __attribute__ ((unused)),
2N/A int argc, char *argv[])
2N/A{
2N/A grub_elf_t elf = 0;
2N/A int size;
2N/A void *extra = NULL;
2N/A#ifndef GRUB_MACHINE_MIPS_QEMU_MIPS
2N/A int i;
2N/A grub_uint32_t *linux_argv;
2N/A char *linux_args;
2N/A#endif
2N/A grub_err_t err;
2N/A#ifdef GRUB_MACHINE_MIPS_LOONGSON
2N/A char *linux_envs;
2N/A grub_uint32_t *linux_envp;
2N/A#endif
2N/A
2N/A if (argc == 0)
2N/A return grub_error (GRUB_ERR_BAD_ARGUMENT, "no kernel specified");
2N/A
2N/A elf = grub_elf_open (argv[0]);
2N/A if (! elf)
2N/A return grub_errno;
2N/A
2N/A if (elf->ehdr.ehdr32.e_type != ET_EXEC)
2N/A {
2N/A grub_elf_close (elf);
2N/A return grub_error (GRUB_ERR_UNKNOWN_OS,
2N/A "this ELF file is not of the right type\n");
2N/A }
2N/A
2N/A /* Release the previously used memory. */
2N/A grub_loader_unset ();
2N/A loaded = 0;
2N/A
2N/A#ifdef GRUB_MACHINE_MIPS_QEMU_MIPS
2N/A size = 0;
2N/A#else
2N/A /* For arguments. */
2N/A linux_argc = argc;
2N/A#ifdef GRUB_MACHINE_MIPS_LOONGSON
2N/A linux_argc++;
2N/A#endif
2N/A /* Main arguments. */
2N/A size = (linux_argc) * sizeof (grub_uint32_t);
2N/A /* Initrd address and size. */
2N/A size += 2 * sizeof (grub_uint32_t);
2N/A /* NULL terminator. */
2N/A size += sizeof (grub_uint32_t);
2N/A
2N/A /* First argument is always "a0". */
2N/A size += ALIGN_UP (sizeof ("a0"), 4);
2N/A /* Normal arguments. */
2N/A for (i = 1; i < argc; i++)
2N/A size += ALIGN_UP (grub_strlen (argv[i]) + 1, 4);
2N/A#ifdef GRUB_MACHINE_MIPS_LOONGSON
2N/A size += ALIGN_UP (sizeof (loongson_machtypes[0]), 4);
2N/A#endif
2N/A
2N/A /* rd arguments. */
2N/A size += ALIGN_UP (sizeof ("rd_start=0xXXXXXXXXXXXXXXXX"), 4);
2N/A size += ALIGN_UP (sizeof ("rd_size=0xXXXXXXXXXXXXXXXX"), 4);
2N/A
2N/A /* For the environment. */
2N/A size += sizeof (grub_uint32_t);
2N/A size += 4 * sizeof (grub_uint32_t);
2N/A size += ALIGN_UP (sizeof ("memsize=XXXXXXXXXXXXXXXXXXXX"), 4)
2N/A + ALIGN_UP (sizeof ("highmemsize=XXXXXXXXXXXXXXXXXXXX"), 4)
2N/A + ALIGN_UP (sizeof ("busclock=XXXXXXXXXX"), 4)
2N/A + ALIGN_UP (sizeof ("cpuclock=XXXXXXXXXX"), 4);
2N/A#endif
2N/A
2N/A if (grub_elf_is_elf32 (elf))
2N/A err = grub_linux_load32 (elf, &extra, size);
2N/A else
2N/A if (grub_elf_is_elf64 (elf))
2N/A err = grub_linux_load64 (elf, &extra, size);
2N/A else
2N/A err = grub_error (GRUB_ERR_BAD_FILE_TYPE, "unknown ELF class");
2N/A
2N/A grub_elf_close (elf);
2N/A
2N/A if (err)
2N/A return err;
2N/A
2N/A#ifdef GRUB_MACHINE_MIPS_QEMU_MIPS
2N/A /* Create kernel command line. */
2N/A size = grub_loader_cmdline_size(argc, argv);
2N/A params = grub_malloc (size + sizeof (LINUX_IMAGE));
2N/A if (! params)
2N/A {
2N/A grub_linux_unload ();
2N/A return grub_errno;
2N/A }
2N/A
2N/A grub_memcpy (params, LINUX_IMAGE, sizeof (LINUX_IMAGE));
2N/A grub_create_loader_cmdline (argc, argv, params + sizeof (LINUX_IMAGE) - 1,
2N/A size);
2N/A#else
2N/A linux_argv = extra;
2N/A argv_off = (grub_uint8_t *) linux_argv - (grub_uint8_t *) playground;
2N/A extra = linux_argv + (linux_argc + 1 + 2);
2N/A linux_args = extra;
2N/A
2N/A grub_memcpy (linux_args, "a0", sizeof ("a0"));
2N/A *linux_argv = (grub_uint8_t *) linux_args - (grub_uint8_t *) playground
2N/A + target_addr;
2N/A linux_argv++;
2N/A linux_args += ALIGN_UP (sizeof ("a0"), 4);
2N/A
2N/A#ifdef GRUB_MACHINE_MIPS_LOONGSON
2N/A {
2N/A unsigned mtype = grub_arch_machine;
2N/A if (mtype >= ARRAY_SIZE (loongson_machtypes))
2N/A mtype = 0;
2N/A /* In Loongson platform, it is the responsibility of the bootloader/firmware
2N/A to supply the OS kernel with machine type information. */
2N/A grub_memcpy (linux_args, loongson_machtypes[mtype],
2N/A sizeof (loongson_machtypes[mtype]));
2N/A *linux_argv = (grub_uint8_t *) linux_args - (grub_uint8_t *) playground
2N/A + target_addr;
2N/A linux_argv++;
2N/A linux_args += ALIGN_UP (sizeof (loongson_machtypes[mtype]), 4);
2N/A }
2N/A#endif
2N/A
2N/A for (i = 1; i < argc; i++)
2N/A {
2N/A grub_memcpy (linux_args, argv[i], grub_strlen (argv[i]) + 1);
2N/A *linux_argv = (grub_uint8_t *) linux_args - (grub_uint8_t *) playground
2N/A + target_addr;
2N/A linux_argv++;
2N/A linux_args += ALIGN_UP (grub_strlen (argv[i]) + 1, 4);
2N/A }
2N/A
2N/A /* Reserve space for rd arguments. */
2N/A rd_addr_arg_off = (grub_uint8_t *) linux_args - (grub_uint8_t *) playground;
2N/A linux_args += ALIGN_UP (sizeof ("rd_start=0xXXXXXXXXXXXXXXXX"), 4);
2N/A *linux_argv = 0;
2N/A linux_argv++;
2N/A
2N/A rd_size_arg_off = (grub_uint8_t *) linux_args - (grub_uint8_t *) playground;
2N/A linux_args += ALIGN_UP (sizeof ("rd_size=0xXXXXXXXXXXXXXXXX"), 4);
2N/A *linux_argv = 0;
2N/A linux_argv++;
2N/A
2N/A *linux_argv = 0;
2N/A
2N/A extra = linux_args;
2N/A
2N/A#ifdef GRUB_MACHINE_MIPS_LOONGSON
2N/A linux_envp = extra;
2N/A envp_off = (grub_uint8_t *) linux_envp - (grub_uint8_t *) playground;
2N/A linux_envs = (char *) (linux_envp + 5);
2N/A grub_snprintf (linux_envs, sizeof ("memsize=XXXXXXXXXXXXXXXXXXXX"),
2N/A "memsize=%lld",
2N/A (unsigned long long) grub_mmap_get_lower () >> 20);
2N/A linux_envp[0] = (grub_uint8_t *) linux_envs - (grub_uint8_t *) playground
2N/A + target_addr;
2N/A linux_envs += ALIGN_UP (grub_strlen (linux_envs) + 1, 4);
2N/A grub_snprintf (linux_envs, sizeof ("highmemsize=XXXXXXXXXXXXXXXXXXXX"),
2N/A "highmemsize=%lld",
2N/A (unsigned long long) grub_mmap_get_upper () >> 20);
2N/A linux_envp[1] = (grub_uint8_t *) linux_envs - (grub_uint8_t *) playground
2N/A + target_addr;
2N/A linux_envs += ALIGN_UP (grub_strlen (linux_envs) + 1, 4);
2N/A
2N/A grub_snprintf (linux_envs, sizeof ("busclock=XXXXXXXXXX"),
2N/A "busclock=%d", grub_arch_busclock);
2N/A linux_envp[2] = (grub_uint8_t *) linux_envs - (grub_uint8_t *) playground
2N/A + target_addr;
2N/A linux_envs += ALIGN_UP (grub_strlen (linux_envs) + 1, 4);
2N/A grub_snprintf (linux_envs, sizeof ("cpuclock=XXXXXXXXXX"),
2N/A "cpuclock=%d", grub_arch_cpuclock);
2N/A linux_envp[3] = (grub_uint8_t *) linux_envs - (grub_uint8_t *) playground
2N/A + target_addr;
2N/A linux_envs += ALIGN_UP (grub_strlen (linux_envs) + 1, 4);
2N/A
2N/A linux_envp[4] = 0;
2N/A#endif
2N/A#endif
2N/A
2N/A grub_loader_set (grub_linux_boot, grub_linux_unload, 1);
2N/A initrd_loaded = 0;
2N/A loaded = 1;
2N/A grub_dl_ref (my_mod);
2N/A
2N/A return GRUB_ERR_NONE;
2N/A}
2N/A
2N/Astatic grub_err_t
2N/Agrub_cmd_initrd (grub_command_t cmd __attribute__ ((unused)),
2N/A int argc, char *argv[])
2N/A{
2N/A grub_file_t *files = 0;
2N/A grub_size_t size = 0;
2N/A void *initrd_src;
2N/A grub_addr_t initrd_dest;
2N/A grub_err_t err;
2N/A int i;
2N/A int nfiles = 0;
2N/A grub_uint8_t *ptr;
2N/A
2N/A if (argc == 0)
2N/A return grub_error (GRUB_ERR_BAD_ARGUMENT, "no initrd specified");
2N/A
2N/A if (!loaded)
2N/A return grub_error (GRUB_ERR_BAD_ARGUMENT, "you need to load Linux first.");
2N/A
2N/A if (initrd_loaded)
2N/A return grub_error (GRUB_ERR_BAD_ARGUMENT, "only one initrd command can be issued.");
2N/A
2N/A files = grub_zalloc (argc * sizeof (files[0]));
2N/A if (!files)
2N/A goto fail;
2N/A
2N/A for (i = 0; i < argc; i++)
2N/A {
2N/A grub_file_filter_disable_compression ();
2N/A files[i] = grub_file_open (argv[i]);
2N/A if (! files[i])
2N/A goto fail;
2N/A nfiles++;
2N/A size += grub_file_size (files[i]);
2N/A }
2N/A
2N/A {
2N/A grub_relocator_chunk_t ch;
2N/A
2N/A err = grub_relocator_alloc_chunk_align (relocator, &ch,
2N/A (target_addr & 0x1fffffff)
2N/A + linux_size + 0x10000,
2N/A (0x10000000 - size),
2N/A size, 0x10000,
2N/A GRUB_RELOCATOR_PREFERENCE_NONE);
2N/A
2N/A if (err)
2N/A goto fail;
2N/A initrd_src = get_virtual_current_address (ch);
2N/A initrd_dest = get_physical_target_address (ch) | 0x80000000;
2N/A }
2N/A
2N/A ptr = initrd_src;
2N/A for (i = 0; i < nfiles; i++)
2N/A {
2N/A grub_ssize_t cursize = grub_file_size (files[i]);
2N/A if (grub_file_read (files[i], ptr, cursize) != cursize)
2N/A {
2N/A if (!grub_errno)
2N/A grub_error (GRUB_ERR_FILE_READ_ERROR, N_("premature end of file %s"),
2N/A argv[i]);
2N/A goto fail;
2N/A }
2N/A ptr += cursize;
2N/A }
2N/A
2N/A#ifdef GRUB_MACHINE_MIPS_QEMU_MIPS
2N/A {
2N/A char *tmp;
2N/A tmp = grub_xasprintf ("%s rd_start=0x%" PRIxGRUB_ADDR
2N/A " rd_size=0x%" PRIxGRUB_ADDR, params,
2N/A initrd_dest, size);
2N/A if (!tmp)
2N/A goto fail;
2N/A grub_free (params);
2N/A params = tmp;
2N/A }
2N/A#else
2N/A grub_snprintf ((char *) playground + rd_addr_arg_off,
2N/A sizeof ("rd_start=0xXXXXXXXXXXXXXXXX"), "rd_start=0x%llx",
2N/A (unsigned long long) initrd_dest);
2N/A ((grub_uint32_t *) (playground + argv_off))[linux_argc]
2N/A = target_addr + rd_addr_arg_off;
2N/A linux_argc++;
2N/A
2N/A grub_snprintf ((char *) playground + rd_size_arg_off,
2N/A sizeof ("rd_size=0xXXXXXXXXXXXXXXXXX"), "rd_size=0x%llx",
2N/A (unsigned long long) size);
2N/A ((grub_uint32_t *) (playground + argv_off))[linux_argc]
2N/A = target_addr + rd_size_arg_off;
2N/A linux_argc++;
2N/A#endif
2N/A
2N/A initrd_loaded = 1;
2N/A
2N/A fail:
2N/A for (i = 0; i < nfiles; i++)
2N/A grub_file_close (files[i]);
2N/A grub_free (files);
2N/A
2N/A return grub_errno;
2N/A}
2N/A
2N/Astatic grub_command_t cmd_linux, cmd_initrd;
2N/A
2N/AGRUB_MOD_INIT(linux)
2N/A{
2N/A cmd_linux = grub_register_command ("linux", grub_cmd_linux,
2N/A 0, N_("Load Linux."));
2N/A cmd_initrd = grub_register_command ("initrd", grub_cmd_initrd,
2N/A 0, N_("Load initrd."));
2N/A my_mod = mod;
2N/A}
2N/A
2N/AGRUB_MOD_FINI(linux)
2N/A{
2N/A grub_unregister_command (cmd_linux);
2N/A grub_unregister_command (cmd_initrd);
2N/A}