Merge branch 'master' of git://git.denx.de/u-boot-arm
[platform/kernel/u-boot.git] / common / bootm_os.c
1 /*
2  * (C) Copyright 2000-2009
3  * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
4  *
5  * SPDX-License-Identifier:     GPL-2.0+
6  */
7
8 #include <common.h>
9 #include <bootm.h>
10 #include <fdt_support.h>
11 #include <libfdt.h>
12 #include <malloc.h>
13 #include <vxworks.h>
14
15 DECLARE_GLOBAL_DATA_PTR;
16
17 static int do_bootm_standalone(int flag, int argc, char * const argv[],
18                                bootm_headers_t *images)
19 {
20         char *s;
21         int (*appl)(int, char *const[]);
22
23         /* Don't start if "autostart" is set to "no" */
24         s = getenv("autostart");
25         if ((s != NULL) && !strcmp(s, "no")) {
26                 setenv_hex("filesize", images->os.image_len);
27                 return 0;
28         }
29         appl = (int (*)(int, char * const []))images->ep;
30         appl(argc, argv);
31         return 0;
32 }
33
34 /*******************************************************************/
35 /* OS booting routines */
36 /*******************************************************************/
37
38 #if defined(CONFIG_BOOTM_NETBSD) || defined(CONFIG_BOOTM_PLAN9)
39 static void copy_args(char *dest, int argc, char * const argv[], char delim)
40 {
41         int i;
42
43         for (i = 0; i < argc; i++) {
44                 if (i > 0)
45                         *dest++ = delim;
46                 strcpy(dest, argv[i]);
47                 dest += strlen(argv[i]);
48         }
49 }
50 #endif
51
52 #ifdef CONFIG_BOOTM_NETBSD
53 static int do_bootm_netbsd(int flag, int argc, char * const argv[],
54                             bootm_headers_t *images)
55 {
56         void (*loader)(bd_t *, image_header_t *, char *, char *);
57         image_header_t *os_hdr, *hdr;
58         ulong kernel_data, kernel_len;
59         char *consdev;
60         char *cmdline;
61
62         if (flag != BOOTM_STATE_OS_GO)
63                 return 0;
64
65 #if defined(CONFIG_FIT)
66         if (!images->legacy_hdr_valid) {
67                 fit_unsupported_reset("NetBSD");
68                 return 1;
69         }
70 #endif
71         hdr = images->legacy_hdr_os;
72
73         /*
74          * Booting a (NetBSD) kernel image
75          *
76          * This process is pretty similar to a standalone application:
77          * The (first part of an multi-) image must be a stage-2 loader,
78          * which in turn is responsible for loading & invoking the actual
79          * kernel.  The only differences are the parameters being passed:
80          * besides the board info strucure, the loader expects a command
81          * line, the name of the console device, and (optionally) the
82          * address of the original image header.
83          */
84         os_hdr = NULL;
85         if (image_check_type(&images->legacy_hdr_os_copy, IH_TYPE_MULTI)) {
86                 image_multi_getimg(hdr, 1, &kernel_data, &kernel_len);
87                 if (kernel_len)
88                         os_hdr = hdr;
89         }
90
91         consdev = "";
92 #if   defined(CONFIG_8xx_CONS_SMC1)
93         consdev = "smc1";
94 #elif defined(CONFIG_8xx_CONS_SMC2)
95         consdev = "smc2";
96 #elif defined(CONFIG_8xx_CONS_SCC2)
97         consdev = "scc2";
98 #elif defined(CONFIG_8xx_CONS_SCC3)
99         consdev = "scc3";
100 #endif
101
102         if (argc > 0) {
103                 ulong len;
104                 int   i;
105
106                 for (i = 0, len = 0; i < argc; i += 1)
107                         len += strlen(argv[i]) + 1;
108                 cmdline = malloc(len);
109                 copy_args(cmdline, argc, argv, ' ');
110         } else {
111                 cmdline = getenv("bootargs");
112                 if (cmdline == NULL)
113                         cmdline = "";
114         }
115
116         loader = (void (*)(bd_t *, image_header_t *, char *, char *))images->ep;
117
118         printf("## Transferring control to NetBSD stage-2 loader (at address %08lx) ...\n",
119                (ulong)loader);
120
121         bootstage_mark(BOOTSTAGE_ID_RUN_OS);
122
123         /*
124          * NetBSD Stage-2 Loader Parameters:
125          *   arg[0]: pointer to board info data
126          *   arg[1]: image load address
127          *   arg[2]: char pointer to the console device to use
128          *   arg[3]: char pointer to the boot arguments
129          */
130         (*loader)(gd->bd, os_hdr, consdev, cmdline);
131
132         return 1;
133 }
134 #endif /* CONFIG_BOOTM_NETBSD*/
135
136 #ifdef CONFIG_LYNXKDI
137 static int do_bootm_lynxkdi(int flag, int argc, char * const argv[],
138                              bootm_headers_t *images)
139 {
140         image_header_t *hdr = &images->legacy_hdr_os_copy;
141
142         if (flag != BOOTM_STATE_OS_GO)
143                 return 0;
144
145 #if defined(CONFIG_FIT)
146         if (!images->legacy_hdr_valid) {
147                 fit_unsupported_reset("Lynx");
148                 return 1;
149         }
150 #endif
151
152         lynxkdi_boot((image_header_t *)hdr);
153
154         return 1;
155 }
156 #endif /* CONFIG_LYNXKDI */
157
158 #ifdef CONFIG_BOOTM_RTEMS
159 static int do_bootm_rtems(int flag, int argc, char * const argv[],
160                            bootm_headers_t *images)
161 {
162         void (*entry_point)(bd_t *);
163
164         if (flag != BOOTM_STATE_OS_GO)
165                 return 0;
166
167 #if defined(CONFIG_FIT)
168         if (!images->legacy_hdr_valid) {
169                 fit_unsupported_reset("RTEMS");
170                 return 1;
171         }
172 #endif
173
174         entry_point = (void (*)(bd_t *))images->ep;
175
176         printf("## Transferring control to RTEMS (at address %08lx) ...\n",
177                (ulong)entry_point);
178
179         bootstage_mark(BOOTSTAGE_ID_RUN_OS);
180
181         /*
182          * RTEMS Parameters:
183          *   r3: ptr to board info data
184          */
185         (*entry_point)(gd->bd);
186
187         return 1;
188 }
189 #endif /* CONFIG_BOOTM_RTEMS */
190
191 #if defined(CONFIG_BOOTM_OSE)
192 static int do_bootm_ose(int flag, int argc, char * const argv[],
193                            bootm_headers_t *images)
194 {
195         void (*entry_point)(void);
196
197         if (flag != BOOTM_STATE_OS_GO)
198                 return 0;
199
200 #if defined(CONFIG_FIT)
201         if (!images->legacy_hdr_valid) {
202                 fit_unsupported_reset("OSE");
203                 return 1;
204         }
205 #endif
206
207         entry_point = (void (*)(void))images->ep;
208
209         printf("## Transferring control to OSE (at address %08lx) ...\n",
210                (ulong)entry_point);
211
212         bootstage_mark(BOOTSTAGE_ID_RUN_OS);
213
214         /*
215          * OSE Parameters:
216          *   None
217          */
218         (*entry_point)();
219
220         return 1;
221 }
222 #endif /* CONFIG_BOOTM_OSE */
223
224 #if defined(CONFIG_BOOTM_PLAN9)
225 static int do_bootm_plan9(int flag, int argc, char * const argv[],
226                            bootm_headers_t *images)
227 {
228         void (*entry_point)(void);
229         char *s;
230
231         if (flag != BOOTM_STATE_OS_GO)
232                 return 0;
233
234 #if defined(CONFIG_FIT)
235         if (!images->legacy_hdr_valid) {
236                 fit_unsupported_reset("Plan 9");
237                 return 1;
238         }
239 #endif
240
241         /* See README.plan9 */
242         s = getenv("confaddr");
243         if (s != NULL) {
244                 char *confaddr = (char *)simple_strtoul(s, NULL, 16);
245
246                 if (argc > 0) {
247                         copy_args(confaddr, argc, argv, '\n');
248                 } else {
249                         s = getenv("bootargs");
250                         if (s != NULL)
251                                 strcpy(confaddr, s);
252                 }
253         }
254
255         entry_point = (void (*)(void))images->ep;
256
257         printf("## Transferring control to Plan 9 (at address %08lx) ...\n",
258                (ulong)entry_point);
259
260         bootstage_mark(BOOTSTAGE_ID_RUN_OS);
261
262         /*
263          * Plan 9 Parameters:
264          *   None
265          */
266         (*entry_point)();
267
268         return 1;
269 }
270 #endif /* CONFIG_BOOTM_PLAN9 */
271
272 #if defined(CONFIG_BOOTM_VXWORKS) && \
273         (defined(CONFIG_PPC) || defined(CONFIG_ARM))
274
275 void do_bootvx_fdt(bootm_headers_t *images)
276 {
277 #if defined(CONFIG_OF_LIBFDT)
278         int ret;
279         char *bootline;
280         ulong of_size = images->ft_len;
281         char **of_flat_tree = &images->ft_addr;
282         struct lmb *lmb = &images->lmb;
283
284         if (*of_flat_tree) {
285                 boot_fdt_add_mem_rsv_regions(lmb, *of_flat_tree);
286
287                 ret = boot_relocate_fdt(lmb, of_flat_tree, &of_size);
288                 if (ret)
289                         return;
290
291                 ret = fdt_add_subnode(*of_flat_tree, 0, "chosen");
292                 if ((ret >= 0 || ret == -FDT_ERR_EXISTS)) {
293                         bootline = getenv("bootargs");
294                         if (bootline) {
295                                 ret = fdt_find_and_setprop(*of_flat_tree,
296                                                 "/chosen", "bootargs",
297                                                 bootline,
298                                                 strlen(bootline) + 1, 1);
299                                 if (ret < 0) {
300                                         printf("## ERROR: %s : %s\n", __func__,
301                                                fdt_strerror(ret));
302                                         return;
303                                 }
304                         }
305                 } else {
306                         printf("## ERROR: %s : %s\n", __func__,
307                                fdt_strerror(ret));
308                         return;
309                 }
310         }
311 #endif
312
313         boot_prep_vxworks(images);
314
315         bootstage_mark(BOOTSTAGE_ID_RUN_OS);
316
317 #if defined(CONFIG_OF_LIBFDT)
318         printf("## Starting vxWorks at 0x%08lx, device tree at 0x%08lx ...\n",
319                (ulong)images->ep, (ulong)*of_flat_tree);
320 #else
321         printf("## Starting vxWorks at 0x%08lx\n", (ulong)images->ep);
322 #endif
323
324         boot_jump_vxworks(images);
325
326         puts("## vxWorks terminated\n");
327 }
328
329 static int do_bootm_vxworks(int flag, int argc, char * const argv[],
330                              bootm_headers_t *images)
331 {
332         if (flag != BOOTM_STATE_OS_GO)
333                 return 0;
334
335 #if defined(CONFIG_FIT)
336         if (!images->legacy_hdr_valid) {
337                 fit_unsupported_reset("VxWorks");
338                 return 1;
339         }
340 #endif
341
342         do_bootvx_fdt(images);
343
344         return 1;
345 }
346 #endif
347
348 #if defined(CONFIG_CMD_ELF)
349 static int do_bootm_qnxelf(int flag, int argc, char * const argv[],
350                             bootm_headers_t *images)
351 {
352         char *local_args[2];
353         char str[16];
354
355         if (flag != BOOTM_STATE_OS_GO)
356                 return 0;
357
358 #if defined(CONFIG_FIT)
359         if (!images->legacy_hdr_valid) {
360                 fit_unsupported_reset("QNX");
361                 return 1;
362         }
363 #endif
364
365         sprintf(str, "%lx", images->ep); /* write entry-point into string */
366         local_args[0] = argv[0];
367         local_args[1] = str;    /* and provide it via the arguments */
368         do_bootelf(NULL, 0, 2, local_args);
369
370         return 1;
371 }
372 #endif
373
374 #ifdef CONFIG_INTEGRITY
375 static int do_bootm_integrity(int flag, int argc, char * const argv[],
376                            bootm_headers_t *images)
377 {
378         void (*entry_point)(void);
379
380         if (flag != BOOTM_STATE_OS_GO)
381                 return 0;
382
383 #if defined(CONFIG_FIT)
384         if (!images->legacy_hdr_valid) {
385                 fit_unsupported_reset("INTEGRITY");
386                 return 1;
387         }
388 #endif
389
390         entry_point = (void (*)(void))images->ep;
391
392         printf("## Transferring control to INTEGRITY (at address %08lx) ...\n",
393                (ulong)entry_point);
394
395         bootstage_mark(BOOTSTAGE_ID_RUN_OS);
396
397         /*
398          * INTEGRITY Parameters:
399          *   None
400          */
401         (*entry_point)();
402
403         return 1;
404 }
405 #endif
406
407 static boot_os_fn *boot_os[] = {
408         [IH_OS_U_BOOT] = do_bootm_standalone,
409 #ifdef CONFIG_BOOTM_LINUX
410         [IH_OS_LINUX] = do_bootm_linux,
411 #endif
412 #ifdef CONFIG_BOOTM_NETBSD
413         [IH_OS_NETBSD] = do_bootm_netbsd,
414 #endif
415 #ifdef CONFIG_LYNXKDI
416         [IH_OS_LYNXOS] = do_bootm_lynxkdi,
417 #endif
418 #ifdef CONFIG_BOOTM_RTEMS
419         [IH_OS_RTEMS] = do_bootm_rtems,
420 #endif
421 #if defined(CONFIG_BOOTM_OSE)
422         [IH_OS_OSE] = do_bootm_ose,
423 #endif
424 #if defined(CONFIG_BOOTM_PLAN9)
425         [IH_OS_PLAN9] = do_bootm_plan9,
426 #endif
427 #if defined(CONFIG_BOOTM_VXWORKS) && \
428         (defined(CONFIG_PPC) || defined(CONFIG_ARM))
429         [IH_OS_VXWORKS] = do_bootm_vxworks,
430 #endif
431 #if defined(CONFIG_CMD_ELF)
432         [IH_OS_QNX] = do_bootm_qnxelf,
433 #endif
434 #ifdef CONFIG_INTEGRITY
435         [IH_OS_INTEGRITY] = do_bootm_integrity,
436 #endif
437 };
438
439 /* Allow for arch specific config before we boot */
440 __weak void arch_preboot_os(void)
441 {
442         /* please define platform specific arch_preboot_os() */
443 }
444
445 int boot_selected_os(int argc, char * const argv[], int state,
446                      bootm_headers_t *images, boot_os_fn *boot_fn)
447 {
448         arch_preboot_os();
449         boot_fn(state, argc, argv, images);
450
451         /* Stand-alone may return when 'autostart' is 'no' */
452         if (images->os.type == IH_TYPE_STANDALONE ||
453             state == BOOTM_STATE_OS_FAKE_GO) /* We expect to return */
454                 return 0;
455         bootstage_error(BOOTSTAGE_ID_BOOT_OS_RETURNED);
456 #ifdef DEBUG
457         puts("\n## Control returned to monitor - resetting...\n");
458 #endif
459         return BOOTM_ERR_RESET;
460 }
461
462 boot_os_fn *bootm_os_get_boot_func(int os)
463 {
464 #ifdef CONFIG_NEEDS_MANUAL_RELOC
465         static bool relocated;
466
467         if (!relocated) {
468                 int i;
469
470                 /* relocate boot function table */
471                 for (i = 0; i < ARRAY_SIZE(boot_os); i++)
472                         if (boot_os[i] != NULL)
473                                 boot_os[i] += gd->reloc_off;
474
475                 relocated = true;
476         }
477 #endif
478         return boot_os[os];
479 }