Home | History | Annotate | Line # | Download | only in lib
exec.c revision 1.61.2.1
      1  1.61.2.1  pgoyette /*	$NetBSD: exec.c,v 1.61.2.1 2017/01/07 08:56:18 pgoyette Exp $	 */
      2      1.23        ad 
      3  1.61.2.1  pgoyette /*
      4      1.40        ad  * Copyright (c) 2008, 2009 The NetBSD Foundation, Inc.
      5      1.23        ad  * All rights reserved.
      6      1.23        ad  *
      7      1.23        ad  * Redistribution and use in source and binary forms, with or without
      8      1.23        ad  * modification, are permitted provided that the following conditions
      9      1.23        ad  * are met:
     10      1.23        ad  * 1. Redistributions of source code must retain the above copyright
     11      1.23        ad  *    notice, this list of conditions and the following disclaimer.
     12      1.23        ad  * 2. Redistributions in binary form must reproduce the above copyright
     13      1.23        ad  *    notice, this list of conditions and the following disclaimer in the
     14      1.23        ad  *    documentation and/or other materials provided with the distribution.
     15      1.23        ad  *
     16      1.23        ad  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     17      1.23        ad  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     18      1.23        ad  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     19      1.23        ad  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     20      1.23        ad  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     21      1.23        ad  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     22      1.23        ad  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     23      1.23        ad  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     24      1.23        ad  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     25      1.23        ad  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     26      1.23        ad  * POSSIBILITY OF SUCH DAMAGE.
     27      1.23        ad  */
     28       1.1     perry 
     29       1.1     perry /*
     30       1.1     perry  * Copyright (c) 1982, 1986, 1990, 1993
     31       1.1     perry  *	The Regents of the University of California.  All rights reserved.
     32      1.19       agc  *
     33      1.19       agc  * Redistribution and use in source and binary forms, with or without
     34      1.19       agc  * modification, are permitted provided that the following conditions
     35      1.19       agc  * are met:
     36      1.19       agc  * 1. Redistributions of source code must retain the above copyright
     37      1.19       agc  *    notice, this list of conditions and the following disclaimer.
     38      1.19       agc  * 2. Redistributions in binary form must reproduce the above copyright
     39      1.19       agc  *    notice, this list of conditions and the following disclaimer in the
     40      1.19       agc  *    documentation and/or other materials provided with the distribution.
     41      1.19       agc  * 3. Neither the name of the University nor the names of its contributors
     42      1.19       agc  *    may be used to endorse or promote products derived from this software
     43      1.19       agc  *    without specific prior written permission.
     44      1.19       agc  *
     45      1.19       agc  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     46      1.19       agc  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     47      1.19       agc  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     48      1.19       agc  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     49      1.19       agc  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     50      1.19       agc  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     51      1.19       agc  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     52      1.19       agc  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     53      1.19       agc  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     54      1.19       agc  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     55      1.19       agc  * SUCH DAMAGE.
     56      1.19       agc  *
     57      1.19       agc  * 	@(#)boot.c	8.1 (Berkeley) 6/10/93
     58      1.19       agc  */
     59      1.19       agc 
     60      1.19       agc /*
     61       1.1     perry  * Copyright (c) 1996
     62       1.1     perry  *	Matthias Drochner.  All rights reserved.
     63       1.1     perry  * Copyright (c) 1996
     64       1.1     perry  * 	Perry E. Metzger.  All rights reserved.
     65       1.1     perry  *
     66       1.1     perry  * Redistribution and use in source and binary forms, with or without
     67       1.1     perry  * modification, are permitted provided that the following conditions
     68       1.1     perry  * are met:
     69       1.1     perry  * 1. Redistributions of source code must retain the above copyright
     70       1.1     perry  *    notice, this list of conditions and the following disclaimer.
     71       1.1     perry  * 2. Redistributions in binary form must reproduce the above copyright
     72       1.1     perry  *    notice, this list of conditions and the following disclaimer in the
     73       1.1     perry  *    documentation and/or other materials provided with the distribution.
     74       1.1     perry  *
     75       1.1     perry  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     76       1.1     perry  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     77       1.1     perry  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     78       1.1     perry  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     79       1.1     perry  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     80       1.1     perry  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     81       1.1     perry  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     82       1.1     perry  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     83       1.1     perry  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     84       1.1     perry  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     85       1.1     perry  * SUCH DAMAGE.
     86       1.1     perry  *
     87       1.1     perry  * 	@(#)boot.c	8.1 (Berkeley) 6/10/93
     88       1.1     perry  */
     89       1.1     perry 
     90       1.2   thorpej /*
     91  1.61.2.1  pgoyette  * Starts a NetBSD ELF kernel. The low level startup is done in startprog.S.
     92       1.8  christos  * This is a special version of exec.c to support use of XMS.
     93       1.1     perry  */
     94       1.8  christos 
     95       1.1     perry #include <sys/param.h>
     96       1.1     perry #include <sys/reboot.h>
     97      1.40        ad #include <sys/reboot.h>
     98       1.1     perry 
     99      1.53  jakllsch #include <i386/multiboot.h>
    100      1.33     joerg 
    101       1.1     perry #include <lib/libsa/stand.h>
    102      1.23        ad #include <lib/libkern/libkern.h>
    103       1.4  drochner 
    104       1.6  christos #include "loadfile.h"
    105       1.1     perry #include "libi386.h"
    106       1.4  drochner #include "bootinfo.h"
    107      1.23        ad #include "bootmod.h"
    108      1.42  jmcneill #include "vbe.h"
    109      1.16  jdolecek #ifdef SUPPORT_PS2
    110      1.16  jdolecek #include "biosmca.h"
    111      1.16  jdolecek #endif
    112       1.1     perry 
    113       1.6  christos #define BOOT_NARGS	6
    114       1.1     perry 
    115      1.23        ad #ifndef	PAGE_SIZE
    116      1.23        ad #define	PAGE_SIZE	4096
    117      1.23        ad #endif
    118      1.23        ad 
    119      1.43   tsutsui #define MODULE_WARNING_SEC	5
    120      1.41  jmcneill 
    121       1.4  drochner extern struct btinfo_console btinfo_console;
    122       1.4  drochner 
    123      1.23        ad boot_module_t *boot_modules;
    124      1.23        ad bool boot_modules_enabled = true;
    125      1.23        ad bool kernel_loaded;
    126      1.23        ad 
    127      1.47  uebayasi typedef struct userconf_command {
    128      1.47  uebayasi 	char *uc_text;
    129      1.47  uebayasi 	size_t uc_len;
    130      1.47  uebayasi 	struct userconf_command *uc_next;
    131      1.47  uebayasi } userconf_command_t;
    132      1.47  uebayasi userconf_command_t *userconf_commands = NULL;
    133      1.47  uebayasi 
    134      1.39  jmcneill static struct btinfo_framebuffer btinfo_framebuffer;
    135      1.39  jmcneill 
    136      1.23        ad static struct btinfo_modulelist *btinfo_modulelist;
    137      1.23        ad static size_t btinfo_modulelist_size;
    138      1.23        ad static uint32_t image_end;
    139      1.26        ad static char module_base[64] = "/";
    140      1.40        ad static int howto;
    141      1.23        ad 
    142      1.47  uebayasi static struct btinfo_userconfcommands *btinfo_userconfcommands = NULL;
    143      1.47  uebayasi static size_t btinfo_userconfcommands_size = 0;
    144      1.47  uebayasi 
    145      1.41  jmcneill static void	module_init(const char *);
    146      1.57  jakllsch static void	module_add_common(const char *, uint8_t);
    147      1.23        ad 
    148      1.47  uebayasi static void	userconf_init(void);
    149      1.47  uebayasi 
    150      1.34        ad void
    151      1.39  jmcneill framebuffer_configure(struct btinfo_framebuffer *fb)
    152      1.39  jmcneill {
    153      1.39  jmcneill 	if (fb)
    154      1.39  jmcneill 		btinfo_framebuffer = *fb;
    155      1.39  jmcneill 	else {
    156      1.39  jmcneill 		btinfo_framebuffer.physaddr = 0;
    157      1.39  jmcneill 		btinfo_framebuffer.flags = 0;
    158      1.39  jmcneill 	}
    159      1.39  jmcneill }
    160      1.39  jmcneill 
    161      1.39  jmcneill void
    162      1.34        ad module_add(char *name)
    163      1.34        ad {
    164      1.46  jmcneill 	return module_add_common(name, BM_TYPE_KMOD);
    165      1.46  jmcneill }
    166      1.46  jmcneill 
    167      1.46  jmcneill void
    168      1.46  jmcneill splash_add(char *name)
    169      1.46  jmcneill {
    170      1.46  jmcneill 	return module_add_common(name, BM_TYPE_IMAGE);
    171      1.46  jmcneill }
    172      1.46  jmcneill 
    173      1.49       tls void
    174      1.49       tls rnd_add(char *name)
    175      1.49       tls {
    176      1.49       tls 	return module_add_common(name, BM_TYPE_RND);
    177      1.49       tls }
    178      1.49       tls 
    179      1.51  jmcneill void
    180      1.51  jmcneill fs_add(char *name)
    181      1.51  jmcneill {
    182      1.51  jmcneill 	return module_add_common(name, BM_TYPE_FS);
    183      1.51  jmcneill }
    184      1.51  jmcneill 
    185      1.46  jmcneill static void
    186      1.57  jakllsch module_add_common(const char *name, uint8_t type)
    187      1.46  jmcneill {
    188      1.34        ad 	boot_module_t *bm, *bmp;
    189      1.34        ad 	size_t len;
    190      1.34        ad 	char *str;
    191      1.34        ad 
    192      1.35        ad 	while (*name == ' ' || *name == '\t')
    193      1.35        ad 		++name;
    194      1.35        ad 
    195      1.34        ad 	bm = alloc(sizeof(boot_module_t));
    196      1.34        ad 	len = strlen(name) + 1;
    197      1.34        ad 	str = alloc(len);
    198      1.34        ad 	if (bm == NULL || str == NULL) {
    199      1.34        ad 		printf("couldn't allocate module\n");
    200      1.34        ad 		return;
    201      1.34        ad 	}
    202      1.34        ad 	memcpy(str, name, len);
    203      1.34        ad 	bm->bm_path = str;
    204      1.34        ad 	bm->bm_next = NULL;
    205      1.46  jmcneill 	bm->bm_type = type;
    206      1.34        ad 	if (boot_modules == NULL)
    207      1.34        ad 		boot_modules = bm;
    208      1.34        ad 	else {
    209      1.34        ad 		for (bmp = boot_modules; bmp->bm_next;
    210      1.34        ad 		    bmp = bmp->bm_next)
    211      1.34        ad 			;
    212      1.34        ad 		bmp->bm_next = bm;
    213      1.34        ad 	}
    214      1.34        ad }
    215      1.34        ad 
    216      1.47  uebayasi void
    217      1.47  uebayasi userconf_add(char *cmd)
    218      1.47  uebayasi {
    219      1.47  uebayasi 	userconf_command_t *uc;
    220      1.47  uebayasi 	size_t len;
    221      1.47  uebayasi 	char *text;
    222      1.47  uebayasi 
    223      1.47  uebayasi 	while (*cmd == ' ' || *cmd == '\t')
    224      1.47  uebayasi 		++cmd;
    225      1.47  uebayasi 
    226      1.47  uebayasi 	uc = alloc(sizeof(*uc));
    227      1.47  uebayasi 	if (uc == NULL) {
    228      1.47  uebayasi 		printf("couldn't allocate command\n");
    229      1.47  uebayasi 		return;
    230      1.47  uebayasi 	}
    231      1.47  uebayasi 
    232      1.47  uebayasi 	len = strlen(cmd) + 1;
    233      1.47  uebayasi 	text = alloc(len);
    234      1.47  uebayasi 	if (text == NULL) {
    235      1.47  uebayasi 		dealloc(uc, sizeof(*uc));
    236      1.47  uebayasi 		printf("couldn't allocate command\n");
    237      1.47  uebayasi 		return;
    238      1.47  uebayasi 	}
    239      1.47  uebayasi 	memcpy(text, cmd, len);
    240      1.47  uebayasi 
    241      1.47  uebayasi 	uc->uc_text = text;
    242      1.47  uebayasi 	uc->uc_len = len;
    243      1.47  uebayasi 	uc->uc_next = NULL;
    244      1.47  uebayasi 
    245      1.47  uebayasi 	if (userconf_commands == NULL)
    246      1.47  uebayasi 		userconf_commands = uc;
    247      1.47  uebayasi 	else {
    248      1.47  uebayasi 		userconf_command_t *ucp;
    249      1.47  uebayasi 		for (ucp = userconf_commands; ucp->uc_next != NULL;
    250      1.47  uebayasi 		     ucp = ucp->uc_next)
    251      1.47  uebayasi 			;
    252      1.47  uebayasi 		ucp->uc_next = uc;
    253      1.47  uebayasi 	}
    254      1.47  uebayasi }
    255      1.47  uebayasi 
    256      1.32     joerg static int
    257      1.32     joerg common_load_kernel(const char *file, u_long *basemem, u_long *extmem,
    258      1.32     joerg     physaddr_t loadaddr, int floppy, u_long marks[MARK_MAX])
    259       1.1     perry {
    260      1.32     joerg 	int fd;
    261       1.8  christos #ifdef XMS
    262  1.61.2.1  pgoyette 	u_long xmsmem;
    263  1.61.2.1  pgoyette 	physaddr_t origaddr = loadaddr;
    264       1.8  christos #endif
    265       1.8  christos 
    266      1.32     joerg 	*extmem = getextmem();
    267      1.32     joerg 	*basemem = getbasemem();
    268       1.8  christos 
    269       1.8  christos #ifdef XMS
    270       1.8  christos 	if ((getextmem1() == 0) && (xmsmem = checkxms())) {
    271  1.61.2.1  pgoyette 		u_long kernsize;
    272       1.8  christos 
    273       1.8  christos 		/*
    274       1.8  christos 		 * With "CONSERVATIVE_MEMDETECT", extmem is 0 because
    275  1.61.2.1  pgoyette 		 * getextmem() is getextmem1(). Without, the "smart"
    276  1.61.2.1  pgoyette 		 * methods could fail to report all memory as well.
    277       1.8  christos 		 * xmsmem is a few kB less than the actual size, but
    278  1.61.2.1  pgoyette 		 * better than nothing.
    279       1.8  christos 		 */
    280      1.32     joerg 		if (xmsmem > *extmem)
    281      1.32     joerg 			*extmem = xmsmem;
    282      1.21  junyoung 		/*
    283       1.8  christos 		 * Get the size of the kernel
    284       1.8  christos 		 */
    285       1.8  christos 		marks[MARK_START] = loadaddr;
    286      1.12  christos 		if ((fd = loadfile(file, marks, COUNT_KERNEL)) == -1)
    287      1.32     joerg 			return EIO;
    288       1.8  christos 		close(fd);
    289       1.8  christos 
    290       1.8  christos 		kernsize = marks[MARK_END];
    291       1.8  christos 		kernsize = (kernsize + 1023) / 1024;
    292       1.8  christos 
    293       1.8  christos 		loadaddr = xmsalloc(kernsize);
    294       1.8  christos 		if (!loadaddr)
    295      1.21  junyoung 			return ENOMEM;
    296       1.8  christos 	}
    297       1.8  christos #endif
    298       1.7  christos 	marks[MARK_START] = loadaddr;
    299      1.29  christos 	if ((fd = loadfile(file, marks,
    300      1.44  christos 	    LOAD_KERNEL & ~(floppy ? LOAD_BACKWARDS : 0))) == -1)
    301      1.32     joerg 		return EIO;
    302       1.1     perry 
    303       1.8  christos 	close(fd);
    304      1.10  drochner 
    305      1.50       dsl 	/* If the root fs type is unusual, load its module. */
    306      1.50       dsl 	if (fsmod != NULL)
    307      1.57  jakllsch 		module_add_common(fsmod, BM_TYPE_KMOD);
    308      1.34        ad 
    309      1.10  drochner 	/*
    310      1.10  drochner 	 * Gather some information for the kernel. Do this after the
    311      1.10  drochner 	 * "point of no return" to avoid memory leaks.
    312      1.10  drochner 	 * (but before DOS might be trashed in the XMS case)
    313      1.10  drochner 	 */
    314      1.10  drochner #ifdef PASS_BIOSGEOM
    315      1.10  drochner 	bi_getbiosgeom();
    316      1.10  drochner #endif
    317      1.10  drochner #ifdef PASS_MEMMAP
    318      1.10  drochner 	bi_getmemmap();
    319      1.10  drochner #endif
    320       1.8  christos 
    321       1.8  christos #ifdef XMS
    322       1.8  christos 	if (loadaddr != origaddr) {
    323       1.8  christos 		/*
    324      1.14      ross 		 * We now have done our last DOS IO, so we may
    325       1.8  christos 		 * trash the OS. Copy the data from the temporary
    326      1.20       wiz 		 * buffer to its real address.
    327       1.8  christos 		 */
    328       1.8  christos 		marks[MARK_START] -= loadaddr;
    329       1.8  christos 		marks[MARK_END] -= loadaddr;
    330       1.8  christos 		marks[MARK_SYM] -= loadaddr;
    331       1.8  christos 		marks[MARK_END] -= loadaddr;
    332       1.8  christos 		ppbcopy(loadaddr, origaddr, marks[MARK_END]);
    333       1.8  christos 	}
    334       1.8  christos #endif
    335       1.8  christos 	marks[MARK_END] = (((u_long) marks[MARK_END] + sizeof(int) - 1)) &
    336       1.8  christos 	    (-sizeof(int));
    337      1.23        ad 	image_end = marks[MARK_END];
    338      1.23        ad 	kernel_loaded = true;
    339       1.1     perry 
    340      1.32     joerg 	return 0;
    341      1.32     joerg }
    342      1.32     joerg 
    343      1.32     joerg int
    344      1.40        ad exec_netbsd(const char *file, physaddr_t loadaddr, int boothowto, int floppy,
    345  1.61.2.1  pgoyette     void (*callback)(void))
    346      1.32     joerg {
    347  1.61.2.1  pgoyette 	uint32_t boot_argv[BOOT_NARGS];
    348  1.61.2.1  pgoyette 	u_long marks[MARK_MAX];
    349      1.32     joerg 	struct btinfo_symtab btinfo_symtab;
    350  1.61.2.1  pgoyette 	u_long extmem;
    351  1.61.2.1  pgoyette 	u_long basemem;
    352      1.32     joerg 
    353      1.32     joerg #ifdef	DEBUG
    354  1.61.2.1  pgoyette 	printf("exec: file=%s loadaddr=0x%lx\n", file ? file : "NULL",
    355  1.61.2.1  pgoyette 	    loadaddr);
    356      1.32     joerg #endif
    357      1.32     joerg 
    358      1.61      maxv 	BI_ALLOC(BTINFO_MAX);
    359      1.32     joerg 
    360      1.32     joerg 	BI_ADD(&btinfo_console, BTINFO_CONSOLE, sizeof(struct btinfo_console));
    361      1.32     joerg 
    362      1.40        ad 	howto = boothowto;
    363      1.40        ad 
    364      1.56  jakllsch 	memset(marks, 0, sizeof(marks));
    365      1.56  jakllsch 
    366      1.32     joerg 	if (common_load_kernel(file, &basemem, &extmem, loadaddr, floppy, marks))
    367      1.32     joerg 		goto out;
    368      1.32     joerg 
    369      1.31     joerg 	boot_argv[0] = boothowto;
    370      1.31     joerg 	boot_argv[1] = 0;
    371      1.31     joerg 	boot_argv[2] = vtophys(bootinfo);	/* old cyl offset */
    372      1.31     joerg 	boot_argv[3] = marks[MARK_END];
    373      1.31     joerg 	boot_argv[4] = extmem;
    374      1.31     joerg 	boot_argv[5] = basemem;
    375      1.31     joerg 
    376      1.23        ad 	/* pull in any modules if necessary */
    377      1.23        ad 	if (boot_modules_enabled) {
    378      1.41  jmcneill 		module_init(file);
    379      1.23        ad 		if (btinfo_modulelist) {
    380      1.23        ad 			BI_ADD(btinfo_modulelist, BTINFO_MODULELIST,
    381      1.23        ad 			    btinfo_modulelist_size);
    382      1.23        ad 		}
    383      1.23        ad 	}
    384       1.1     perry 
    385      1.47  uebayasi 	userconf_init();
    386      1.47  uebayasi 	if (btinfo_userconfcommands != NULL)
    387      1.47  uebayasi 		BI_ADD(btinfo_userconfcommands, BTINFO_USERCONFCOMMANDS,
    388      1.58  jakllsch 		    btinfo_userconfcommands_size);
    389      1.47  uebayasi 
    390       1.1     perry #ifdef DEBUG
    391       1.8  christos 	printf("Start @ 0x%lx [%ld=0x%lx-0x%lx]...\n", marks[MARK_ENTRY],
    392       1.7  christos 	    marks[MARK_NSYM], marks[MARK_SYM], marks[MARK_END]);
    393       1.1     perry #endif
    394       1.1     perry 
    395       1.8  christos 	btinfo_symtab.nsym = marks[MARK_NSYM];
    396       1.8  christos 	btinfo_symtab.ssym = marks[MARK_SYM];
    397       1.8  christos 	btinfo_symtab.esym = marks[MARK_END];
    398       1.8  christos 	BI_ADD(&btinfo_symtab, BTINFO_SYMTAB, sizeof(struct btinfo_symtab));
    399       1.8  christos 
    400      1.42  jmcneill 	/* set new video mode if necessary */
    401      1.42  jmcneill 	vbe_commit();
    402      1.42  jmcneill 	BI_ADD(&btinfo_framebuffer, BTINFO_FRAMEBUFFER,
    403      1.42  jmcneill 	    sizeof(struct btinfo_framebuffer));
    404      1.42  jmcneill 
    405      1.40        ad 	if (callback != NULL)
    406      1.40        ad 		(*callback)();
    407      1.15       dbj 	startprog(marks[MARK_ENTRY], BOOT_NARGS, boot_argv,
    408  1.61.2.1  pgoyette 	    x86_trunc_page(basemem * 1024));
    409       1.1     perry 	panic("exec returned");
    410       1.1     perry 
    411       1.4  drochner out:
    412       1.4  drochner 	BI_FREE();
    413      1.60      maxv 	bootinfo = NULL;
    414      1.21  junyoung 	return -1;
    415       1.1     perry }
    416      1.23        ad 
    417      1.41  jmcneill static void
    418      1.41  jmcneill extract_device(const char *path, char *buf, size_t buflen)
    419      1.41  jmcneill {
    420      1.59  jakllsch 	size_t i;
    421      1.41  jmcneill 
    422      1.41  jmcneill 	if (strchr(path, ':') != NULL) {
    423      1.41  jmcneill 		for (i = 0; i < buflen - 2 && path[i] != ':'; i++)
    424      1.41  jmcneill 			buf[i] = path[i];
    425      1.41  jmcneill 		buf[i++] = ':';
    426      1.41  jmcneill 		buf[i] = '\0';
    427      1.41  jmcneill 	} else
    428      1.41  jmcneill 		buf[0] = '\0';
    429      1.41  jmcneill }
    430      1.41  jmcneill 
    431      1.26        ad static const char *
    432      1.41  jmcneill module_path(boot_module_t *bm, const char *kdev)
    433      1.26        ad {
    434      1.26        ad 	static char buf[256];
    435      1.41  jmcneill 	char name_buf[256], dev_buf[64];
    436      1.41  jmcneill 	const char *name, *name2, *p;
    437      1.26        ad 
    438      1.26        ad 	name = bm->bm_path;
    439      1.33     joerg 	for (name2 = name; *name2; ++name2) {
    440      1.33     joerg 		if (*name2 == ' ' || *name2 == '\t') {
    441      1.33     joerg 			strlcpy(name_buf, name, sizeof(name_buf));
    442      1.59  jakllsch 			if ((uintptr_t)name2 - (uintptr_t)name < sizeof(name_buf))
    443      1.33     joerg 				name_buf[name2 - name] = '\0';
    444      1.33     joerg 			name = name_buf;
    445      1.33     joerg 			break;
    446      1.33     joerg 		}
    447      1.33     joerg 	}
    448      1.41  jmcneill 	if ((p = strchr(name, ':')) != NULL) {
    449      1.41  jmcneill 		/* device specified, use it */
    450      1.41  jmcneill 		if (p[1] == '/')
    451      1.41  jmcneill 			snprintf(buf, sizeof(buf), "%s", name);
    452      1.41  jmcneill 		else {
    453      1.41  jmcneill 			p++;
    454      1.41  jmcneill 			extract_device(name, dev_buf, sizeof(dev_buf));
    455      1.41  jmcneill 			snprintf(buf, sizeof(buf), "%s%s/%s/%s.kmod",
    456      1.41  jmcneill 			    dev_buf, module_base, p, p);
    457      1.41  jmcneill 		}
    458      1.41  jmcneill 	} else {
    459      1.41  jmcneill 		/* device not specified; load from kernel device if known */
    460      1.58  jakllsch 		if (name[0] == '/')
    461      1.41  jmcneill 			snprintf(buf, sizeof(buf), "%s%s", kdev, name);
    462      1.41  jmcneill 		else
    463      1.41  jmcneill 			snprintf(buf, sizeof(buf), "%s%s/%s/%s.kmod",
    464      1.41  jmcneill 			    kdev, module_base, name, name);
    465      1.41  jmcneill 	}
    466      1.33     joerg 
    467      1.26        ad 	return buf;
    468      1.26        ad }
    469      1.26        ad 
    470      1.36  christos static int
    471      1.41  jmcneill module_open(boot_module_t *bm, int mode, const char *kdev, bool doload)
    472      1.28     chris {
    473      1.28     chris 	int fd;
    474      1.28     chris 	const char *path;
    475      1.36  christos 
    476      1.28     chris 	/* check the expanded path first */
    477      1.41  jmcneill 	path = module_path(bm, kdev);
    478      1.28     chris 	fd = open(path, mode);
    479      1.41  jmcneill 	if (fd != -1) {
    480      1.41  jmcneill 		if ((howto & AB_SILENT) == 0 && doload)
    481      1.41  jmcneill 			printf("Loading %s ", path);
    482      1.41  jmcneill 	} else {
    483      1.28     chris 		/* now attempt the raw path provided */
    484      1.28     chris 		fd = open(bm->bm_path, mode);
    485      1.41  jmcneill 		if (fd != -1 && (howto & AB_SILENT) == 0 && doload)
    486      1.41  jmcneill 			printf("Loading %s ", bm->bm_path);
    487      1.41  jmcneill 	}
    488      1.41  jmcneill 	if (!doload && fd == -1) {
    489      1.41  jmcneill 		printf("WARNING: couldn't open %s", bm->bm_path);
    490      1.41  jmcneill 		if (strcmp(bm->bm_path, path) != 0)
    491      1.41  jmcneill 			printf(" (%s)", path);
    492      1.41  jmcneill 		printf("\n");
    493      1.28     chris 	}
    494      1.28     chris 	return fd;
    495      1.28     chris }
    496      1.28     chris 
    497      1.23        ad static void
    498      1.41  jmcneill module_init(const char *kernel_path)
    499      1.23        ad {
    500      1.23        ad 	struct bi_modulelist_entry *bi;
    501      1.23        ad 	struct stat st;
    502      1.30     joerg 	const char *machine;
    503      1.41  jmcneill 	char kdev[64];
    504      1.23        ad 	char *buf;
    505      1.23        ad 	boot_module_t *bm;
    506      1.59  jakllsch 	ssize_t len;
    507      1.23        ad 	off_t off;
    508      1.41  jmcneill 	int err, fd, nfail = 0;
    509      1.41  jmcneill 
    510      1.41  jmcneill 	extract_device(kernel_path, kdev, sizeof(kdev));
    511      1.23        ad 
    512      1.30     joerg 	switch (netbsd_elf_class) {
    513      1.30     joerg 	case ELFCLASS32:
    514      1.30     joerg 		machine = "i386";
    515      1.30     joerg 		break;
    516      1.30     joerg 	case ELFCLASS64:
    517      1.30     joerg 		machine = "amd64";
    518      1.30     joerg 		break;
    519      1.30     joerg 	default:
    520      1.30     joerg 		machine = "generic";
    521      1.30     joerg 		break;
    522      1.30     joerg 	}
    523      1.30     joerg 	if (netbsd_version / 1000000 % 100 == 99) {
    524      1.30     joerg 		/* -current */
    525      1.30     joerg 		snprintf(module_base, sizeof(module_base),
    526      1.38     rmind 		    "/stand/%s/%d.%d.%d/modules", machine,
    527      1.30     joerg 		    netbsd_version / 100000000,
    528      1.30     joerg 		    netbsd_version / 1000000 % 100,
    529      1.30     joerg 		    netbsd_version / 100 % 100);
    530      1.30     joerg 	} else if (netbsd_version != 0) {
    531      1.30     joerg 		/* release */
    532      1.30     joerg 		snprintf(module_base, sizeof(module_base),
    533      1.38     rmind 		    "/stand/%s/%d.%d/modules", machine,
    534      1.30     joerg 		    netbsd_version / 100000000,
    535      1.30     joerg 		    netbsd_version / 1000000 % 100);
    536      1.30     joerg 	}
    537      1.30     joerg 
    538      1.23        ad 	/* First, see which modules are valid and calculate btinfo size */
    539      1.23        ad 	len = sizeof(struct btinfo_modulelist);
    540      1.23        ad 	for (bm = boot_modules; bm; bm = bm->bm_next) {
    541      1.41  jmcneill 		fd = module_open(bm, 0, kdev, false);
    542      1.23        ad 		if (fd == -1) {
    543      1.23        ad 			bm->bm_len = -1;
    544      1.41  jmcneill 			++nfail;
    545      1.23        ad 			continue;
    546      1.23        ad 		}
    547      1.23        ad 		err = fstat(fd, &st);
    548      1.24        ad 		if (err == -1 || st.st_size == -1) {
    549      1.28     chris 			printf("WARNING: couldn't stat %s\n", bm->bm_path);
    550      1.23        ad 			close(fd);
    551      1.23        ad 			bm->bm_len = -1;
    552      1.41  jmcneill 			++nfail;
    553      1.23        ad 			continue;
    554      1.23        ad 		}
    555      1.23        ad 		bm->bm_len = st.st_size;
    556      1.23        ad 		close(fd);
    557      1.23        ad 		len += sizeof(struct bi_modulelist_entry);
    558      1.23        ad 	}
    559      1.23        ad 
    560      1.23        ad 	/* Allocate the module list */
    561      1.23        ad 	btinfo_modulelist = alloc(len);
    562      1.23        ad 	if (btinfo_modulelist == NULL) {
    563      1.23        ad 		printf("WARNING: couldn't allocate module list\n");
    564      1.43   tsutsui 		wait_sec(MODULE_WARNING_SEC);
    565      1.23        ad 		return;
    566      1.23        ad 	}
    567      1.23        ad 	memset(btinfo_modulelist, 0, len);
    568      1.23        ad 	btinfo_modulelist_size = len;
    569      1.23        ad 
    570      1.23        ad 	/* Fill in btinfo structure */
    571      1.23        ad 	buf = (char *)btinfo_modulelist;
    572      1.23        ad 	btinfo_modulelist->num = 0;
    573      1.23        ad 	off = sizeof(struct btinfo_modulelist);
    574      1.23        ad 
    575      1.23        ad 	for (bm = boot_modules; bm; bm = bm->bm_next) {
    576      1.23        ad 		if (bm->bm_len == -1)
    577      1.23        ad 			continue;
    578      1.41  jmcneill 		fd = module_open(bm, 0, kdev, true);
    579      1.41  jmcneill 		if (fd == -1)
    580      1.23        ad 			continue;
    581      1.24        ad 		image_end = (image_end + PAGE_SIZE - 1) & ~(PAGE_SIZE - 1);
    582      1.52  jakllsch 		len = pread(fd, (void *)(uintptr_t)image_end, SSIZE_MAX);
    583      1.24        ad 		if (len < bm->bm_len) {
    584      1.40        ad 			if ((howto & AB_SILENT) != 0)
    585      1.40        ad 				printf("Loading %s ", bm->bm_path);
    586      1.23        ad 			printf(" FAILED\n");
    587      1.23        ad 		} else {
    588      1.23        ad 			btinfo_modulelist->num++;
    589      1.23        ad 			bi = (struct bi_modulelist_entry *)(buf + off);
    590      1.23        ad 			off += sizeof(struct bi_modulelist_entry);
    591      1.23        ad 			strncpy(bi->path, bm->bm_path, sizeof(bi->path) - 1);
    592      1.24        ad 			bi->base = image_end;
    593      1.24        ad 			bi->len = len;
    594      1.49       tls 			switch (bm->bm_type) {
    595      1.49       tls 			    case BM_TYPE_KMOD:
    596      1.49       tls 				bi->type = BI_MODULE_ELF;
    597      1.49       tls 				break;
    598      1.49       tls 			    case BM_TYPE_IMAGE:
    599      1.49       tls 				bi->type = BI_MODULE_IMAGE;
    600      1.49       tls 				break;
    601      1.51  jmcneill 			    case BM_TYPE_FS:
    602      1.51  jmcneill 				bi->type = BI_MODULE_FS;
    603      1.51  jmcneill 				break;
    604      1.49       tls 			    case BM_TYPE_RND:
    605      1.49       tls 			    default:
    606      1.49       tls 				/* safest -- rnd checks the sha1 */
    607      1.49       tls 				bi->type = BI_MODULE_RND;
    608      1.49       tls 				break;
    609      1.49       tls 			}
    610      1.40        ad 			if ((howto & AB_SILENT) == 0)
    611      1.40        ad 				printf(" \n");
    612      1.23        ad 		}
    613      1.24        ad 		if (len > 0)
    614      1.24        ad 			image_end += len;
    615      1.23        ad 		close(fd);
    616      1.23        ad 	}
    617      1.23        ad 	btinfo_modulelist->endpa = image_end;
    618      1.41  jmcneill 
    619      1.41  jmcneill 	if (nfail > 0) {
    620      1.41  jmcneill 		printf("WARNING: %d module%s failed to load\n",
    621      1.41  jmcneill 		    nfail, nfail == 1 ? "" : "s");
    622      1.41  jmcneill #if notyet
    623      1.43   tsutsui 		wait_sec(MODULE_WARNING_SEC);
    624      1.41  jmcneill #endif
    625      1.41  jmcneill 	}
    626      1.23        ad }
    627      1.33     joerg 
    628      1.47  uebayasi static void
    629      1.47  uebayasi userconf_init(void)
    630      1.47  uebayasi {
    631      1.47  uebayasi 	size_t count, len;
    632      1.47  uebayasi 	userconf_command_t *uc;
    633      1.47  uebayasi 	char *buf;
    634      1.47  uebayasi 	off_t off;
    635      1.47  uebayasi 
    636      1.47  uebayasi 	/* Calculate the userconf commands list size */
    637      1.47  uebayasi 	count = 0;
    638      1.47  uebayasi 	for (uc = userconf_commands; uc != NULL; uc = uc->uc_next)
    639      1.47  uebayasi 		count++;
    640      1.55  jakllsch 	len = sizeof(*btinfo_userconfcommands) +
    641      1.47  uebayasi 	      count * sizeof(struct bi_userconfcommand);
    642      1.47  uebayasi 
    643      1.47  uebayasi 	/* Allocate the userconf commands list */
    644      1.47  uebayasi 	btinfo_userconfcommands = alloc(len);
    645      1.47  uebayasi 	if (btinfo_userconfcommands == NULL) {
    646      1.47  uebayasi 		printf("WARNING: couldn't allocate userconf commands list\n");
    647      1.47  uebayasi 		return;
    648      1.47  uebayasi 	}
    649      1.47  uebayasi 	memset(btinfo_userconfcommands, 0, len);
    650      1.47  uebayasi 	btinfo_userconfcommands_size = len;
    651      1.47  uebayasi 
    652      1.47  uebayasi 	/* Fill in btinfo structure */
    653      1.47  uebayasi 	buf = (char *)btinfo_userconfcommands;
    654      1.47  uebayasi 	off = sizeof(*btinfo_userconfcommands);
    655      1.47  uebayasi 	btinfo_userconfcommands->num = 0;
    656      1.47  uebayasi 	for (uc = userconf_commands; uc != NULL; uc = uc->uc_next) {
    657      1.47  uebayasi 		struct bi_userconfcommand *bi;
    658      1.47  uebayasi 		bi = (struct bi_userconfcommand *)(buf + off);
    659      1.47  uebayasi 		strncpy(bi->text, uc->uc_text, sizeof(bi->text) - 1);
    660      1.47  uebayasi 
    661      1.47  uebayasi 		off += sizeof(*bi);
    662      1.47  uebayasi 		btinfo_userconfcommands->num++;
    663      1.47  uebayasi 	}
    664      1.47  uebayasi }
    665      1.47  uebayasi 
    666      1.33     joerg int
    667      1.33     joerg exec_multiboot(const char *file, char *args)
    668      1.33     joerg {
    669      1.33     joerg 	struct multiboot_info *mbi;
    670      1.33     joerg 	struct multiboot_module *mbm;
    671      1.33     joerg 	struct bi_modulelist_entry *bim;
    672  1.61.2.1  pgoyette 	int i, len;
    673  1.61.2.1  pgoyette 	u_long marks[MARK_MAX];
    674  1.61.2.1  pgoyette 	u_long extmem;
    675  1.61.2.1  pgoyette 	u_long basemem;
    676  1.61.2.1  pgoyette 	char *cmdline;
    677      1.33     joerg 
    678      1.33     joerg 	mbi = alloc(sizeof(struct multiboot_info));
    679      1.33     joerg 	mbi->mi_flags = MULTIBOOT_INFO_HAS_MEMORY;
    680      1.33     joerg 
    681      1.33     joerg 	if (common_load_kernel(file, &basemem, &extmem, 0, 0, marks))
    682      1.33     joerg 		goto out;
    683      1.33     joerg 
    684      1.33     joerg 	mbi->mi_mem_upper = extmem;
    685      1.33     joerg 	mbi->mi_mem_lower = basemem;
    686      1.33     joerg 
    687      1.33     joerg 	if (args) {
    688      1.33     joerg 		mbi->mi_flags |= MULTIBOOT_INFO_HAS_CMDLINE;
    689      1.33     joerg 		len = strlen(file) + 1 + strlen(args) + 1;
    690      1.33     joerg 		cmdline = alloc(len);
    691      1.33     joerg 		snprintf(cmdline, len, "%s %s", file, args);
    692      1.33     joerg 		mbi->mi_cmdline = (char *) vtophys(cmdline);
    693      1.33     joerg 	}
    694      1.33     joerg 
    695      1.33     joerg 	/* pull in any modules if necessary */
    696      1.33     joerg 	if (boot_modules_enabled) {
    697      1.41  jmcneill 		module_init(file);
    698      1.33     joerg 		if (btinfo_modulelist) {
    699      1.33     joerg 			mbm = alloc(sizeof(struct multiboot_module) *
    700      1.33     joerg 					   btinfo_modulelist->num);
    701      1.33     joerg 
    702      1.33     joerg 			bim = (struct bi_modulelist_entry *)
    703      1.33     joerg 			  (((char *) btinfo_modulelist) +
    704      1.33     joerg 			   sizeof(struct btinfo_modulelist));
    705      1.33     joerg 			for (i = 0; i < btinfo_modulelist->num; i++) {
    706      1.33     joerg 				mbm[i].mmo_start = bim->base;
    707      1.33     joerg 				mbm[i].mmo_end = bim->base + bim->len;
    708      1.33     joerg 				mbm[i].mmo_string = (char *)vtophys(bim->path);
    709      1.33     joerg 				mbm[i].mmo_reserved = 0;
    710      1.33     joerg 				bim++;
    711      1.33     joerg 			}
    712      1.33     joerg 			mbi->mi_flags |= MULTIBOOT_INFO_HAS_MODS;
    713      1.33     joerg 			mbi->mi_mods_count = btinfo_modulelist->num;
    714      1.33     joerg 			mbi->mi_mods_addr = vtophys(mbm);
    715      1.33     joerg 		}
    716      1.33     joerg 	}
    717      1.33     joerg 
    718      1.33     joerg #ifdef DEBUG
    719      1.33     joerg 	printf("Start @ 0x%lx [%ld=0x%lx-0x%lx]...\n", marks[MARK_ENTRY],
    720      1.33     joerg 	    marks[MARK_NSYM], marks[MARK_SYM], marks[MARK_END]);
    721      1.33     joerg #endif
    722      1.33     joerg 
    723      1.33     joerg #if 0
    724      1.33     joerg 	if (btinfo_symtab.nsym) {
    725      1.33     joerg 		mbi->mi_flags |= MULTIBOOT_INFO_HAS_ELF_SYMS;
    726      1.33     joerg 		mbi->mi_elfshdr_addr = marks[MARK_SYM];
    727      1.33     joerg 	btinfo_symtab.nsym = marks[MARK_NSYM];
    728      1.33     joerg 	btinfo_symtab.ssym = marks[MARK_SYM];
    729      1.33     joerg 	btinfo_symtab.esym = marks[MARK_END];
    730      1.33     joerg #endif
    731      1.33     joerg 
    732      1.33     joerg 	multiboot(marks[MARK_ENTRY], vtophys(mbi),
    733  1.61.2.1  pgoyette 	    x86_trunc_page(mbi->mi_mem_lower * 1024));
    734      1.33     joerg 	panic("exec returned");
    735      1.33     joerg 
    736      1.33     joerg out:
    737  1.61.2.1  pgoyette 	dealloc(mbi, 0);
    738      1.33     joerg 	return -1;
    739      1.33     joerg }
    740      1.40        ad 
    741      1.40        ad void
    742      1.40        ad x86_progress(const char *fmt, ...)
    743      1.40        ad {
    744      1.40        ad 	va_list ap;
    745      1.40        ad 
    746      1.40        ad 	if ((howto & AB_SILENT) != 0)
    747      1.40        ad 		return;
    748      1.40        ad 	va_start(ap, fmt);
    749      1.40        ad 	vprintf(fmt, ap);
    750      1.40        ad 	va_end(ap);
    751      1.40        ad }
    752