]>
Commit | Line | Data |
---|---|---|
1 | /* | |
2 | * (C) Copyright 2007 | |
3 | * Gerald Van Baren, Custom IDEAS, vanbaren@cideas.com | |
4 | * Based on code written by: | |
5 | * Pantelis Antoniou <pantelis.antoniou@gmail.com> and | |
6 | * Matthew McClintock <msm@freescale.com> | |
7 | * | |
8 | * SPDX-License-Identifier: GPL-2.0+ | |
9 | */ | |
10 | ||
11 | #include <common.h> | |
12 | #include <command.h> | |
13 | #include <linux/ctype.h> | |
14 | #include <linux/types.h> | |
15 | #include <asm/global_data.h> | |
16 | #include <libfdt.h> | |
17 | #include <fdt_support.h> | |
18 | #include <mapmem.h> | |
19 | #include <asm/io.h> | |
20 | ||
21 | #define MAX_LEVEL 32 /* how deeply nested we will go */ | |
22 | #define SCRATCHPAD 1024 /* bytes of scratchpad memory */ | |
23 | #define CMD_FDT_MAX_DUMP 64 | |
24 | ||
25 | /* | |
26 | * Global data (for the gd->bd) | |
27 | */ | |
28 | DECLARE_GLOBAL_DATA_PTR; | |
29 | ||
30 | static int fdt_valid(struct fdt_header **blobp); | |
31 | static int fdt_parse_prop(char *const*newval, int count, char *data, int *len); | |
32 | static int fdt_print(const char *pathp, char *prop, int depth); | |
33 | static int is_printable_string(const void *data, int len); | |
34 | ||
35 | /* | |
36 | * The working_fdt points to our working flattened device tree. | |
37 | */ | |
38 | struct fdt_header *working_fdt; | |
39 | ||
40 | void set_working_fdt_addr(ulong addr) | |
41 | { | |
42 | void *buf; | |
43 | ||
44 | buf = map_sysmem(addr, 0); | |
45 | working_fdt = buf; | |
46 | env_set_hex("fdtaddr", addr); | |
47 | } | |
48 | ||
49 | /* | |
50 | * Get a value from the fdt and format it to be set in the environment | |
51 | */ | |
52 | static int fdt_value_env_set(const void *nodep, int len, const char *var) | |
53 | { | |
54 | if (is_printable_string(nodep, len)) | |
55 | env_set(var, (void *)nodep); | |
56 | else if (len == 4) { | |
57 | char buf[11]; | |
58 | ||
59 | sprintf(buf, "0x%08X", fdt32_to_cpu(*(fdt32_t *)nodep)); | |
60 | env_set(var, buf); | |
61 | } else if (len%4 == 0 && len <= 20) { | |
62 | /* Needed to print things like sha1 hashes. */ | |
63 | char buf[41]; | |
64 | int i; | |
65 | ||
66 | for (i = 0; i < len; i += sizeof(unsigned int)) | |
67 | sprintf(buf + (i * 2), "%08x", | |
68 | *(unsigned int *)(nodep + i)); | |
69 | env_set(var, buf); | |
70 | } else { | |
71 | printf("error: unprintable value\n"); | |
72 | return 1; | |
73 | } | |
74 | return 0; | |
75 | } | |
76 | ||
77 | /* | |
78 | * Flattened Device Tree command, see the help for parameter definitions. | |
79 | */ | |
80 | static int do_fdt(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[]) | |
81 | { | |
82 | if (argc < 2) | |
83 | return CMD_RET_USAGE; | |
84 | ||
85 | /* | |
86 | * Set the address of the fdt | |
87 | */ | |
88 | if (strncmp(argv[1], "ad", 2) == 0) { | |
89 | unsigned long addr; | |
90 | int control = 0; | |
91 | struct fdt_header *blob; | |
92 | /* | |
93 | * Set the address [and length] of the fdt. | |
94 | */ | |
95 | argc -= 2; | |
96 | argv += 2; | |
97 | /* Temporary #ifdef - some archs don't have fdt_blob yet */ | |
98 | #ifdef CONFIG_OF_CONTROL | |
99 | if (argc && !strcmp(*argv, "-c")) { | |
100 | control = 1; | |
101 | argc--; | |
102 | argv++; | |
103 | } | |
104 | #endif | |
105 | if (argc == 0) { | |
106 | if (control) | |
107 | blob = (struct fdt_header *)gd->fdt_blob; | |
108 | else | |
109 | blob = working_fdt; | |
110 | if (!blob || !fdt_valid(&blob)) | |
111 | return 1; | |
112 | printf("The address of the fdt is %#08lx\n", | |
113 | control ? (ulong)map_to_sysmem(blob) : | |
114 | env_get_hex("fdtaddr", 0)); | |
115 | return 0; | |
116 | } | |
117 | ||
118 | addr = simple_strtoul(argv[0], NULL, 16); | |
119 | blob = map_sysmem(addr, 0); | |
120 | if (!fdt_valid(&blob)) | |
121 | return 1; | |
122 | if (control) | |
123 | gd->fdt_blob = blob; | |
124 | else | |
125 | set_working_fdt_addr(addr); | |
126 | ||
127 | if (argc >= 2) { | |
128 | int len; | |
129 | int err; | |
130 | /* | |
131 | * Optional new length | |
132 | */ | |
133 | len = simple_strtoul(argv[1], NULL, 16); | |
134 | if (len < fdt_totalsize(blob)) { | |
135 | printf ("New length %d < existing length %d, " | |
136 | "ignoring.\n", | |
137 | len, fdt_totalsize(blob)); | |
138 | } else { | |
139 | /* | |
140 | * Open in place with a new length. | |
141 | */ | |
142 | err = fdt_open_into(blob, blob, len); | |
143 | if (err != 0) { | |
144 | printf ("libfdt fdt_open_into(): %s\n", | |
145 | fdt_strerror(err)); | |
146 | } | |
147 | } | |
148 | } | |
149 | ||
150 | return CMD_RET_SUCCESS; | |
151 | } | |
152 | ||
153 | if (!working_fdt) { | |
154 | puts( | |
155 | "No FDT memory address configured. Please configure\n" | |
156 | "the FDT address via \"fdt addr <address>\" command.\n" | |
157 | "Aborting!\n"); | |
158 | return CMD_RET_FAILURE; | |
159 | } | |
160 | ||
161 | /* | |
162 | * Move the working_fdt | |
163 | */ | |
164 | if (strncmp(argv[1], "mo", 2) == 0) { | |
165 | struct fdt_header *newaddr; | |
166 | int len; | |
167 | int err; | |
168 | ||
169 | if (argc < 4) | |
170 | return CMD_RET_USAGE; | |
171 | ||
172 | /* | |
173 | * Set the address and length of the fdt. | |
174 | */ | |
175 | working_fdt = (struct fdt_header *)simple_strtoul(argv[2], NULL, 16); | |
176 | if (!fdt_valid(&working_fdt)) | |
177 | return 1; | |
178 | ||
179 | newaddr = (struct fdt_header *)simple_strtoul(argv[3],NULL,16); | |
180 | ||
181 | /* | |
182 | * If the user specifies a length, use that. Otherwise use the | |
183 | * current length. | |
184 | */ | |
185 | if (argc <= 4) { | |
186 | len = fdt_totalsize(working_fdt); | |
187 | } else { | |
188 | len = simple_strtoul(argv[4], NULL, 16); | |
189 | if (len < fdt_totalsize(working_fdt)) { | |
190 | printf ("New length 0x%X < existing length " | |
191 | "0x%X, aborting.\n", | |
192 | len, fdt_totalsize(working_fdt)); | |
193 | return 1; | |
194 | } | |
195 | } | |
196 | ||
197 | /* | |
198 | * Copy to the new location. | |
199 | */ | |
200 | err = fdt_open_into(working_fdt, newaddr, len); | |
201 | if (err != 0) { | |
202 | printf ("libfdt fdt_open_into(): %s\n", | |
203 | fdt_strerror(err)); | |
204 | return 1; | |
205 | } | |
206 | working_fdt = newaddr; | |
207 | #ifdef CONFIG_OF_SYSTEM_SETUP | |
208 | /* Call the board-specific fixup routine */ | |
209 | } else if (strncmp(argv[1], "sys", 3) == 0) { | |
210 | int err = ft_system_setup(working_fdt, gd->bd); | |
211 | ||
212 | if (err) { | |
213 | printf("Failed to add system information to FDT: %s\n", | |
214 | fdt_strerror(err)); | |
215 | return CMD_RET_FAILURE; | |
216 | } | |
217 | #endif | |
218 | /* | |
219 | * Make a new node | |
220 | */ | |
221 | } else if (strncmp(argv[1], "mk", 2) == 0) { | |
222 | char *pathp; /* path */ | |
223 | char *nodep; /* new node to add */ | |
224 | int nodeoffset; /* node offset from libfdt */ | |
225 | int err; | |
226 | ||
227 | /* | |
228 | * Parameters: Node path, new node to be appended to the path. | |
229 | */ | |
230 | if (argc < 4) | |
231 | return CMD_RET_USAGE; | |
232 | ||
233 | pathp = argv[2]; | |
234 | nodep = argv[3]; | |
235 | ||
236 | nodeoffset = fdt_path_offset (working_fdt, pathp); | |
237 | if (nodeoffset < 0) { | |
238 | /* | |
239 | * Not found or something else bad happened. | |
240 | */ | |
241 | printf ("libfdt fdt_path_offset() returned %s\n", | |
242 | fdt_strerror(nodeoffset)); | |
243 | return 1; | |
244 | } | |
245 | err = fdt_add_subnode(working_fdt, nodeoffset, nodep); | |
246 | if (err < 0) { | |
247 | printf ("libfdt fdt_add_subnode(): %s\n", | |
248 | fdt_strerror(err)); | |
249 | return 1; | |
250 | } | |
251 | ||
252 | /* | |
253 | * Set the value of a property in the working_fdt. | |
254 | */ | |
255 | } else if (argv[1][0] == 's') { | |
256 | char *pathp; /* path */ | |
257 | char *prop; /* property */ | |
258 | int nodeoffset; /* node offset from libfdt */ | |
259 | static char data[SCRATCHPAD] __aligned(4);/* property storage */ | |
260 | const void *ptmp; | |
261 | int len; /* new length of the property */ | |
262 | int ret; /* return value */ | |
263 | ||
264 | /* | |
265 | * Parameters: Node path, property, optional value. | |
266 | */ | |
267 | if (argc < 4) | |
268 | return CMD_RET_USAGE; | |
269 | ||
270 | pathp = argv[2]; | |
271 | prop = argv[3]; | |
272 | ||
273 | nodeoffset = fdt_path_offset (working_fdt, pathp); | |
274 | if (nodeoffset < 0) { | |
275 | /* | |
276 | * Not found or something else bad happened. | |
277 | */ | |
278 | printf ("libfdt fdt_path_offset() returned %s\n", | |
279 | fdt_strerror(nodeoffset)); | |
280 | return 1; | |
281 | } | |
282 | ||
283 | if (argc == 4) { | |
284 | len = 0; | |
285 | } else { | |
286 | ptmp = fdt_getprop(working_fdt, nodeoffset, prop, &len); | |
287 | if (len > SCRATCHPAD) { | |
288 | printf("prop (%d) doesn't fit in scratchpad!\n", | |
289 | len); | |
290 | return 1; | |
291 | } | |
292 | if (ptmp != NULL) | |
293 | memcpy(data, ptmp, len); | |
294 | ||
295 | ret = fdt_parse_prop(&argv[4], argc - 4, data, &len); | |
296 | if (ret != 0) | |
297 | return ret; | |
298 | } | |
299 | ||
300 | ret = fdt_setprop(working_fdt, nodeoffset, prop, data, len); | |
301 | if (ret < 0) { | |
302 | printf ("libfdt fdt_setprop(): %s\n", fdt_strerror(ret)); | |
303 | return 1; | |
304 | } | |
305 | ||
306 | /******************************************************************** | |
307 | * Get the value of a property in the working_fdt. | |
308 | ********************************************************************/ | |
309 | } else if (argv[1][0] == 'g') { | |
310 | char *subcmd; /* sub-command */ | |
311 | char *pathp; /* path */ | |
312 | char *prop; /* property */ | |
313 | char *var; /* variable to store result */ | |
314 | int nodeoffset; /* node offset from libfdt */ | |
315 | const void *nodep; /* property node pointer */ | |
316 | int len = 0; /* new length of the property */ | |
317 | ||
318 | /* | |
319 | * Parameters: Node path, property, optional value. | |
320 | */ | |
321 | if (argc < 5) | |
322 | return CMD_RET_USAGE; | |
323 | ||
324 | subcmd = argv[2]; | |
325 | ||
326 | if (argc < 6 && subcmd[0] != 's') | |
327 | return CMD_RET_USAGE; | |
328 | ||
329 | var = argv[3]; | |
330 | pathp = argv[4]; | |
331 | prop = argv[5]; | |
332 | ||
333 | nodeoffset = fdt_path_offset(working_fdt, pathp); | |
334 | if (nodeoffset < 0) { | |
335 | /* | |
336 | * Not found or something else bad happened. | |
337 | */ | |
338 | printf("libfdt fdt_path_offset() returned %s\n", | |
339 | fdt_strerror(nodeoffset)); | |
340 | return 1; | |
341 | } | |
342 | ||
343 | if (subcmd[0] == 'n' || (subcmd[0] == 's' && argc == 5)) { | |
344 | int reqIndex = -1; | |
345 | int startDepth = fdt_node_depth( | |
346 | working_fdt, nodeoffset); | |
347 | int curDepth = startDepth; | |
348 | int curIndex = -1; | |
349 | int nextNodeOffset = fdt_next_node( | |
350 | working_fdt, nodeoffset, &curDepth); | |
351 | ||
352 | if (subcmd[0] == 'n') | |
353 | reqIndex = simple_strtoul(argv[5], NULL, 16); | |
354 | ||
355 | while (curDepth > startDepth) { | |
356 | if (curDepth == startDepth + 1) | |
357 | curIndex++; | |
358 | if (subcmd[0] == 'n' && curIndex == reqIndex) { | |
359 | const char *node_name; | |
360 | ||
361 | node_name = fdt_get_name(working_fdt, | |
362 | nextNodeOffset, | |
363 | NULL); | |
364 | env_set(var, node_name); | |
365 | return 0; | |
366 | } | |
367 | nextNodeOffset = fdt_next_node( | |
368 | working_fdt, nextNodeOffset, &curDepth); | |
369 | if (nextNodeOffset < 0) | |
370 | break; | |
371 | } | |
372 | if (subcmd[0] == 's') { | |
373 | /* get the num nodes at this level */ | |
374 | env_set_ulong(var, curIndex + 1); | |
375 | } else { | |
376 | /* node index not found */ | |
377 | printf("libfdt node not found\n"); | |
378 | return 1; | |
379 | } | |
380 | } else { | |
381 | nodep = fdt_getprop( | |
382 | working_fdt, nodeoffset, prop, &len); | |
383 | if (len == 0) { | |
384 | /* no property value */ | |
385 | env_set(var, ""); | |
386 | return 0; | |
387 | } else if (nodep && len > 0) { | |
388 | if (subcmd[0] == 'v') { | |
389 | int ret; | |
390 | ||
391 | ret = fdt_value_env_set(nodep, len, | |
392 | var); | |
393 | if (ret != 0) | |
394 | return ret; | |
395 | } else if (subcmd[0] == 'a') { | |
396 | /* Get address */ | |
397 | char buf[11]; | |
398 | ||
399 | sprintf(buf, "0x%p", nodep); | |
400 | env_set(var, buf); | |
401 | } else if (subcmd[0] == 's') { | |
402 | /* Get size */ | |
403 | char buf[11]; | |
404 | ||
405 | sprintf(buf, "0x%08X", len); | |
406 | env_set(var, buf); | |
407 | } else | |
408 | return CMD_RET_USAGE; | |
409 | return 0; | |
410 | } else { | |
411 | printf("libfdt fdt_getprop(): %s\n", | |
412 | fdt_strerror(len)); | |
413 | return 1; | |
414 | } | |
415 | } | |
416 | ||
417 | /* | |
418 | * Print (recursive) / List (single level) | |
419 | */ | |
420 | } else if ((argv[1][0] == 'p') || (argv[1][0] == 'l')) { | |
421 | int depth = MAX_LEVEL; /* how deep to print */ | |
422 | char *pathp; /* path */ | |
423 | char *prop; /* property */ | |
424 | int ret; /* return value */ | |
425 | static char root[2] = "/"; | |
426 | ||
427 | /* | |
428 | * list is an alias for print, but limited to 1 level | |
429 | */ | |
430 | if (argv[1][0] == 'l') { | |
431 | depth = 1; | |
432 | } | |
433 | ||
434 | /* | |
435 | * Get the starting path. The root node is an oddball, | |
436 | * the offset is zero and has no name. | |
437 | */ | |
438 | if (argc == 2) | |
439 | pathp = root; | |
440 | else | |
441 | pathp = argv[2]; | |
442 | if (argc > 3) | |
443 | prop = argv[3]; | |
444 | else | |
445 | prop = NULL; | |
446 | ||
447 | ret = fdt_print(pathp, prop, depth); | |
448 | if (ret != 0) | |
449 | return ret; | |
450 | ||
451 | /* | |
452 | * Remove a property/node | |
453 | */ | |
454 | } else if (strncmp(argv[1], "rm", 2) == 0) { | |
455 | int nodeoffset; /* node offset from libfdt */ | |
456 | int err; | |
457 | ||
458 | /* | |
459 | * Get the path. The root node is an oddball, the offset | |
460 | * is zero and has no name. | |
461 | */ | |
462 | nodeoffset = fdt_path_offset (working_fdt, argv[2]); | |
463 | if (nodeoffset < 0) { | |
464 | /* | |
465 | * Not found or something else bad happened. | |
466 | */ | |
467 | printf ("libfdt fdt_path_offset() returned %s\n", | |
468 | fdt_strerror(nodeoffset)); | |
469 | return 1; | |
470 | } | |
471 | /* | |
472 | * Do the delete. A fourth parameter means delete a property, | |
473 | * otherwise delete the node. | |
474 | */ | |
475 | if (argc > 3) { | |
476 | err = fdt_delprop(working_fdt, nodeoffset, argv[3]); | |
477 | if (err < 0) { | |
478 | printf("libfdt fdt_delprop(): %s\n", | |
479 | fdt_strerror(err)); | |
480 | return err; | |
481 | } | |
482 | } else { | |
483 | err = fdt_del_node(working_fdt, nodeoffset); | |
484 | if (err < 0) { | |
485 | printf("libfdt fdt_del_node(): %s\n", | |
486 | fdt_strerror(err)); | |
487 | return err; | |
488 | } | |
489 | } | |
490 | ||
491 | /* | |
492 | * Display header info | |
493 | */ | |
494 | } else if (argv[1][0] == 'h') { | |
495 | u32 version = fdt_version(working_fdt); | |
496 | printf("magic:\t\t\t0x%x\n", fdt_magic(working_fdt)); | |
497 | printf("totalsize:\t\t0x%x (%d)\n", fdt_totalsize(working_fdt), | |
498 | fdt_totalsize(working_fdt)); | |
499 | printf("off_dt_struct:\t\t0x%x\n", | |
500 | fdt_off_dt_struct(working_fdt)); | |
501 | printf("off_dt_strings:\t\t0x%x\n", | |
502 | fdt_off_dt_strings(working_fdt)); | |
503 | printf("off_mem_rsvmap:\t\t0x%x\n", | |
504 | fdt_off_mem_rsvmap(working_fdt)); | |
505 | printf("version:\t\t%d\n", version); | |
506 | printf("last_comp_version:\t%d\n", | |
507 | fdt_last_comp_version(working_fdt)); | |
508 | if (version >= 2) | |
509 | printf("boot_cpuid_phys:\t0x%x\n", | |
510 | fdt_boot_cpuid_phys(working_fdt)); | |
511 | if (version >= 3) | |
512 | printf("size_dt_strings:\t0x%x\n", | |
513 | fdt_size_dt_strings(working_fdt)); | |
514 | if (version >= 17) | |
515 | printf("size_dt_struct:\t\t0x%x\n", | |
516 | fdt_size_dt_struct(working_fdt)); | |
517 | printf("number mem_rsv:\t\t0x%x\n", | |
518 | fdt_num_mem_rsv(working_fdt)); | |
519 | printf("\n"); | |
520 | ||
521 | /* | |
522 | * Set boot cpu id | |
523 | */ | |
524 | } else if (strncmp(argv[1], "boo", 3) == 0) { | |
525 | unsigned long tmp = simple_strtoul(argv[2], NULL, 16); | |
526 | fdt_set_boot_cpuid_phys(working_fdt, tmp); | |
527 | ||
528 | /* | |
529 | * memory command | |
530 | */ | |
531 | } else if (strncmp(argv[1], "me", 2) == 0) { | |
532 | uint64_t addr, size; | |
533 | int err; | |
534 | addr = simple_strtoull(argv[2], NULL, 16); | |
535 | size = simple_strtoull(argv[3], NULL, 16); | |
536 | err = fdt_fixup_memory(working_fdt, addr, size); | |
537 | if (err < 0) | |
538 | return err; | |
539 | ||
540 | /* | |
541 | * mem reserve commands | |
542 | */ | |
543 | } else if (strncmp(argv[1], "rs", 2) == 0) { | |
544 | if (argv[2][0] == 'p') { | |
545 | uint64_t addr, size; | |
546 | int total = fdt_num_mem_rsv(working_fdt); | |
547 | int j, err; | |
548 | printf("index\t\t start\t\t size\n"); | |
549 | printf("-------------------------------" | |
550 | "-----------------\n"); | |
551 | for (j = 0; j < total; j++) { | |
552 | err = fdt_get_mem_rsv(working_fdt, j, &addr, &size); | |
553 | if (err < 0) { | |
554 | printf("libfdt fdt_get_mem_rsv(): %s\n", | |
555 | fdt_strerror(err)); | |
556 | return err; | |
557 | } | |
558 | printf(" %x\t%08x%08x\t%08x%08x\n", j, | |
559 | (u32)(addr >> 32), | |
560 | (u32)(addr & 0xffffffff), | |
561 | (u32)(size >> 32), | |
562 | (u32)(size & 0xffffffff)); | |
563 | } | |
564 | } else if (argv[2][0] == 'a') { | |
565 | uint64_t addr, size; | |
566 | int err; | |
567 | addr = simple_strtoull(argv[3], NULL, 16); | |
568 | size = simple_strtoull(argv[4], NULL, 16); | |
569 | err = fdt_add_mem_rsv(working_fdt, addr, size); | |
570 | ||
571 | if (err < 0) { | |
572 | printf("libfdt fdt_add_mem_rsv(): %s\n", | |
573 | fdt_strerror(err)); | |
574 | return err; | |
575 | } | |
576 | } else if (argv[2][0] == 'd') { | |
577 | unsigned long idx = simple_strtoul(argv[3], NULL, 16); | |
578 | int err = fdt_del_mem_rsv(working_fdt, idx); | |
579 | ||
580 | if (err < 0) { | |
581 | printf("libfdt fdt_del_mem_rsv(): %s\n", | |
582 | fdt_strerror(err)); | |
583 | return err; | |
584 | } | |
585 | } else { | |
586 | /* Unrecognized command */ | |
587 | return CMD_RET_USAGE; | |
588 | } | |
589 | } | |
590 | #ifdef CONFIG_OF_BOARD_SETUP | |
591 | /* Call the board-specific fixup routine */ | |
592 | else if (strncmp(argv[1], "boa", 3) == 0) { | |
593 | int err = ft_board_setup(working_fdt, gd->bd); | |
594 | ||
595 | if (err) { | |
596 | printf("Failed to update board information in FDT: %s\n", | |
597 | fdt_strerror(err)); | |
598 | return CMD_RET_FAILURE; | |
599 | } | |
600 | } | |
601 | #endif | |
602 | /* Create a chosen node */ | |
603 | else if (strncmp(argv[1], "cho", 3) == 0) { | |
604 | unsigned long initrd_start = 0, initrd_end = 0; | |
605 | ||
606 | if ((argc != 2) && (argc != 4)) | |
607 | return CMD_RET_USAGE; | |
608 | ||
609 | if (argc == 4) { | |
610 | initrd_start = simple_strtoul(argv[2], NULL, 16); | |
611 | initrd_end = simple_strtoul(argv[3], NULL, 16); | |
612 | } | |
613 | ||
614 | fdt_chosen(working_fdt); | |
615 | fdt_initrd(working_fdt, initrd_start, initrd_end); | |
616 | ||
617 | #if defined(CONFIG_FIT_SIGNATURE) | |
618 | } else if (strncmp(argv[1], "che", 3) == 0) { | |
619 | int cfg_noffset; | |
620 | int ret; | |
621 | unsigned long addr; | |
622 | struct fdt_header *blob; | |
623 | ||
624 | if (!working_fdt) | |
625 | return CMD_RET_FAILURE; | |
626 | ||
627 | if (argc > 2) { | |
628 | addr = simple_strtoul(argv[2], NULL, 16); | |
629 | blob = map_sysmem(addr, 0); | |
630 | } else { | |
631 | blob = (struct fdt_header *)gd->fdt_blob; | |
632 | } | |
633 | if (!fdt_valid(&blob)) | |
634 | return 1; | |
635 | ||
636 | gd->fdt_blob = blob; | |
637 | cfg_noffset = fit_conf_get_node(working_fdt, NULL); | |
638 | if (!cfg_noffset) { | |
639 | printf("Could not find configuration node: %s\n", | |
640 | fdt_strerror(cfg_noffset)); | |
641 | return CMD_RET_FAILURE; | |
642 | } | |
643 | ||
644 | ret = fit_config_verify(working_fdt, cfg_noffset); | |
645 | if (ret == 0) | |
646 | return CMD_RET_SUCCESS; | |
647 | else | |
648 | return CMD_RET_FAILURE; | |
649 | #endif | |
650 | ||
651 | } | |
652 | #ifdef CONFIG_OF_LIBFDT_OVERLAY | |
653 | /* apply an overlay */ | |
654 | else if (strncmp(argv[1], "ap", 2) == 0) { | |
655 | unsigned long addr; | |
656 | struct fdt_header *blob; | |
657 | int ret; | |
658 | ||
659 | if (argc != 3) | |
660 | return CMD_RET_USAGE; | |
661 | ||
662 | if (!working_fdt) | |
663 | return CMD_RET_FAILURE; | |
664 | ||
665 | addr = simple_strtoul(argv[2], NULL, 16); | |
666 | blob = map_sysmem(addr, 0); | |
667 | if (!fdt_valid(&blob)) | |
668 | return CMD_RET_FAILURE; | |
669 | ||
670 | /* apply method prints messages on error */ | |
671 | ret = fdt_overlay_apply_verbose(working_fdt, blob); | |
672 | if (ret) | |
673 | return CMD_RET_FAILURE; | |
674 | } | |
675 | #endif | |
676 | /* resize the fdt */ | |
677 | else if (strncmp(argv[1], "re", 2) == 0) { | |
678 | uint extrasize; | |
679 | if (argc > 2) | |
680 | extrasize = simple_strtoul(argv[2], NULL, 16); | |
681 | else | |
682 | extrasize = 0; | |
683 | fdt_shrink_to_minimum(working_fdt, extrasize); | |
684 | } | |
685 | else { | |
686 | /* Unrecognized command */ | |
687 | return CMD_RET_USAGE; | |
688 | } | |
689 | ||
690 | return 0; | |
691 | } | |
692 | ||
693 | /****************************************************************************/ | |
694 | ||
695 | /** | |
696 | * fdt_valid() - Check if an FDT is valid. If not, change it to NULL | |
697 | * | |
698 | * @blobp: Pointer to FDT pointer | |
699 | * @return 1 if OK, 0 if bad (in which case *blobp is set to NULL) | |
700 | */ | |
701 | static int fdt_valid(struct fdt_header **blobp) | |
702 | { | |
703 | const void *blob = *blobp; | |
704 | int err; | |
705 | ||
706 | if (blob == NULL) { | |
707 | printf ("The address of the fdt is invalid (NULL).\n"); | |
708 | return 0; | |
709 | } | |
710 | ||
711 | err = fdt_check_header(blob); | |
712 | if (err == 0) | |
713 | return 1; /* valid */ | |
714 | ||
715 | if (err < 0) { | |
716 | printf("libfdt fdt_check_header(): %s", fdt_strerror(err)); | |
717 | /* | |
718 | * Be more informative on bad version. | |
719 | */ | |
720 | if (err == -FDT_ERR_BADVERSION) { | |
721 | if (fdt_version(blob) < | |
722 | FDT_FIRST_SUPPORTED_VERSION) { | |
723 | printf (" - too old, fdt %d < %d", | |
724 | fdt_version(blob), | |
725 | FDT_FIRST_SUPPORTED_VERSION); | |
726 | } | |
727 | if (fdt_last_comp_version(blob) > | |
728 | FDT_LAST_SUPPORTED_VERSION) { | |
729 | printf (" - too new, fdt %d > %d", | |
730 | fdt_version(blob), | |
731 | FDT_LAST_SUPPORTED_VERSION); | |
732 | } | |
733 | } | |
734 | printf("\n"); | |
735 | *blobp = NULL; | |
736 | return 0; | |
737 | } | |
738 | return 1; | |
739 | } | |
740 | ||
741 | /****************************************************************************/ | |
742 | ||
743 | /* | |
744 | * Parse the user's input, partially heuristic. Valid formats: | |
745 | * <0x00112233 4 05> - an array of cells. Numbers follow standard | |
746 | * C conventions. | |
747 | * [00 11 22 .. nn] - byte stream | |
748 | * "string" - If the the value doesn't start with "<" or "[", it is | |
749 | * treated as a string. Note that the quotes are | |
750 | * stripped by the parser before we get the string. | |
751 | * newval: An array of strings containing the new property as specified | |
752 | * on the command line | |
753 | * count: The number of strings in the array | |
754 | * data: A bytestream to be placed in the property | |
755 | * len: The length of the resulting bytestream | |
756 | */ | |
757 | static int fdt_parse_prop(char * const *newval, int count, char *data, int *len) | |
758 | { | |
759 | char *cp; /* temporary char pointer */ | |
760 | char *newp; /* temporary newval char pointer */ | |
761 | unsigned long tmp; /* holds converted values */ | |
762 | int stridx = 0; | |
763 | ||
764 | *len = 0; | |
765 | newp = newval[0]; | |
766 | ||
767 | /* An array of cells */ | |
768 | if (*newp == '<') { | |
769 | newp++; | |
770 | while ((*newp != '>') && (stridx < count)) { | |
771 | /* | |
772 | * Keep searching until we find that last ">" | |
773 | * That way users don't have to escape the spaces | |
774 | */ | |
775 | if (*newp == '\0') { | |
776 | newp = newval[++stridx]; | |
777 | continue; | |
778 | } | |
779 | ||
780 | cp = newp; | |
781 | tmp = simple_strtoul(cp, &newp, 0); | |
782 | if (*cp != '?') | |
783 | *(fdt32_t *)data = cpu_to_fdt32(tmp); | |
784 | else | |
785 | newp++; | |
786 | ||
787 | data += 4; | |
788 | *len += 4; | |
789 | ||
790 | /* If the ptr didn't advance, something went wrong */ | |
791 | if ((newp - cp) <= 0) { | |
792 | printf("Sorry, I could not convert \"%s\"\n", | |
793 | cp); | |
794 | return 1; | |
795 | } | |
796 | ||
797 | while (*newp == ' ') | |
798 | newp++; | |
799 | } | |
800 | ||
801 | if (*newp != '>') { | |
802 | printf("Unexpected character '%c'\n", *newp); | |
803 | return 1; | |
804 | } | |
805 | } else if (*newp == '[') { | |
806 | /* | |
807 | * Byte stream. Convert the values. | |
808 | */ | |
809 | newp++; | |
810 | while ((stridx < count) && (*newp != ']')) { | |
811 | while (*newp == ' ') | |
812 | newp++; | |
813 | if (*newp == '\0') { | |
814 | newp = newval[++stridx]; | |
815 | continue; | |
816 | } | |
817 | if (!isxdigit(*newp)) | |
818 | break; | |
819 | tmp = simple_strtoul(newp, &newp, 16); | |
820 | *data++ = tmp & 0xFF; | |
821 | *len = *len + 1; | |
822 | } | |
823 | if (*newp != ']') { | |
824 | printf("Unexpected character '%c'\n", *newp); | |
825 | return 1; | |
826 | } | |
827 | } else { | |
828 | /* | |
829 | * Assume it is one or more strings. Copy it into our | |
830 | * data area for convenience (including the | |
831 | * terminating '\0's). | |
832 | */ | |
833 | while (stridx < count) { | |
834 | size_t length = strlen(newp) + 1; | |
835 | strcpy(data, newp); | |
836 | data += length; | |
837 | *len += length; | |
838 | newp = newval[++stridx]; | |
839 | } | |
840 | } | |
841 | return 0; | |
842 | } | |
843 | ||
844 | /****************************************************************************/ | |
845 | ||
846 | /* | |
847 | * Heuristic to guess if this is a string or concatenated strings. | |
848 | */ | |
849 | ||
850 | static int is_printable_string(const void *data, int len) | |
851 | { | |
852 | const char *s = data; | |
853 | ||
854 | /* zero length is not */ | |
855 | if (len == 0) | |
856 | return 0; | |
857 | ||
858 | /* must terminate with zero or '\n' */ | |
859 | if (s[len - 1] != '\0' && s[len - 1] != '\n') | |
860 | return 0; | |
861 | ||
862 | /* printable or a null byte (concatenated strings) */ | |
863 | while (((*s == '\0') || isprint(*s) || isspace(*s)) && (len > 0)) { | |
864 | /* | |
865 | * If we see a null, there are three possibilities: | |
866 | * 1) If len == 1, it is the end of the string, printable | |
867 | * 2) Next character also a null, not printable. | |
868 | * 3) Next character not a null, continue to check. | |
869 | */ | |
870 | if (s[0] == '\0') { | |
871 | if (len == 1) | |
872 | return 1; | |
873 | if (s[1] == '\0') | |
874 | return 0; | |
875 | } | |
876 | s++; | |
877 | len--; | |
878 | } | |
879 | ||
880 | /* Not the null termination, or not done yet: not printable */ | |
881 | if (*s != '\0' || (len != 0)) | |
882 | return 0; | |
883 | ||
884 | return 1; | |
885 | } | |
886 | ||
887 | ||
888 | /* | |
889 | * Print the property in the best format, a heuristic guess. Print as | |
890 | * a string, concatenated strings, a byte, word, double word, or (if all | |
891 | * else fails) it is printed as a stream of bytes. | |
892 | */ | |
893 | static void print_data(const void *data, int len) | |
894 | { | |
895 | int j; | |
896 | ||
897 | /* no data, don't print */ | |
898 | if (len == 0) | |
899 | return; | |
900 | ||
901 | /* | |
902 | * It is a string, but it may have multiple strings (embedded '\0's). | |
903 | */ | |
904 | if (is_printable_string(data, len)) { | |
905 | puts("\""); | |
906 | j = 0; | |
907 | while (j < len) { | |
908 | if (j > 0) | |
909 | puts("\", \""); | |
910 | puts(data); | |
911 | j += strlen(data) + 1; | |
912 | data += strlen(data) + 1; | |
913 | } | |
914 | puts("\""); | |
915 | return; | |
916 | } | |
917 | ||
918 | if ((len %4) == 0) { | |
919 | if (len > CMD_FDT_MAX_DUMP) | |
920 | printf("* 0x%p [0x%08x]", data, len); | |
921 | else { | |
922 | const __be32 *p; | |
923 | ||
924 | printf("<"); | |
925 | for (j = 0, p = data; j < len/4; j++) | |
926 | printf("0x%08x%s", fdt32_to_cpu(p[j]), | |
927 | j < (len/4 - 1) ? " " : ""); | |
928 | printf(">"); | |
929 | } | |
930 | } else { /* anything else... hexdump */ | |
931 | if (len > CMD_FDT_MAX_DUMP) | |
932 | printf("* 0x%p [0x%08x]", data, len); | |
933 | else { | |
934 | const u8 *s; | |
935 | ||
936 | printf("["); | |
937 | for (j = 0, s = data; j < len; j++) | |
938 | printf("%02x%s", s[j], j < len - 1 ? " " : ""); | |
939 | printf("]"); | |
940 | } | |
941 | } | |
942 | } | |
943 | ||
944 | /****************************************************************************/ | |
945 | ||
946 | /* | |
947 | * Recursively print (a portion of) the working_fdt. The depth parameter | |
948 | * determines how deeply nested the fdt is printed. | |
949 | */ | |
950 | static int fdt_print(const char *pathp, char *prop, int depth) | |
951 | { | |
952 | static char tabs[MAX_LEVEL+1] = | |
953 | "\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t" | |
954 | "\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t"; | |
955 | const void *nodep; /* property node pointer */ | |
956 | int nodeoffset; /* node offset from libfdt */ | |
957 | int nextoffset; /* next node offset from libfdt */ | |
958 | uint32_t tag; /* tag */ | |
959 | int len; /* length of the property */ | |
960 | int level = 0; /* keep track of nesting level */ | |
961 | const struct fdt_property *fdt_prop; | |
962 | ||
963 | nodeoffset = fdt_path_offset (working_fdt, pathp); | |
964 | if (nodeoffset < 0) { | |
965 | /* | |
966 | * Not found or something else bad happened. | |
967 | */ | |
968 | printf ("libfdt fdt_path_offset() returned %s\n", | |
969 | fdt_strerror(nodeoffset)); | |
970 | return 1; | |
971 | } | |
972 | /* | |
973 | * The user passed in a property as well as node path. | |
974 | * Print only the given property and then return. | |
975 | */ | |
976 | if (prop) { | |
977 | nodep = fdt_getprop (working_fdt, nodeoffset, prop, &len); | |
978 | if (len == 0) { | |
979 | /* no property value */ | |
980 | printf("%s %s\n", pathp, prop); | |
981 | return 0; | |
982 | } else if (nodep && len > 0) { | |
983 | printf("%s = ", prop); | |
984 | print_data (nodep, len); | |
985 | printf("\n"); | |
986 | return 0; | |
987 | } else { | |
988 | printf ("libfdt fdt_getprop(): %s\n", | |
989 | fdt_strerror(len)); | |
990 | return 1; | |
991 | } | |
992 | } | |
993 | ||
994 | /* | |
995 | * The user passed in a node path and no property, | |
996 | * print the node and all subnodes. | |
997 | */ | |
998 | while(level >= 0) { | |
999 | tag = fdt_next_tag(working_fdt, nodeoffset, &nextoffset); | |
1000 | switch(tag) { | |
1001 | case FDT_BEGIN_NODE: | |
1002 | pathp = fdt_get_name(working_fdt, nodeoffset, NULL); | |
1003 | if (level <= depth) { | |
1004 | if (pathp == NULL) | |
1005 | pathp = "/* NULL pointer error */"; | |
1006 | if (*pathp == '\0') | |
1007 | pathp = "/"; /* root is nameless */ | |
1008 | printf("%s%s {\n", | |
1009 | &tabs[MAX_LEVEL - level], pathp); | |
1010 | } | |
1011 | level++; | |
1012 | if (level >= MAX_LEVEL) { | |
1013 | printf("Nested too deep, aborting.\n"); | |
1014 | return 1; | |
1015 | } | |
1016 | break; | |
1017 | case FDT_END_NODE: | |
1018 | level--; | |
1019 | if (level <= depth) | |
1020 | printf("%s};\n", &tabs[MAX_LEVEL - level]); | |
1021 | if (level == 0) { | |
1022 | level = -1; /* exit the loop */ | |
1023 | } | |
1024 | break; | |
1025 | case FDT_PROP: | |
1026 | fdt_prop = fdt_offset_ptr(working_fdt, nodeoffset, | |
1027 | sizeof(*fdt_prop)); | |
1028 | pathp = fdt_string(working_fdt, | |
1029 | fdt32_to_cpu(fdt_prop->nameoff)); | |
1030 | len = fdt32_to_cpu(fdt_prop->len); | |
1031 | nodep = fdt_prop->data; | |
1032 | if (len < 0) { | |
1033 | printf ("libfdt fdt_getprop(): %s\n", | |
1034 | fdt_strerror(len)); | |
1035 | return 1; | |
1036 | } else if (len == 0) { | |
1037 | /* the property has no value */ | |
1038 | if (level <= depth) | |
1039 | printf("%s%s;\n", | |
1040 | &tabs[MAX_LEVEL - level], | |
1041 | pathp); | |
1042 | } else { | |
1043 | if (level <= depth) { | |
1044 | printf("%s%s = ", | |
1045 | &tabs[MAX_LEVEL - level], | |
1046 | pathp); | |
1047 | print_data (nodep, len); | |
1048 | printf(";\n"); | |
1049 | } | |
1050 | } | |
1051 | break; | |
1052 | case FDT_NOP: | |
1053 | printf("%s/* NOP */\n", &tabs[MAX_LEVEL - level]); | |
1054 | break; | |
1055 | case FDT_END: | |
1056 | return 1; | |
1057 | default: | |
1058 | if (level <= depth) | |
1059 | printf("Unknown tag 0x%08X\n", tag); | |
1060 | return 1; | |
1061 | } | |
1062 | nodeoffset = nextoffset; | |
1063 | } | |
1064 | return 0; | |
1065 | } | |
1066 | ||
1067 | /********************************************************************/ | |
1068 | #ifdef CONFIG_SYS_LONGHELP | |
1069 | static char fdt_help_text[] = | |
1070 | "addr [-c] <addr> [<length>] - Set the [control] fdt location to <addr>\n" | |
1071 | #ifdef CONFIG_OF_LIBFDT_OVERLAY | |
1072 | "fdt apply <addr> - Apply overlay to the DT\n" | |
1073 | #endif | |
1074 | #ifdef CONFIG_OF_BOARD_SETUP | |
1075 | "fdt boardsetup - Do board-specific set up\n" | |
1076 | #endif | |
1077 | #ifdef CONFIG_OF_SYSTEM_SETUP | |
1078 | "fdt systemsetup - Do system-specific set up\n" | |
1079 | #endif | |
1080 | "fdt move <fdt> <newaddr> <length> - Copy the fdt to <addr> and make it active\n" | |
1081 | "fdt resize [<extrasize>] - Resize fdt to size + padding to 4k addr + some optional <extrasize> if needed\n" | |
1082 | "fdt print <path> [<prop>] - Recursive print starting at <path>\n" | |
1083 | "fdt list <path> [<prop>] - Print one level starting at <path>\n" | |
1084 | "fdt get value <var> <path> <prop> - Get <property> and store in <var>\n" | |
1085 | "fdt get name <var> <path> <index> - Get name of node <index> and store in <var>\n" | |
1086 | "fdt get addr <var> <path> <prop> - Get start address of <property> and store in <var>\n" | |
1087 | "fdt get size <var> <path> [<prop>] - Get size of [<property>] or num nodes and store in <var>\n" | |
1088 | "fdt set <path> <prop> [<val>] - Set <property> [to <val>]\n" | |
1089 | "fdt mknode <path> <node> - Create a new node after <path>\n" | |
1090 | "fdt rm <path> [<prop>] - Delete the node or <property>\n" | |
1091 | "fdt header - Display header info\n" | |
1092 | "fdt bootcpu <id> - Set boot cpuid\n" | |
1093 | "fdt memory <addr> <size> - Add/Update memory node\n" | |
1094 | "fdt rsvmem print - Show current mem reserves\n" | |
1095 | "fdt rsvmem add <addr> <size> - Add a mem reserve\n" | |
1096 | "fdt rsvmem delete <index> - Delete a mem reserves\n" | |
1097 | "fdt chosen [<start> <end>] - Add/update the /chosen branch in the tree\n" | |
1098 | " <start>/<end> - initrd start/end addr\n" | |
1099 | #if defined(CONFIG_FIT_SIGNATURE) | |
1100 | "fdt checksign [<addr>] - check FIT signature\n" | |
1101 | " <start> - addr of key blob\n" | |
1102 | " default gd->fdt_blob\n" | |
1103 | #endif | |
1104 | "NOTE: Dereference aliases by omitting the leading '/', " | |
1105 | "e.g. fdt print ethernet0."; | |
1106 | #endif | |
1107 | ||
1108 | U_BOOT_CMD( | |
1109 | fdt, 255, 0, do_fdt, | |
1110 | "flattened device tree utility commands", fdt_help_text | |
1111 | ); |