1 /* 2 * (C) Copyright 2008 Semihalf 3 * 4 * (C) Copyright 2000-2006 5 * Wolfgang Denk, DENX Software Engineering, wd@denx.de. 6 * 7 * SPDX-License-Identifier: GPL-2.0+ 8 */ 9 10 11 #include <common.h> 12 #include <watchdog.h> 13 #include <command.h> 14 #include <image.h> 15 #include <malloc.h> 16 #include <u-boot/zlib.h> 17 #include <bzlib.h> 18 #include <environment.h> 19 #include <asm/byteorder.h> 20 #include <asm/mp.h> 21 22 #if defined(CONFIG_OF_LIBFDT) 23 #include <libfdt.h> 24 #include <fdt_support.h> 25 #endif 26 27 #ifdef CONFIG_SYS_INIT_RAM_LOCK 28 #include <asm/cache.h> 29 #endif 30 31 DECLARE_GLOBAL_DATA_PTR; 32 33 extern ulong get_effective_memsize(void); 34 static ulong get_sp (void); 35 extern void ft_fixup_num_cores(void *blob); 36 static void set_clocks_in_mhz (bd_t *kbd); 37 38 #ifndef CONFIG_SYS_LINUX_LOWMEM_MAX_SIZE 39 #define CONFIG_SYS_LINUX_LOWMEM_MAX_SIZE (768*1024*1024) 40 #endif 41 42 static void boot_jump_linux(bootm_headers_t *images) 43 { 44 void (*kernel)(bd_t *, ulong r4, ulong r5, ulong r6, 45 ulong r7, ulong r8, ulong r9); 46 #ifdef CONFIG_OF_LIBFDT 47 char *of_flat_tree = images->ft_addr; 48 #endif 49 50 kernel = (void (*)(bd_t *, ulong, ulong, ulong, 51 ulong, ulong, ulong))images->ep; 52 debug ("## Transferring control to Linux (at address %08lx) ...\n", 53 (ulong)kernel); 54 55 bootstage_mark(BOOTSTAGE_ID_RUN_OS); 56 57 #if defined(CONFIG_SYS_INIT_RAM_LOCK) && !defined(CONFIG_E500) 58 unlock_ram_in_cache(); 59 #endif 60 61 #if defined(CONFIG_OF_LIBFDT) 62 if (of_flat_tree) { /* device tree; boot new style */ 63 /* 64 * Linux Kernel Parameters (passing device tree): 65 * r3: pointer to the fdt 66 * r4: 0 67 * r5: 0 68 * r6: epapr magic 69 * r7: size of IMA in bytes 70 * r8: 0 71 * r9: 0 72 */ 73 debug (" Booting using OF flat tree...\n"); 74 WATCHDOG_RESET (); 75 (*kernel) ((bd_t *)of_flat_tree, 0, 0, EPAPR_MAGIC, 76 getenv_bootm_mapsize(), 0, 0); 77 /* does not return */ 78 } else 79 #endif 80 { 81 /* 82 * Linux Kernel Parameters (passing board info data): 83 * r3: ptr to board info data 84 * r4: initrd_start or 0 if no initrd 85 * r5: initrd_end - unused if r4 is 0 86 * r6: Start of command line string 87 * r7: End of command line string 88 * r8: 0 89 * r9: 0 90 */ 91 ulong cmd_start = images->cmdline_start; 92 ulong cmd_end = images->cmdline_end; 93 ulong initrd_start = images->initrd_start; 94 ulong initrd_end = images->initrd_end; 95 bd_t *kbd = images->kbd; 96 97 debug (" Booting using board info...\n"); 98 WATCHDOG_RESET (); 99 (*kernel) (kbd, initrd_start, initrd_end, 100 cmd_start, cmd_end, 0, 0); 101 /* does not return */ 102 } 103 return ; 104 } 105 106 void arch_lmb_reserve(struct lmb *lmb) 107 { 108 phys_size_t bootm_size; 109 ulong size, sp, bootmap_base; 110 111 bootmap_base = getenv_bootm_low(); 112 bootm_size = getenv_bootm_size(); 113 114 #ifdef DEBUG 115 if (((u64)bootmap_base + bootm_size) > 116 (CONFIG_SYS_SDRAM_BASE + (u64)gd->ram_size)) 117 puts("WARNING: bootm_low + bootm_size exceed total memory\n"); 118 if ((bootmap_base + bootm_size) > get_effective_memsize()) 119 puts("WARNING: bootm_low + bootm_size exceed eff. memory\n"); 120 #endif 121 122 size = min(bootm_size, get_effective_memsize()); 123 size = min(size, CONFIG_SYS_LINUX_LOWMEM_MAX_SIZE); 124 125 if (size < bootm_size) { 126 ulong base = bootmap_base + size; 127 printf("WARNING: adjusting available memory to %lx\n", size); 128 lmb_reserve(lmb, base, bootm_size - size); 129 } 130 131 /* 132 * Booting a (Linux) kernel image 133 * 134 * Allocate space for command line and board info - the 135 * address should be as high as possible within the reach of 136 * the kernel (see CONFIG_SYS_BOOTMAPSZ settings), but in unused 137 * memory, which means far enough below the current stack 138 * pointer. 139 */ 140 sp = get_sp(); 141 debug ("## Current stack ends at 0x%08lx\n", sp); 142 143 /* adjust sp by 4K to be safe */ 144 sp -= 4096; 145 lmb_reserve(lmb, sp, (CONFIG_SYS_SDRAM_BASE + get_effective_memsize() - sp)); 146 147 #ifdef CONFIG_MP 148 cpu_mp_lmb_reserve(lmb); 149 #endif 150 151 return ; 152 } 153 154 static void boot_prep_linux(bootm_headers_t *images) 155 { 156 #ifdef CONFIG_MP 157 /* 158 * if we are MP make sure to flush the device tree so any changes are 159 * made visibile to all other cores. In AMP boot scenarios the cores 160 * might not be HW cache coherent with each other. 161 */ 162 flush_cache((unsigned long)images->ft_addr, images->ft_len); 163 #endif 164 } 165 166 static int boot_cmdline_linux(bootm_headers_t *images) 167 { 168 ulong of_size = images->ft_len; 169 struct lmb *lmb = &images->lmb; 170 ulong *cmd_start = &images->cmdline_start; 171 ulong *cmd_end = &images->cmdline_end; 172 173 int ret = 0; 174 175 if (!of_size) { 176 /* allocate space and init command line */ 177 ret = boot_get_cmdline (lmb, cmd_start, cmd_end); 178 if (ret) { 179 puts("ERROR with allocation of cmdline\n"); 180 return ret; 181 } 182 } 183 184 return ret; 185 } 186 187 static int boot_bd_t_linux(bootm_headers_t *images) 188 { 189 ulong of_size = images->ft_len; 190 struct lmb *lmb = &images->lmb; 191 bd_t **kbd = &images->kbd; 192 193 int ret = 0; 194 195 if (!of_size) { 196 /* allocate space for kernel copy of board info */ 197 ret = boot_get_kbd (lmb, kbd); 198 if (ret) { 199 puts("ERROR with allocation of kernel bd\n"); 200 return ret; 201 } 202 set_clocks_in_mhz(*kbd); 203 } 204 205 return ret; 206 } 207 208 static int boot_body_linux(bootm_headers_t *images) 209 { 210 int ret; 211 212 /* allocate space for kernel copy of board info */ 213 ret = boot_bd_t_linux(images); 214 if (ret) 215 return ret; 216 217 ret = image_setup_linux(images); 218 if (ret) 219 return ret; 220 221 return 0; 222 } 223 224 noinline 225 int do_bootm_linux(int flag, int argc, char * const argv[], bootm_headers_t *images) 226 { 227 int ret; 228 229 if (flag & BOOTM_STATE_OS_CMDLINE) { 230 boot_cmdline_linux(images); 231 return 0; 232 } 233 234 if (flag & BOOTM_STATE_OS_BD_T) { 235 boot_bd_t_linux(images); 236 return 0; 237 } 238 239 if (flag & BOOTM_STATE_OS_PREP) { 240 boot_prep_linux(images); 241 return 0; 242 } 243 244 boot_prep_linux(images); 245 ret = boot_body_linux(images); 246 if (ret) 247 return ret; 248 boot_jump_linux(images); 249 250 return 0; 251 } 252 253 static ulong get_sp (void) 254 { 255 ulong sp; 256 257 asm( "mr %0,1": "=r"(sp) : ); 258 return sp; 259 } 260 261 static void set_clocks_in_mhz (bd_t *kbd) 262 { 263 char *s; 264 265 if ((s = getenv ("clocks_in_mhz")) != NULL) { 266 /* convert all clock information to MHz */ 267 kbd->bi_intfreq /= 1000000L; 268 kbd->bi_busfreq /= 1000000L; 269 #if defined(CONFIG_CPM2) 270 kbd->bi_cpmfreq /= 1000000L; 271 kbd->bi_brgfreq /= 1000000L; 272 kbd->bi_sccfreq /= 1000000L; 273 kbd->bi_vco /= 1000000L; 274 #endif 275 #if defined(CONFIG_MPC5xxx) 276 kbd->bi_ipbfreq /= 1000000L; 277 kbd->bi_pcifreq /= 1000000L; 278 #endif /* CONFIG_MPC5xxx */ 279 } 280 } 281 282 #if defined(CONFIG_BOOTM_VXWORKS) 283 void boot_prep_vxworks(bootm_headers_t *images) 284 { 285 #if defined(CONFIG_OF_LIBFDT) 286 int off; 287 u64 base, size; 288 289 if (!images->ft_addr) 290 return; 291 292 base = (u64)gd->bd->bi_memstart; 293 size = (u64)gd->bd->bi_memsize; 294 295 off = fdt_path_offset(images->ft_addr, "/memory"); 296 if (off < 0) 297 fdt_fixup_memory(images->ft_addr, base, size); 298 299 #if defined(CONFIG_MP) 300 #if defined(CONFIG_MPC85xx) 301 ft_fixup_cpu(images->ft_addr, base + size); 302 ft_fixup_num_cores(images->ft_addr); 303 #elif defined(CONFIG_MPC86xx) 304 off = fdt_add_mem_rsv(images->ft_addr, 305 determine_mp_bootpg(NULL), (u64)4096); 306 if (off < 0) 307 printf("## WARNING %s: %s\n", __func__, fdt_strerror(off)); 308 ft_fixup_num_cores(images->ft_addr); 309 #endif 310 flush_cache((unsigned long)images->ft_addr, images->ft_len); 311 #endif 312 #endif 313 } 314 315 void boot_jump_vxworks(bootm_headers_t *images) 316 { 317 /* PowerPC VxWorks boot interface conforms to the ePAPR standard 318 * general purpuse registers: 319 * 320 * r3: Effective address of the device tree image 321 * r4: 0 322 * r5: 0 323 * r6: ePAPR magic value 324 * r7: shall be the size of the boot IMA in bytes 325 * r8: 0 326 * r9: 0 327 * TCR: WRC = 0, no watchdog timer reset will occur 328 */ 329 WATCHDOG_RESET(); 330 331 ((void (*)(void *, ulong, ulong, ulong, 332 ulong, ulong, ulong))images->ep)(images->ft_addr, 333 0, 0, EPAPR_MAGIC, getenv_bootm_mapsize(), 0, 0); 334 } 335 #endif 336