hp300.c revision 1.19.2.1
1 /* $NetBSD: hp300.c,v 1.19.2.1 2025/08/02 05:58:49 perseant Exp $ */ 2 3 /*- 4 * Copyright (c) 2003 The NetBSD Foundation, Inc. 5 * All rights reserved. 6 * 7 * This code is derived from software contributed to The NetBSD Foundation 8 * by David Laight. 9 * 10 * Redistribution and use in source and binary forms, with or without 11 * modification, are permitted provided that the following conditions 12 * are met: 13 * 1. Redistributions of source code must retain the above copyright 14 * notice, this list of conditions and the following disclaimer. 15 * 2. Redistributions in binary form must reproduce the above copyright 16 * notice, this list of conditions and the following disclaimer in the 17 * documentation and/or other materials provided with the distribution. 18 * 19 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS 20 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 21 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 22 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS 23 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 24 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 25 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 26 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 27 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 28 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 29 * POSSIBILITY OF SUCH DAMAGE. 30 */ 31 32 #if HAVE_NBTOOL_CONFIG_H 33 #include "nbtool_config.h" 34 #endif 35 36 #include <sys/cdefs.h> 37 #if !defined(__lint) 38 __RCSID("$NetBSD: hp300.c,v 1.19.2.1 2025/08/02 05:58:49 perseant Exp $"); 39 #endif /* !__lint */ 40 41 /* We need the target disklabel.h, not the hosts one..... */ 42 #ifdef HAVE_NBTOOL_CONFIG_H 43 #include "nbtool_config.h" 44 #include <nbinclude/hp300/disklabel.h> 45 #include <nbinclude/sys/disklabel.h> 46 #else 47 #include <sys/disklabel.h> 48 #endif 49 #include <sys/fcntl.h> 50 #include <sys/ioctl.h> 51 #include <sys/mman.h> 52 #include <sys/param.h> 53 54 #include <assert.h> 55 #include <err.h> 56 #include <md5.h> 57 #include <stddef.h> 58 #include <stdio.h> 59 #include <stdlib.h> 60 #include <string.h> 61 #include <unistd.h> 62 63 #include "installboot.h" 64 65 #define HP300_MAXBLOCKS 1 /* Only contiguous blocks are expected. */ 66 #define LIF_VOLDIRSIZE 1024 /* size of LIF volume header and directory */ 67 68 /* XXX: should be HP300_LIF_FILESTART? */ 69 #define LIF_PRESERVED (HP300_SECTSIZE * 16) 70 71 static int hp300_setboot(ib_params *); 72 73 struct ib_mach ib_mach_hp300 = { 74 .name = "hp300", 75 .setboot = hp300_setboot, 76 .clearboot = no_clearboot, 77 .editboot = no_editboot, 78 .valid_flags = IB_APPEND, 79 }; 80 81 static int 82 hp300_setboot(ib_params *params) 83 { 84 int retval; 85 uint8_t *bootstrap; 86 size_t bootstrap_mapsize; 87 ssize_t rv; 88 struct partition *boot; 89 struct hp300_lifdir *lifdir; 90 int size, offset; 91 int i; 92 unsigned int secsize = HP300_SECTSIZE; 93 uint64_t boot_size, boot_offset; 94 #ifdef SUPPORT_CD9660 95 uint32_t nblk; 96 ib_block *blocks; 97 #endif 98 struct disklabel *label; 99 100 assert(params != NULL); 101 assert(params->fsfd != -1); 102 assert(params->filesystem != NULL); 103 assert(params->s1fd != -1); 104 assert(params->stage1 != NULL); 105 106 retval = 0; 107 bootstrap = MAP_FAILED; 108 109 /* needs whole LIF volume/directory and actual bootstrap by default */ 110 bootstrap_mapsize = params->s1stat.st_size; 111 112 label = malloc(params->sectorsize); 113 if (label == NULL) { 114 warn("Failed to allocate memory for disklabel"); 115 goto done; 116 } 117 118 #ifdef SUPPORT_CD9660 119 if (params->stage2 != NULL) { 120 /* 121 * Use contiguous blocks of SYS_BOOT in the target filesystem 122 * (assuming ISO9660) for a LIF directory entry used 123 * by BOOTROM on bootstrap. 124 */ 125 if (strcmp(params->fstype->name, "cd9660") != 0) { 126 warn("Target filesystem `%s' is unexpected", 127 params->fstype->name); 128 } 129 130 if (S_ISREG(params->fsstat.st_mode)) { 131 if (fsync(params->fsfd) == -1) 132 warn("Synchronising file system `%s'", 133 params->filesystem); 134 } else { 135 /* Don't allow real file systems for sanity */ 136 warnx("`%s' must be a regular file to append " 137 "a bootstrap", params->filesystem); 138 goto done; 139 } 140 141 /* Allocate space for our block list. */ 142 nblk = HP300_MAXBLOCKS; 143 blocks = malloc(sizeof(*blocks) * nblk); 144 if (blocks == NULL) { 145 warn("Allocating %lu bytes for block list", 146 (unsigned long)sizeof(*blocks) * nblk); 147 goto done; 148 } 149 150 /* Check the block of for the SYS_UBOOT in the target fs */ 151 if (!params->fstype->findstage2(params, &nblk, blocks)) 152 goto done; 153 154 if (nblk == 0) { 155 warnx("Secondary bootstrap `%s' is empty", 156 params->stage2); 157 goto done; 158 } else if (nblk > 1) { 159 warnx("Secondary bootstrap `%s' doesn't have " 160 "contiguous blocks", params->stage2); 161 goto done; 162 } 163 164 boot_offset = blocks[0].block * params->fstype->blocksize; 165 /* need to read only LIF volume and directories */ 166 bootstrap_mapsize = LIF_VOLDIRSIZE; 167 168 if ((params->flags & IB_VERBOSE) != 0) { 169 printf("Bootstrap `%s' found at offset %lu in `%s'\n", 170 params->stage2, (unsigned long)boot_offset, 171 params->filesystem); 172 } 173 174 } else 175 #endif 176 if ((params->flags & IB_APPEND) != 0) { 177 if (!S_ISREG(params->fsstat.st_mode)) { 178 warnx( 179 "`%s' must be a regular file to append a bootstrap", 180 params->filesystem); 181 goto done; 182 } 183 boot_offset = roundup(params->fsstat.st_size, HP300_SECTSIZE); 184 } else { 185 /* 186 * The bootstrap can be well over 8k, and must go into a BOOT 187 * partition. Read NetBSD label to locate BOOT partition. 188 */ 189 if (pread(params->fsfd, label, params->sectorsize, 190 LABELSECTOR * params->sectorsize) 191 != (ssize_t)params->sectorsize) { 192 warn("reading disklabel"); 193 goto done; 194 } 195 /* And a quick validation - must be a big-endian label */ 196 secsize = be32toh(label->d_secsize); 197 if (label->d_magic != htobe32(DISKMAGIC) || 198 label->d_magic2 != htobe32(DISKMAGIC) || 199 secsize == 0 || !powerof2(secsize) || 200 be16toh(label->d_npartitions) > MAXMAXPARTITIONS) { 201 warnx("Invalid disklabel in %s", params->filesystem); 202 goto done; 203 } 204 205 i = be16toh(label->d_npartitions); 206 for (boot = label->d_partitions; ; boot++) { 207 if (--i < 0) { 208 warnx("No BOOT partition"); 209 goto done; 210 } 211 if (boot->p_fstype == FS_BOOT) 212 break; 213 } 214 boot_size = be32toh(boot->p_size) * (uint64_t)secsize; 215 boot_offset = be32toh(boot->p_offset) * (uint64_t)secsize; 216 217 /* 218 * We put the entire LIF file into the BOOT partition even when 219 * it doesn't start at the beginning of the disk. 220 * 221 * Maybe we ought to be able to take a binary file and add 222 * it to the LIF filesystem. 223 */ 224 if (boot_size < (uint64_t)params->s1stat.st_size) { 225 warn("BOOT partition too small (%llu < %llu)", 226 (unsigned long long)boot_size, 227 (unsigned long long)params->s1stat.st_size); 228 goto done; 229 } 230 } 231 232 /* Read LIF volume/directory (and bootstrap) from stage1 */ 233 bootstrap = mmap(NULL, bootstrap_mapsize, 234 PROT_READ | PROT_WRITE, MAP_PRIVATE, params->s1fd, 0); 235 if (bootstrap == MAP_FAILED) { 236 warn("mmapping `%s'", params->stage1); 237 goto done; 238 } 239 240 /* Relocate files, sanity check LIF directory on the way */ 241 lifdir = (void *)(bootstrap + HP300_LIF_DIRSTART); 242 for (i = 0; i < HP300_LIF_NUMDIR; i++) { 243 uint32_t addr = be32toh(lifdir[i].dir_addr); 244 uint32_t limit = hp300_btolifs(params->s1stat.st_size); 245 uint32_t end = addr + be32toh(lifdir[i].dir_length); 246 if (end > limit) { 247 warnx("LIF entry %d larger (%u %u) than LIF file", 248 i, end, limit); 249 goto done; 250 } 251 if (addr != 0 && boot_offset != 0) 252 lifdir[i].dir_addr = 253 htobe32(boot_offset / HP300_SECTSIZE + addr); 254 } 255 256 if ((params->flags & IB_NOWRITE) != 0) { 257 retval = 1; 258 goto done; 259 } 260 261 /* Write LIF volume header and directory to sectors 0 and 1 */ 262 rv = pwrite(params->fsfd, bootstrap, LIF_VOLDIRSIZE, 0); 263 if (rv != LIF_VOLDIRSIZE) { 264 if (rv == -1) 265 warn("Writing `%s'", params->filesystem); 266 else 267 warnx("Writing `%s': short write", params->filesystem); 268 goto done; 269 } 270 271 #ifdef SUPPORT_CD9660 272 if (params->stage2 != NULL) { 273 /* 274 * Bootstrap in the target filesystem is used. 275 * No need to write bootstrap to BOOT partition. 276 */ 277 retval = 1; 278 goto done; 279 } 280 #endif 281 282 /* Write bootstrap to BOOT partition (or at EOF in IB_APPEND case) */ 283 /* LIF header and directories, and disklabel should be preserved */ 284 offset = (boot_offset <= LIF_PRESERVED) ? LIF_PRESERVED : 0; 285 size = roundup(params->s1stat.st_size, secsize) - offset; 286 287 rv = pwrite(params->fsfd, bootstrap + offset, size, 288 boot_offset + offset); 289 if (rv != size) { 290 if (rv == -1) 291 warn("Writing boot filesystem of `%s'", 292 params->filesystem); 293 else 294 warnx("Writing boot filesystem of `%s': short write", 295 params->filesystem); 296 goto done; 297 } 298 299 retval = 1; 300 301 done: 302 if (label != NULL) 303 free(label); 304 if (bootstrap != MAP_FAILED) 305 munmap(bootstrap, bootstrap_mapsize); 306 return retval; 307 } 308
Indexes created Fri Oct 03 02:09:57 GMT 2025