3 my $dtc_old = "/home/jdl/FSL/dtc/dtc-old";
4 my $dtc_new = "/home/jdl/FSL/dtc/dtc-new";
6 my $basic_options = "-b 0 -f -I dts -O dtb";
8 my $linux_dts_dir = "/usr/src/linux-2.6/arch/powerpc/boot/dts";
10 # Yeah, sure, we could, like, readdir() this instead...
40 "mpc866ads", # Feh. Bad node references...
49 foreach my $board (@boards) {
50 my $dts_file = "$linux_dts_dir/$board.dts";
52 my $old_dtb_file = "/tmp/$board.dtb.old";
53 my $new_dtb_file = "/tmp/$board.dtb.new";
55 my $cmd_old = "$dtc_old $basic_options -o $old_dtb_file $dts_file";
56 my $cmd_new = "$dtc_new $basic_options -o $new_dtb_file $dts_file";
57 my $cmd_cmp = "cmp $old_dtb_file $new_dtb_file";
59 print "------------------------------------------------\n";
60 print "OLD: $cmd_old\n";
61 unlink($old_dtb_file) if (-f $old_dtb_file);
62 system("$cmd_old >& /dev/null");
65 print " FAILED to run old DTC on $board\n";
68 print "NEW: $cmd_new\n";
69 unlink($new_dtb_file) if (-f $new_dtb_file);
70 system("$cmd_new >& /dev/null");
73 print " FAILED to run new DTC on $board\n";
76 if (-f $old_dtb_file && -f $new_dtb_file) {
77 print "CMP: $cmd_cmp\n";
81 print " FAILED $board\n";
84 printf " FAILED: Missing dtb file\n";