1 /* 2 * (C) Copyright 2008 Semihalf 3 * 4 * Written by: Rafal Czubak <rcz@semihalf.com> 5 * Bartlomiej Sieka <tur@semihalf.com> 6 * 7 * See file CREDITS for list of people who contributed to this 8 * project. 9 * 10 * This program is free software; you can redistribute it and/or 11 * modify it under the terms of the GNU General Public License as 12 * published by the Free Software Foundation; either version 2 of 13 * the License, or (at your option) any later version. 14 * 15 * This program is distributed in the hope that it will be useful, 16 * but WITHOUT ANY WARRANTY; without even the implied warranty of 17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18 * GNU General Public License for more details. 19 * 20 * You should have received a copy of the GNU General Public License 21 * along with this program; if not, write to the Free Software 22 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, 23 * MA 02111-1307 USA 24 * 25 */ 26 27 #include <common.h> 28 29 #if !(defined(CONFIG_FIT) && defined(CONFIG_OF_LIBFDT)) 30 #error "CONFIG_FIT and CONFIG_OF_LIBFDT are required for auto-update feature" 31 #endif 32 33 #if defined(CONFIG_SYS_NO_FLASH) 34 #error "CONFIG_SYS_NO_FLASH defined, but FLASH is required for auto-update feature" 35 #endif 36 37 #include <command.h> 38 #include <flash.h> 39 #include <net.h> 40 #include <malloc.h> 41 42 /* env variable holding the location of the update file */ 43 #define UPDATE_FILE_ENV "updatefile" 44 45 /* set configuration defaults if needed */ 46 #ifndef CONFIG_UPDATE_LOAD_ADDR 47 #define CONFIG_UPDATE_LOAD_ADDR 0x100000 48 #endif 49 50 #ifndef CONFIG_UPDATE_TFTP_MSEC_MAX 51 #define CONFIG_UPDATE_TFTP_MSEC_MAX 100 52 #endif 53 54 #ifndef CONFIG_UPDATE_TFTP_CNT_MAX 55 #define CONFIG_UPDATE_TFTP_CNT_MAX 0 56 #endif 57 58 extern ulong TftpRRQTimeoutMSecs; 59 extern int TftpRRQTimeoutCountMax; 60 extern flash_info_t flash_info[]; 61 extern ulong load_addr; 62 63 static uchar *saved_prot_info; 64 65 static int update_load(char *filename, ulong msec_max, int cnt_max, ulong addr) 66 { 67 int size, rv; 68 ulong saved_timeout_msecs; 69 int saved_timeout_count; 70 char *saved_netretry, *saved_bootfile; 71 72 rv = 0; 73 /* save used globals and env variable */ 74 saved_timeout_msecs = TftpRRQTimeoutMSecs; 75 saved_timeout_count = TftpRRQTimeoutCountMax; 76 saved_netretry = strdup(getenv("netretry")); 77 saved_bootfile = strdup(BootFile); 78 79 /* set timeouts for auto-update */ 80 TftpRRQTimeoutMSecs = msec_max; 81 TftpRRQTimeoutCountMax = cnt_max; 82 83 /* we don't want to retry the connection if errors occur */ 84 setenv("netretry", "no"); 85 86 /* download the update file */ 87 load_addr = addr; 88 copy_filename(BootFile, filename, sizeof(BootFile)); 89 size = NetLoop(TFTP); 90 91 if (size < 0) 92 rv = 1; 93 else if (size > 0) 94 flush_cache(addr, size); 95 96 /* restore changed globals and env variable */ 97 TftpRRQTimeoutMSecs = saved_timeout_msecs; 98 TftpRRQTimeoutCountMax = saved_timeout_count; 99 100 setenv("netretry", saved_netretry); 101 if (saved_netretry != NULL) 102 free(saved_netretry); 103 104 if (saved_bootfile != NULL) { 105 copy_filename(BootFile, saved_bootfile, sizeof(BootFile)); 106 free(saved_bootfile); 107 } 108 109 return rv; 110 } 111 112 static int update_flash_protect(int prot, ulong addr_first, ulong addr_last) 113 { 114 uchar *sp_info_ptr; 115 ulong s; 116 int i, bank, cnt; 117 flash_info_t *info; 118 119 sp_info_ptr = NULL; 120 121 if (prot == 0) { 122 saved_prot_info = 123 calloc(CONFIG_SYS_MAX_FLASH_BANKS * CONFIG_SYS_MAX_FLASH_SECT, 1); 124 if (!saved_prot_info) 125 return 1; 126 } 127 128 for (bank = 0; bank < CONFIG_SYS_MAX_FLASH_BANKS; ++bank) { 129 cnt = 0; 130 info = &flash_info[bank]; 131 132 /* Nothing to do if the bank doesn't exist */ 133 if (info->sector_count == 0) 134 return 0; 135 136 /* Point to current bank protection information */ 137 sp_info_ptr = saved_prot_info + (bank * CONFIG_SYS_MAX_FLASH_SECT); 138 139 /* 140 * Adjust addr_first or addr_last if we are on bank boundary. 141 * Address space between banks must be continuous for other 142 * flash functions (like flash_sect_erase or flash_write) to 143 * succeed. Banks must also be numbered in correct order, 144 * according to increasing addresses. 145 */ 146 if (addr_last > info->start[0] + info->size - 1) 147 addr_last = info->start[0] + info->size - 1; 148 if (addr_first < info->start[0]) 149 addr_first = info->start[0]; 150 151 for (i = 0; i < info->sector_count; i++) { 152 /* Save current information about protected sectors */ 153 if (prot == 0) { 154 s = info->start[i]; 155 if ((s >= addr_first) && (s <= addr_last)) 156 sp_info_ptr[i] = info->protect[i]; 157 158 } 159 160 /* Protect/unprotect sectors */ 161 if (sp_info_ptr[i] == 1) { 162 #if defined(CONFIG_SYS_FLASH_PROTECTION) 163 if (flash_real_protect(info, i, prot)) 164 return 1; 165 #else 166 info->protect[i] = prot; 167 #endif 168 cnt++; 169 } 170 } 171 172 if (cnt) { 173 printf("%sProtected %d sectors\n", 174 prot ? "": "Un-", cnt); 175 } 176 } 177 178 if((prot == 1) && saved_prot_info) 179 free(saved_prot_info); 180 181 return 0; 182 } 183 184 static int update_flash(ulong addr_source, ulong addr_first, ulong size) 185 { 186 ulong addr_last = addr_first + size - 1; 187 188 /* round last address to the sector boundary */ 189 if (flash_sect_roundb(&addr_last) > 0) 190 return 1; 191 192 if (addr_first >= addr_last) { 193 printf("Error: end address exceeds addressing space\n"); 194 return 1; 195 } 196 197 /* remove protection on processed sectors */ 198 if (update_flash_protect(0, addr_first, addr_last) > 0) { 199 printf("Error: could not unprotect flash sectors\n"); 200 return 1; 201 } 202 203 printf("Erasing 0x%08lx - 0x%08lx", addr_first, addr_last); 204 if (flash_sect_erase(addr_first, addr_last) > 0) { 205 printf("Error: could not erase flash\n"); 206 return 1; 207 } 208 209 printf("Copying to flash..."); 210 if (flash_write((char *)addr_source, addr_first, size) > 0) { 211 printf("Error: could not copy to flash\n"); 212 return 1; 213 } 214 printf("done\n"); 215 216 /* enable protection on processed sectors */ 217 if (update_flash_protect(1, addr_first, addr_last) > 0) { 218 printf("Error: could not protect flash sectors\n"); 219 return 1; 220 } 221 222 return 0; 223 } 224 225 static int update_fit_getparams(const void *fit, int noffset, ulong *addr, 226 ulong *fladdr, ulong *size) 227 { 228 const void *data; 229 230 if (fit_image_get_data(fit, noffset, &data, (size_t *)size)) 231 return 1; 232 233 if (fit_image_get_load(fit, noffset, (ulong *)fladdr)) 234 return 1; 235 236 *addr = (ulong)data; 237 238 return 0; 239 } 240 241 int update_tftp(ulong addr) 242 { 243 char *filename, *env_addr; 244 int images_noffset, ndepth, noffset; 245 ulong update_addr, update_fladdr, update_size; 246 void *fit; 247 int ret = 0; 248 249 /* use already present image */ 250 if (addr) 251 goto got_update_file; 252 253 printf("Auto-update from TFTP: "); 254 255 /* get the file name of the update file */ 256 filename = getenv(UPDATE_FILE_ENV); 257 if (filename == NULL) { 258 printf("failed, env. variable '%s' not found\n", 259 UPDATE_FILE_ENV); 260 return 1; 261 } 262 263 printf("trying update file '%s'\n", filename); 264 265 /* get load address of downloaded update file */ 266 if ((env_addr = getenv("loadaddr")) != NULL) 267 addr = simple_strtoul(env_addr, NULL, 16); 268 else 269 addr = CONFIG_UPDATE_LOAD_ADDR; 270 271 272 if (update_load(filename, CONFIG_UPDATE_TFTP_MSEC_MAX, 273 CONFIG_UPDATE_TFTP_CNT_MAX, addr)) { 274 printf("Can't load update file, aborting auto-update\n"); 275 return 1; 276 } 277 278 got_update_file: 279 fit = (void *)addr; 280 281 if (!fit_check_format((void *)fit)) { 282 printf("Bad FIT format of the update file, aborting " 283 "auto-update\n"); 284 return 1; 285 } 286 287 /* process updates */ 288 images_noffset = fdt_path_offset(fit, FIT_IMAGES_PATH); 289 290 ndepth = 0; 291 noffset = fdt_next_node(fit, images_noffset, &ndepth); 292 while (noffset >= 0 && ndepth > 0) { 293 if (ndepth != 1) 294 goto next_node; 295 296 printf("Processing update '%s' :", 297 fit_get_name(fit, noffset, NULL)); 298 299 if (!fit_image_check_hashes(fit, noffset)) { 300 printf("Error: invalid update hash, aborting\n"); 301 ret = 1; 302 goto next_node; 303 } 304 305 printf("\n"); 306 if (update_fit_getparams(fit, noffset, &update_addr, 307 &update_fladdr, &update_size)) { 308 printf("Error: can't get update parameteres, " 309 "aborting\n"); 310 ret = 1; 311 goto next_node; 312 } 313 if (update_flash(update_addr, update_fladdr, update_size)) { 314 printf("Error: can't flash update, aborting\n"); 315 ret = 1; 316 goto next_node; 317 } 318 next_node: 319 noffset = fdt_next_node(fit, noffset, &ndepth); 320 } 321 322 return ret; 323 } 324