glue.c revision 176481
1/*- 2 * Copyright (c) 2007 Semihalf, Rafal Jaworowski <raj@semihalf.com> 3 * All rights reserved. 4 * 5 * Redistribution and use in source and binary forms, with or without 6 * modification, are permitted provided that the following conditions 7 * are met: 8 * 1. Redistributions of source code must retain the above copyright 9 * notice, this list of conditions and the following disclaimer. 10 * 2. Redistributions in binary form must reproduce the above copyright 11 * notice, this list of conditions and the following disclaimer in the 12 * documentation and/or other materials provided with the distribution. 13 * 14 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 15 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 16 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 17 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 18 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 19 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 20 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 21 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 22 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 23 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 24 * SUCH DAMAGE. 25 */ 26 27#include <sys/cdefs.h> 28__FBSDID("$FreeBSD: head/sys/boot/uboot/lib/glue.c 176481 2008-02-23 17:56:17Z marcel $"); 29 30#include <stand.h> 31#include "api_public.h" 32#include "glue.h" 33 34#define DEBUG 35#undef DEBUG 36 37#ifdef DEBUG 38#define debugf(fmt, args...) do { printf("%s(): ", __func__); printf(fmt,##args); } while (0) 39#else 40#define debugf(fmt, args...) 41#endif 42 43/* Some random address used by U-Boot. */ 44extern long uboot_address; 45 46/* crc32 stuff stolen from lib/libdisk/write_ia64_disk.c */ 47static uint32_t crc32_tab[] = { 48 0x00000000, 0x77073096, 0xee0e612c, 0x990951ba, 0x076dc419, 0x706af48f, 49 0xe963a535, 0x9e6495a3, 0x0edb8832, 0x79dcb8a4, 0xe0d5e91e, 0x97d2d988, 50 0x09b64c2b, 0x7eb17cbd, 0xe7b82d07, 0x90bf1d91, 0x1db71064, 0x6ab020f2, 51 0xf3b97148, 0x84be41de, 0x1adad47d, 0x6ddde4eb, 0xf4d4b551, 0x83d385c7, 52 0x136c9856, 0x646ba8c0, 0xfd62f97a, 0x8a65c9ec, 0x14015c4f, 0x63066cd9, 53 0xfa0f3d63, 0x8d080df5, 0x3b6e20c8, 0x4c69105e, 0xd56041e4, 0xa2677172, 54 0x3c03e4d1, 0x4b04d447, 0xd20d85fd, 0xa50ab56b, 0x35b5a8fa, 0x42b2986c, 55 0xdbbbc9d6, 0xacbcf940, 0x32d86ce3, 0x45df5c75, 0xdcd60dcf, 0xabd13d59, 56 0x26d930ac, 0x51de003a, 0xc8d75180, 0xbfd06116, 0x21b4f4b5, 0x56b3c423, 57 0xcfba9599, 0xb8bda50f, 0x2802b89e, 0x5f058808, 0xc60cd9b2, 0xb10be924, 58 0x2f6f7c87, 0x58684c11, 0xc1611dab, 0xb6662d3d, 0x76dc4190, 0x01db7106, 59 0x98d220bc, 0xefd5102a, 0x71b18589, 0x06b6b51f, 0x9fbfe4a5, 0xe8b8d433, 60 0x7807c9a2, 0x0f00f934, 0x9609a88e, 0xe10e9818, 0x7f6a0dbb, 0x086d3d2d, 61 0x91646c97, 0xe6635c01, 0x6b6b51f4, 0x1c6c6162, 0x856530d8, 0xf262004e, 62 0x6c0695ed, 0x1b01a57b, 0x8208f4c1, 0xf50fc457, 0x65b0d9c6, 0x12b7e950, 63 0x8bbeb8ea, 0xfcb9887c, 0x62dd1ddf, 0x15da2d49, 0x8cd37cf3, 0xfbd44c65, 64 0x4db26158, 0x3ab551ce, 0xa3bc0074, 0xd4bb30e2, 0x4adfa541, 0x3dd895d7, 65 0xa4d1c46d, 0xd3d6f4fb, 0x4369e96a, 0x346ed9fc, 0xad678846, 0xda60b8d0, 66 0x44042d73, 0x33031de5, 0xaa0a4c5f, 0xdd0d7cc9, 0x5005713c, 0x270241aa, 67 0xbe0b1010, 0xc90c2086, 0x5768b525, 0x206f85b3, 0xb966d409, 0xce61e49f, 68 0x5edef90e, 0x29d9c998, 0xb0d09822, 0xc7d7a8b4, 0x59b33d17, 0x2eb40d81, 69 0xb7bd5c3b, 0xc0ba6cad, 0xedb88320, 0x9abfb3b6, 0x03b6e20c, 0x74b1d29a, 70 0xead54739, 0x9dd277af, 0x04db2615, 0x73dc1683, 0xe3630b12, 0x94643b84, 71 0x0d6d6a3e, 0x7a6a5aa8, 0xe40ecf0b, 0x9309ff9d, 0x0a00ae27, 0x7d079eb1, 72 0xf00f9344, 0x8708a3d2, 0x1e01f268, 0x6906c2fe, 0xf762575d, 0x806567cb, 73 0x196c3671, 0x6e6b06e7, 0xfed41b76, 0x89d32be0, 0x10da7a5a, 0x67dd4acc, 74 0xf9b9df6f, 0x8ebeeff9, 0x17b7be43, 0x60b08ed5, 0xd6d6a3e8, 0xa1d1937e, 75 0x38d8c2c4, 0x4fdff252, 0xd1bb67f1, 0xa6bc5767, 0x3fb506dd, 0x48b2364b, 76 0xd80d2bda, 0xaf0a1b4c, 0x36034af6, 0x41047a60, 0xdf60efc3, 0xa867df55, 77 0x316e8eef, 0x4669be79, 0xcb61b38c, 0xbc66831a, 0x256fd2a0, 0x5268e236, 78 0xcc0c7795, 0xbb0b4703, 0x220216b9, 0x5505262f, 0xc5ba3bbe, 0xb2bd0b28, 79 0x2bb45a92, 0x5cb36a04, 0xc2d7ffa7, 0xb5d0cf31, 0x2cd99e8b, 0x5bdeae1d, 80 0x9b64c2b0, 0xec63f226, 0x756aa39c, 0x026d930a, 0x9c0906a9, 0xeb0e363f, 81 0x72076785, 0x05005713, 0x95bf4a82, 0xe2b87a14, 0x7bb12bae, 0x0cb61b38, 82 0x92d28e9b, 0xe5d5be0d, 0x7cdcefb7, 0x0bdbdf21, 0x86d3d2d4, 0xf1d4e242, 83 0x68ddb3f8, 0x1fda836e, 0x81be16cd, 0xf6b9265b, 0x6fb077e1, 0x18b74777, 84 0x88085ae6, 0xff0f6a70, 0x66063bca, 0x11010b5c, 0x8f659eff, 0xf862ae69, 85 0x616bffd3, 0x166ccf45, 0xa00ae278, 0xd70dd2ee, 0x4e048354, 0x3903b3c2, 86 0xa7672661, 0xd06016f7, 0x4969474d, 0x3e6e77db, 0xaed16a4a, 0xd9d65adc, 87 0x40df0b66, 0x37d83bf0, 0xa9bcae53, 0xdebb9ec5, 0x47b2cf7f, 0x30b5ffe9, 88 0xbdbdf21c, 0xcabac28a, 0x53b39330, 0x24b4a3a6, 0xbad03605, 0xcdd70693, 89 0x54de5729, 0x23d967bf, 0xb3667a2e, 0xc4614ab8, 0x5d681b02, 0x2a6f2b94, 90 0xb40bbe37, 0xc30c8ea1, 0x5a05df1b, 0x2d02ef8d 91}; 92 93static uint32_t 94crc32(const void *buf, size_t size) 95{ 96 const uint8_t *p; 97 uint32_t crc; 98 99 p = buf; 100 crc = ~0U; 101 102 while (size--) 103 crc = crc32_tab[(crc ^ *p++) & 0xFF] ^ (crc >> 8); 104 105 return (crc ^ ~0U); 106} 107 108 109static int valid_sig(struct api_signature *sig) 110{ 111 uint32_t checksum; 112 struct api_signature s; 113 114 if (sig == NULL) 115 return 0; 116 /* 117 * Clear the checksum field (in the local copy) so as to calculate the 118 * CRC with the same initial contents as at the time when the sig was 119 * produced 120 */ 121 s = *sig; 122 s.checksum = 0; 123 124 checksum = crc32((void *)&s, sizeof(struct api_signature)); 125 126 if (checksum != sig->checksum) 127 return 0; 128 129 return 1; 130} 131 132/* 133 * Searches for the U-Boot API signature 134 * 135 * returns 1/0 depending on found/not found result 136 */ 137int api_search_sig(struct api_signature **sig) { 138 139 unsigned char *sp, *spend; 140 141 if (sig == NULL) 142 return 0; 143 144 if (uboot_address == 0) 145 uboot_address = 255 * 1024 * 1024; 146 147 sp = (void *)(uboot_address & ~0x000fffff); 148 spend = sp + 0x00100000 - API_SIG_MAGLEN; 149 while (sp < spend) { 150 if (!bcmp(sp, API_SIG_MAGIC, API_SIG_MAGLEN)) { 151 *sig = (struct api_signature *)sp; 152 if (valid_sig(*sig)) 153 return 1; 154 } 155 sp += API_SIG_MAGLEN; 156 } 157 158 *sig = NULL; 159 return 0; 160} 161 162/**************************************** 163 * 164 * console 165 * 166 ****************************************/ 167 168int ub_getc(void) 169{ 170 int c; 171 172 if (!syscall(API_GETC, NULL, (uint32_t)&c)) 173 return -1; 174 175 return c; 176} 177 178int ub_tstc(void) 179{ 180 int t; 181 182 if (!syscall(API_TSTC, NULL, (uint32_t)&t)) 183 return -1; 184 185 return t; 186} 187 188void ub_putc(char c) 189{ 190 syscall(API_PUTC, NULL, (uint32_t)&c); 191} 192 193void ub_puts(const char *s) 194{ 195 syscall(API_PUTS, NULL, (uint32_t)s); 196} 197 198/**************************************** 199 * 200 * system 201 * 202 ****************************************/ 203 204void ub_reset(void) 205{ 206 syscall(API_RESET, NULL); 207} 208 209 210#define MR_MAX 5 211static struct mem_region mr[MR_MAX]; 212static struct sys_info si; 213 214struct sys_info * ub_get_sys_info(void) 215{ 216 int err = 0; 217 218 memset(&si, 0, sizeof(struct sys_info)); 219 si.mr = mr; 220 si.mr_no = MR_MAX; 221 memset(&mr, 0, sizeof(mr)); 222 223 if (!syscall(API_GET_SYS_INFO, &err, (u_int32_t)&si)) 224 return NULL; 225 226 return ((err) ? NULL : &si); 227} 228 229 230/**************************************** 231 * 232 * timing 233 * 234 ****************************************/ 235 236void ub_udelay(unsigned long usec) 237{ 238 syscall(API_UDELAY, NULL, &usec); 239} 240 241unsigned long ub_get_timer(unsigned long base) 242{ 243 unsigned long cur; 244 245 if (!syscall(API_GET_TIMER, NULL, &cur, &base)) 246 return 0; 247 248 return cur; 249} 250 251 252/**************************************************************************** 253 * 254 * devices 255 * 256 * Devices are identified by handles: numbers 0, 1, 2, ..., MAX_DEVS-1 257 * 258 ***************************************************************************/ 259 260#define MAX_DEVS 6 261 262static struct device_info devices[MAX_DEVS]; 263 264struct device_info * ub_dev_get(int i) 265{ 266 return ((i < 0 || i >= MAX_DEVS) ? NULL : &devices[i]); 267} 268 269/* 270 * Enumerates the devices: fills out device_info elements in the devices[] 271 * array. 272 * 273 * returns: number of devices found 274 */ 275int ub_dev_enum(void) 276{ 277 struct device_info *di; 278 int n = 0; 279 280 memset(&devices, 0, sizeof(struct device_info) * MAX_DEVS); 281 di = &devices[0]; 282 283 if (!syscall(API_DEV_ENUM, NULL, di)) 284 return 0; 285 286 while (di->cookie != NULL) { 287 288 if (++n >= MAX_DEVS) 289 break; 290 291 /* take another device_info */ 292 di++; 293 294 /* pass on the previous cookie */ 295 di->cookie = devices[n - 1].cookie; 296 297 if (!syscall(API_DEV_ENUM, NULL, di)) 298 return 0; 299 } 300 301 return n; 302} 303 304 305/* 306 * handle: 0-based id of the device 307 * 308 * returns: 0 when OK, err otherwise 309 */ 310int ub_dev_open(int handle) 311{ 312 struct device_info *di; 313 int err = 0; 314 315 if (handle < 0 || handle >= MAX_DEVS) 316 return API_EINVAL; 317 318 di = &devices[handle]; 319 if (!syscall(API_DEV_OPEN, &err, di)) 320 return -1; 321 322 return err; 323} 324 325int ub_dev_close(int handle) 326{ 327 struct device_info *di; 328 329 if (handle < 0 || handle >= MAX_DEVS) 330 return API_EINVAL; 331 332 di = &devices[handle]; 333 if (!syscall(API_DEV_CLOSE, NULL, di)) 334 return -1; 335 336 return 0; 337} 338 339/* 340 * Validates device for read/write, it has to: 341 * 342 * - have sane handle 343 * - be opened 344 * 345 * returns: 0/1 accordingly 346 */ 347static int dev_valid(int handle) 348{ 349 if (handle < 0 || handle >= MAX_DEVS) 350 return 0; 351 352 if (devices[handle].state != DEV_STA_OPEN) 353 return 0; 354 355 return 1; 356} 357 358static int dev_stor_valid(int handle) 359{ 360 if (!dev_valid(handle)) 361 return 0; 362 363 if (!(devices[handle].type & DEV_TYP_STOR)) 364 return 0; 365 366 return 1; 367} 368 369int ub_dev_read(int handle, void *buf, lbasize_t len, lbastart_t start) 370{ 371 struct device_info *di; 372 lbasize_t act_len; 373 int err = 0; 374 375 if (!dev_stor_valid(handle)) 376 return API_ENODEV; 377 378 di = &devices[handle]; 379 if (!syscall(API_DEV_READ, &err, di, buf, &len, &start, &act_len)) 380 return -1; 381 382 if (err) 383 return err; 384 385 if (act_len != len) 386 return API_EIO; 387 388 return 0; 389} 390 391static int dev_net_valid(int handle) 392{ 393 if (!dev_valid(handle)) 394 return 0; 395 396 if (devices[handle].type != DEV_TYP_NET) 397 return 0; 398 399 return 1; 400} 401 402int ub_dev_recv(int handle, void *buf, int len) 403{ 404 struct device_info *di; 405 int err = 0, act_len; 406 407 if (!dev_net_valid(handle)) 408 return API_ENODEV; 409 410 di = &devices[handle]; 411 if (!syscall(API_DEV_READ, &err, di, buf, &len, &act_len)) 412 return -1; 413 414 if (err) 415 return -1; 416 417 return act_len; 418} 419 420int ub_dev_send(int handle, void *buf, int len) 421{ 422 struct device_info *di; 423 int err = 0; 424 425 if (!dev_net_valid(handle)) 426 return API_ENODEV; 427 428 di = &devices[handle]; 429 if (!syscall(API_DEV_WRITE, &err, di, buf, &len)) 430 return -1; 431 432 return err; 433} 434 435/**************************************** 436 * 437 * env vars 438 * 439 ****************************************/ 440 441char * ub_env_get(const char *name) 442{ 443 char *value; 444 445 if (!syscall(API_ENV_GET, NULL, (uint32_t)name, (uint32_t)&value)) 446 return NULL; 447 448 return value; 449} 450 451void ub_env_set(const char *name, char *value) 452{ 453 syscall(API_ENV_SET, NULL, (uint32_t)name, (uint32_t)value); 454} 455 456 457static char env_name[256]; 458 459const char * ub_env_enum(const char *last) 460{ 461 const char *env, *str; 462 int i; 463 464 env = NULL; 465 466 /* 467 * It's OK to pass only the name piece as last (and not the whole 468 * 'name=val' string), since the API_ENUM_ENV call uses envmatch() 469 * internally, which handles such case 470 */ 471 if (!syscall(API_ENV_ENUM, NULL, (uint32_t)last, (uint32_t)&env)) 472 return NULL; 473 474 if (!env) 475 /* no more env. variables to enumerate */ 476 return NULL; 477#if 0 478 if (last && strncmp(env, last, strlen(last)) == 0); 479 /* error, trying to enumerate non existing env. variable */ 480 return NULL; 481#endif 482 483 /* next enumerated env var */ 484 memset(env_name, 0, 256); 485 for (i = 0, str = env; *str != '=' && *str != '\0';) 486 env_name[i++] = *str++; 487 488 env_name[i] = '\0'; 489 490 return env_name; 491} 492