1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27#include <common.h>
28#include <command.h>
29#include <linux/ctype.h>
30#include <linux/types.h>
31#include <asm/global_data.h>
32#include <fdt.h>
33#include <libfdt.h>
34#include <fdt_support.h>
35
36#define MAX_LEVEL 32
37#define SCRATCHPAD 1024
38
39
40
41
42DECLARE_GLOBAL_DATA_PTR;
43
44static int fdt_valid(void);
45static int fdt_parse_prop(char *const*newval, int count, char *data, int *len);
46static int fdt_print(const char *pathp, char *prop, int depth);
47
48
49
50
51struct fdt_header *working_fdt;
52
53void set_working_fdt_addr(void *addr)
54{
55 char buf[17];
56
57 working_fdt = addr;
58
59 sprintf(buf, "%lx", (unsigned long)addr);
60 setenv("fdtaddr", buf);
61}
62
63
64
65
66int do_fdt (cmd_tbl_t * cmdtp, int flag, int argc, char * const argv[])
67{
68 if (argc < 2)
69 return cmd_usage(cmdtp);
70
71
72
73
74 if (argv[1][0] == 'a') {
75 unsigned long addr;
76
77
78
79 if (argc == 2) {
80 if (!fdt_valid()) {
81 return 1;
82 }
83 printf("The address of the fdt is %p\n", working_fdt);
84 return 0;
85 }
86
87 addr = simple_strtoul(argv[2], NULL, 16);
88 set_working_fdt_addr((void *)addr);
89
90 if (!fdt_valid()) {
91 return 1;
92 }
93
94 if (argc >= 4) {
95 int len;
96 int err;
97
98
99
100 len = simple_strtoul(argv[3], NULL, 16);
101 if (len < fdt_totalsize(working_fdt)) {
102 printf ("New length %d < existing length %d, "
103 "ignoring.\n",
104 len, fdt_totalsize(working_fdt));
105 } else {
106
107
108
109 err = fdt_open_into(working_fdt, working_fdt, len);
110 if (err != 0) {
111 printf ("libfdt fdt_open_into(): %s\n",
112 fdt_strerror(err));
113 }
114 }
115 }
116
117
118
119
120 } else if (strncmp(argv[1], "mo", 2) == 0) {
121 struct fdt_header *newaddr;
122 int len;
123 int err;
124
125 if (argc < 4)
126 return cmd_usage(cmdtp);
127
128
129
130
131 working_fdt = (struct fdt_header *)simple_strtoul(argv[2], NULL, 16);
132 if (!fdt_valid()) {
133 return 1;
134 }
135
136 newaddr = (struct fdt_header *)simple_strtoul(argv[3],NULL,16);
137
138
139
140
141
142 if (argc <= 4) {
143 len = fdt_totalsize(working_fdt);
144 } else {
145 len = simple_strtoul(argv[4], NULL, 16);
146 if (len < fdt_totalsize(working_fdt)) {
147 printf ("New length 0x%X < existing length "
148 "0x%X, aborting.\n",
149 len, fdt_totalsize(working_fdt));
150 return 1;
151 }
152 }
153
154
155
156
157 err = fdt_open_into(working_fdt, newaddr, len);
158 if (err != 0) {
159 printf ("libfdt fdt_open_into(): %s\n",
160 fdt_strerror(err));
161 return 1;
162 }
163 working_fdt = newaddr;
164
165
166
167
168 } else if (strncmp(argv[1], "mk", 2) == 0) {
169 char *pathp;
170 char *nodep;
171 int nodeoffset;
172 int err;
173
174
175
176
177 if (argc < 4)
178 return cmd_usage(cmdtp);
179
180 pathp = argv[2];
181 nodep = argv[3];
182
183 nodeoffset = fdt_path_offset (working_fdt, pathp);
184 if (nodeoffset < 0) {
185
186
187
188 printf ("libfdt fdt_path_offset() returned %s\n",
189 fdt_strerror(nodeoffset));
190 return 1;
191 }
192 err = fdt_add_subnode(working_fdt, nodeoffset, nodep);
193 if (err < 0) {
194 printf ("libfdt fdt_add_subnode(): %s\n",
195 fdt_strerror(err));
196 return 1;
197 }
198
199
200
201
202 } else if (argv[1][0] == 's') {
203 char *pathp;
204 char *prop;
205 int nodeoffset;
206 static char data[SCRATCHPAD];
207 int len;
208 int ret;
209
210
211
212
213 if (argc < 4)
214 return cmd_usage(cmdtp);
215
216 pathp = argv[2];
217 prop = argv[3];
218 if (argc == 4) {
219 len = 0;
220 } else {
221 ret = fdt_parse_prop(&argv[4], argc - 4, data, &len);
222 if (ret != 0)
223 return ret;
224 }
225
226 nodeoffset = fdt_path_offset (working_fdt, pathp);
227 if (nodeoffset < 0) {
228
229
230
231 printf ("libfdt fdt_path_offset() returned %s\n",
232 fdt_strerror(nodeoffset));
233 return 1;
234 }
235
236 ret = fdt_setprop(working_fdt, nodeoffset, prop, data, len);
237 if (ret < 0) {
238 printf ("libfdt fdt_setprop(): %s\n", fdt_strerror(ret));
239 return 1;
240 }
241
242
243
244
245 } else if ((argv[1][0] == 'p') || (argv[1][0] == 'l')) {
246 int depth = MAX_LEVEL;
247 char *pathp;
248 char *prop;
249 int ret;
250 static char root[2] = "/";
251
252
253
254
255 if (argv[1][0] == 'l') {
256 depth = 1;
257 }
258
259
260
261
262
263 if (argc == 2)
264 pathp = root;
265 else
266 pathp = argv[2];
267 if (argc > 3)
268 prop = argv[3];
269 else
270 prop = NULL;
271
272 ret = fdt_print(pathp, prop, depth);
273 if (ret != 0)
274 return ret;
275
276
277
278
279 } else if (strncmp(argv[1], "rm", 2) == 0) {
280 int nodeoffset;
281 int err;
282
283
284
285
286
287 nodeoffset = fdt_path_offset (working_fdt, argv[2]);
288 if (nodeoffset < 0) {
289
290
291
292 printf ("libfdt fdt_path_offset() returned %s\n",
293 fdt_strerror(nodeoffset));
294 return 1;
295 }
296
297
298
299
300 if (argc > 3) {
301 err = fdt_delprop(working_fdt, nodeoffset, argv[3]);
302 if (err < 0) {
303 printf("libfdt fdt_delprop(): %s\n",
304 fdt_strerror(err));
305 return err;
306 }
307 } else {
308 err = fdt_del_node(working_fdt, nodeoffset);
309 if (err < 0) {
310 printf("libfdt fdt_del_node(): %s\n",
311 fdt_strerror(err));
312 return err;
313 }
314 }
315
316
317
318
319 } else if (argv[1][0] == 'h') {
320 u32 version = fdt_version(working_fdt);
321 printf("magic:\t\t\t0x%x\n", fdt_magic(working_fdt));
322 printf("totalsize:\t\t0x%x (%d)\n", fdt_totalsize(working_fdt),
323 fdt_totalsize(working_fdt));
324 printf("off_dt_struct:\t\t0x%x\n",
325 fdt_off_dt_struct(working_fdt));
326 printf("off_dt_strings:\t\t0x%x\n",
327 fdt_off_dt_strings(working_fdt));
328 printf("off_mem_rsvmap:\t\t0x%x\n",
329 fdt_off_mem_rsvmap(working_fdt));
330 printf("version:\t\t%d\n", version);
331 printf("last_comp_version:\t%d\n",
332 fdt_last_comp_version(working_fdt));
333 if (version >= 2)
334 printf("boot_cpuid_phys:\t0x%x\n",
335 fdt_boot_cpuid_phys(working_fdt));
336 if (version >= 3)
337 printf("size_dt_strings:\t0x%x\n",
338 fdt_size_dt_strings(working_fdt));
339 if (version >= 17)
340 printf("size_dt_struct:\t\t0x%x\n",
341 fdt_size_dt_struct(working_fdt));
342 printf("number mem_rsv:\t\t0x%x\n",
343 fdt_num_mem_rsv(working_fdt));
344 printf("\n");
345
346
347
348
349 } else if (strncmp(argv[1], "boo", 3) == 0) {
350 unsigned long tmp = simple_strtoul(argv[2], NULL, 16);
351 fdt_set_boot_cpuid_phys(working_fdt, tmp);
352
353
354
355
356 } else if (strncmp(argv[1], "me", 2) == 0) {
357 uint64_t addr, size;
358 int err;
359 addr = simple_strtoull(argv[2], NULL, 16);
360 size = simple_strtoull(argv[3], NULL, 16);
361 err = fdt_fixup_memory(working_fdt, addr, size);
362 if (err < 0)
363 return err;
364
365
366
367
368 } else if (strncmp(argv[1], "rs", 2) == 0) {
369 if (argv[2][0] == 'p') {
370 uint64_t addr, size;
371 int total = fdt_num_mem_rsv(working_fdt);
372 int j, err;
373 printf("index\t\t start\t\t size\n");
374 printf("-------------------------------"
375 "-----------------\n");
376 for (j = 0; j < total; j++) {
377 err = fdt_get_mem_rsv(working_fdt, j, &addr, &size);
378 if (err < 0) {
379 printf("libfdt fdt_get_mem_rsv(): %s\n",
380 fdt_strerror(err));
381 return err;
382 }
383 printf(" %x\t%08x%08x\t%08x%08x\n", j,
384 (u32)(addr >> 32),
385 (u32)(addr & 0xffffffff),
386 (u32)(size >> 32),
387 (u32)(size & 0xffffffff));
388 }
389 } else if (argv[2][0] == 'a') {
390 uint64_t addr, size;
391 int err;
392 addr = simple_strtoull(argv[3], NULL, 16);
393 size = simple_strtoull(argv[4], NULL, 16);
394 err = fdt_add_mem_rsv(working_fdt, addr, size);
395
396 if (err < 0) {
397 printf("libfdt fdt_add_mem_rsv(): %s\n",
398 fdt_strerror(err));
399 return err;
400 }
401 } else if (argv[2][0] == 'd') {
402 unsigned long idx = simple_strtoul(argv[3], NULL, 16);
403 int err = fdt_del_mem_rsv(working_fdt, idx);
404
405 if (err < 0) {
406 printf("libfdt fdt_del_mem_rsv(): %s\n",
407 fdt_strerror(err));
408 return err;
409 }
410 } else {
411
412 return cmd_usage(cmdtp);
413 }
414 }
415#ifdef CONFIG_OF_BOARD_SETUP
416
417 else if (strncmp(argv[1], "boa", 3) == 0)
418 ft_board_setup(working_fdt, gd->bd);
419#endif
420
421 else if (argv[1][0] == 'c') {
422 unsigned long initrd_start = 0, initrd_end = 0;
423
424 if ((argc != 2) && (argc != 4))
425 return cmd_usage(cmdtp);
426
427 if (argc == 4) {
428 initrd_start = simple_strtoul(argv[2], NULL, 16);
429 initrd_end = simple_strtoul(argv[3], NULL, 16);
430 }
431
432 fdt_chosen(working_fdt, 1);
433 fdt_initrd(working_fdt, initrd_start, initrd_end, 1);
434 }
435
436 else if (strncmp(argv[1], "re", 2) == 0) {
437 fdt_resize(working_fdt);
438 }
439 else {
440
441 return cmd_usage(cmdtp);
442 }
443
444 return 0;
445}
446
447
448
449static int fdt_valid(void)
450{
451 int err;
452
453 if (working_fdt == NULL) {
454 printf ("The address of the fdt is invalid (NULL).\n");
455 return 0;
456 }
457
458 err = fdt_check_header(working_fdt);
459 if (err == 0)
460 return 1;
461
462 if (err < 0) {
463 printf("libfdt fdt_check_header(): %s", fdt_strerror(err));
464
465
466
467 if (err == -FDT_ERR_BADVERSION) {
468 if (fdt_version(working_fdt) <
469 FDT_FIRST_SUPPORTED_VERSION) {
470 printf (" - too old, fdt %d < %d",
471 fdt_version(working_fdt),
472 FDT_FIRST_SUPPORTED_VERSION);
473 working_fdt = NULL;
474 }
475 if (fdt_last_comp_version(working_fdt) >
476 FDT_LAST_SUPPORTED_VERSION) {
477 printf (" - too new, fdt %d > %d",
478 fdt_version(working_fdt),
479 FDT_LAST_SUPPORTED_VERSION);
480 working_fdt = NULL;
481 }
482 return 0;
483 }
484 printf("\n");
485 return 0;
486 }
487 return 1;
488}
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506static int fdt_parse_prop(char * const *newval, int count, char *data, int *len)
507{
508 char *cp;
509 char *newp;
510 unsigned long tmp;
511 int stridx = 0;
512
513 *len = 0;
514 newp = newval[0];
515
516
517 if (*newp == '<') {
518 newp++;
519 while ((*newp != '>') && (stridx < count)) {
520
521
522
523
524 if (*newp == '\0') {
525 newp = newval[++stridx];
526 continue;
527 }
528
529 cp = newp;
530 tmp = simple_strtoul(cp, &newp, 0);
531 *(uint32_t *)data = __cpu_to_be32(tmp);
532 data += 4;
533 *len += 4;
534
535
536 if ((newp - cp) <= 0) {
537 printf("Sorry, I could not convert \"%s\"\n",
538 cp);
539 return 1;
540 }
541
542 while (*newp == ' ')
543 newp++;
544 }
545
546 if (*newp != '>') {
547 printf("Unexpected character '%c'\n", *newp);
548 return 1;
549 }
550 } else if (*newp == '[') {
551
552
553
554 newp++;
555 while ((stridx < count) && (*newp != ']')) {
556 while (*newp == ' ')
557 newp++;
558 if (*newp == '\0') {
559 newp = newval[++stridx];
560 continue;
561 }
562 if (!isxdigit(*newp))
563 break;
564 tmp = simple_strtoul(newp, &newp, 16);
565 *data++ = tmp & 0xFF;
566 *len = *len + 1;
567 }
568 if (*newp != ']') {
569 printf("Unexpected character '%c'\n", *newp);
570 return 1;
571 }
572 } else {
573
574
575
576
577
578 while (stridx < count) {
579 size_t length = strlen(newp) + 1;
580 strcpy(data, newp);
581 data += length;
582 *len += length;
583 newp = newval[++stridx];
584 }
585 }
586 return 0;
587}
588
589
590
591
592
593
594
595static int is_printable_string(const void *data, int len)
596{
597 const char *s = data;
598
599
600 if (len == 0)
601 return 0;
602
603
604 if (s[len - 1] != '\0')
605 return 0;
606
607
608 while (((*s == '\0') || isprint(*s)) && (len > 0)) {
609
610
611
612
613
614
615 if (s[0] == '\0') {
616 if (len == 1)
617 return 1;
618 if (s[1] == '\0')
619 return 0;
620 }
621 s++;
622 len--;
623 }
624
625
626 if (*s != '\0' || (len != 0))
627 return 0;
628
629 return 1;
630}
631
632
633
634
635
636
637
638static void print_data(const void *data, int len)
639{
640 int j;
641
642
643 if (len == 0)
644 return;
645
646
647
648
649 if (is_printable_string(data, len)) {
650 puts("\"");
651 j = 0;
652 while (j < len) {
653 if (j > 0)
654 puts("\", \"");
655 puts(data);
656 j += strlen(data) + 1;
657 data += strlen(data) + 1;
658 }
659 puts("\"");
660 return;
661 }
662
663 if ((len %4) == 0) {
664 const u32 *p;
665
666 printf("<");
667 for (j = 0, p = data; j < len/4; j ++)
668 printf("0x%x%s", fdt32_to_cpu(p[j]), j < (len/4 - 1) ? " " : "");
669 printf(">");
670 } else {
671 const u8 *s;
672
673 printf("[");
674 for (j = 0, s = data; j < len; j++)
675 printf("%02x%s", s[j], j < len - 1 ? " " : "");
676 printf("]");
677 }
678}
679
680
681
682
683
684
685
686static int fdt_print(const char *pathp, char *prop, int depth)
687{
688 static char tabs[MAX_LEVEL+1] =
689 "\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t"
690 "\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t";
691 const void *nodep;
692 int nodeoffset;
693 int nextoffset;
694 uint32_t tag;
695 int len;
696 int level = 0;
697 const struct fdt_property *fdt_prop;
698
699 nodeoffset = fdt_path_offset (working_fdt, pathp);
700 if (nodeoffset < 0) {
701
702
703
704 printf ("libfdt fdt_path_offset() returned %s\n",
705 fdt_strerror(nodeoffset));
706 return 1;
707 }
708
709
710
711
712 if (prop) {
713 nodep = fdt_getprop (working_fdt, nodeoffset, prop, &len);
714 if (len == 0) {
715
716 printf("%s %s\n", pathp, prop);
717 return 0;
718 } else if (len > 0) {
719 printf("%s = ", prop);
720 print_data (nodep, len);
721 printf("\n");
722 return 0;
723 } else {
724 printf ("libfdt fdt_getprop(): %s\n",
725 fdt_strerror(len));
726 return 1;
727 }
728 }
729
730
731
732
733
734 while(level >= 0) {
735 tag = fdt_next_tag(working_fdt, nodeoffset, &nextoffset);
736 switch(tag) {
737 case FDT_BEGIN_NODE:
738 pathp = fdt_get_name(working_fdt, nodeoffset, NULL);
739 if (level <= depth) {
740 if (pathp == NULL)
741 pathp = "/* NULL pointer error */";
742 if (*pathp == '\0')
743 pathp = "/";
744 printf("%s%s {\n",
745 &tabs[MAX_LEVEL - level], pathp);
746 }
747 level++;
748 if (level >= MAX_LEVEL) {
749 printf("Nested too deep, aborting.\n");
750 return 1;
751 }
752 break;
753 case FDT_END_NODE:
754 level--;
755 if (level <= depth)
756 printf("%s};\n", &tabs[MAX_LEVEL - level]);
757 if (level == 0) {
758 level = -1;
759 }
760 break;
761 case FDT_PROP:
762 fdt_prop = fdt_offset_ptr(working_fdt, nodeoffset,
763 sizeof(*fdt_prop));
764 pathp = fdt_string(working_fdt,
765 fdt32_to_cpu(fdt_prop->nameoff));
766 len = fdt32_to_cpu(fdt_prop->len);
767 nodep = fdt_prop->data;
768 if (len < 0) {
769 printf ("libfdt fdt_getprop(): %s\n",
770 fdt_strerror(len));
771 return 1;
772 } else if (len == 0) {
773
774 if (level <= depth)
775 printf("%s%s;\n",
776 &tabs[MAX_LEVEL - level],
777 pathp);
778 } else {
779 if (level <= depth) {
780 printf("%s%s = ",
781 &tabs[MAX_LEVEL - level],
782 pathp);
783 print_data (nodep, len);
784 printf(";\n");
785 }
786 }
787 break;
788 case FDT_NOP:
789 printf("%s/* NOP */\n", &tabs[MAX_LEVEL - level]);
790 break;
791 case FDT_END:
792 return 1;
793 default:
794 if (level <= depth)
795 printf("Unknown tag 0x%08X\n", tag);
796 return 1;
797 }
798 nodeoffset = nextoffset;
799 }
800 return 0;
801}
802
803
804
805U_BOOT_CMD(
806 fdt, 255, 0, do_fdt,
807 "flattened device tree utility commands",
808 "addr <addr> [<length>] - Set the fdt location to <addr>\n"
809#ifdef CONFIG_OF_BOARD_SETUP
810 "fdt boardsetup - Do board-specific set up\n"
811#endif
812 "fdt move <fdt> <newaddr> <length> - Copy the fdt to <addr> and make it active\n"
813 "fdt resize - Resize fdt to size + padding to 4k addr\n"
814 "fdt print <path> [<prop>] - Recursive print starting at <path>\n"
815 "fdt list <path> [<prop>] - Print one level starting at <path>\n"
816 "fdt set <path> <prop> [<val>] - Set <property> [to <val>]\n"
817 "fdt mknode <path> <node> - Create a new node after <path>\n"
818 "fdt rm <path> [<prop>] - Delete the node or <property>\n"
819 "fdt header - Display header info\n"
820 "fdt bootcpu <id> - Set boot cpuid\n"
821 "fdt memory <addr> <size> - Add/Update memory node\n"
822 "fdt rsvmem print - Show current mem reserves\n"
823 "fdt rsvmem add <addr> <size> - Add a mem reserve\n"
824 "fdt rsvmem delete <index> - Delete a mem reserves\n"
825 "fdt chosen [<start> <end>] - Add/update the /chosen branch in the tree\n"
826 " <start>/<end> - initrd start/end addr\n"
827 "NOTE: Dereference aliases by omiting the leading '/', "
828 "e.g. fdt print ethernet0."
829);
830