zcy
/
pluto_hdl_adi
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

scripts/adi_pd_intel: Delete noisy print outs

main
Istvan Csomortani 2020-10-16 12:41:31 +03:00 committed by István Csomortáni
parent 66672932d5
commit d6b23d5149
1 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
projects/scripts/adi_pd_intel.tcl
View File

@ -28,7 +28,6 @@ proc checksum8bit {hex} {
if { ($i+1) % 2 == 0} { if { ($i+1) % 2 == 0} {
append byte [string index $hex $i]; append byte [string index $hex $i];
set chks [expr $chks + "0x$byte"]; set chks [expr $chks + "0x$byte"];
puts $chks;
} else { } else {
set byte [string index $hex $i]; set byte [string index $hex $i];
} }
@ -50,10 +49,8 @@ proc hexstr_flip {str} {
set byte {}; set byte {};
for {set i 0} {$i < [string length $str]} {incr i} { for {set i 0} {$i < [string length $str]} {incr i} {
if {[expr ($i+1) % 8] == 0} { if {[expr ($i+1) % 8] == 0} {
puts "ti: $i";
append line [string index $str $i]; append line [string index $str $i];
set line_d $line; set line_d $line;
puts "line_d $line_d"
set fline {}; set fline {};
for {set j 0} {$j < [string length $line]} {incr j} { for {set j 0} {$j < [string length $line]} {incr j} {
if {[expr ($j+1) % 2] == 0} { if {[expr ($j+1) % 2] == 0} {
@ -65,9 +62,7 @@ proc hexstr_flip {str} {
append fstr [rev_by_string $fline]; append fstr [rev_by_string $fline];
set line {}; set line {};
} else { } else {
puts "fi: $i";
append line [string index $str $i]; append line [string index $str $i];
puts "line: $line";
} }
}; };
return $fstr; return $fstr;
@ -98,13 +93,11 @@ proc rev_by_string {str} {
proc sysid_gen_sys_init_file {{custom_string {}}} { proc sysid_gen_sys_init_file {{custom_string {}}} {
global project_name; global project_name;
puts "project_name: $project_name";
if {[catch {exec git rev-parse HEAD} gitsha_string] != 0} { if {[catch {exec git rev-parse HEAD} gitsha_string] != 0} {
set gitsha_string 0; set gitsha_string 0;
} }
set gitsha_hex [hexstr_flip [stringtohex $gitsha_string 44]]; set gitsha_hex [hexstr_flip [stringtohex $gitsha_string 44]];
puts "gitsha_hex $gitsha_hex"
set git_clean_string "f"; set git_clean_string "f";
if {$gitsha_string != 0} { if {$gitsha_string != 0} {
@ -115,15 +108,11 @@ proc sysid_gen_sys_init_file {{custom_string {}}} {
} }
} }
set git_clean_hex [hexstr_flip [stringtohex $git_clean_string 4]]; set git_clean_hex [hexstr_flip [stringtohex $git_clean_string 4]];
puts "git_clean_hex $git_clean_hex"
set vadj_check_string "vadj"; set vadj_check_string "vadj";
set vadj_check_hex [hexstr_flip [stringtohex $vadj_check_string 4]]; set vadj_check_hex [hexstr_flip [stringtohex $vadj_check_string 4]];
puts "vadj_check_hex $vadj_check_hex"
set thetime [clock seconds]; set thetime [clock seconds];
set timedate_hex [hexstr_flip [stringtohex $thetime 12]]; set timedate_hex [hexstr_flip [stringtohex $thetime 12]];
puts "timedate_hex $timedate_hex"
set verh_hex {}; set verh_hex {};
set verh_size 448; set verh_size 448;
@ -138,13 +127,8 @@ proc sysid_gen_sys_init_file {{custom_string {}}} {
set comh_ver_hex "00000001"; set comh_ver_hex "00000001";
set projname_hex [hexstr_flip [stringtohex [lindex [split $project_name _] 0] 32]]; set projname_hex [hexstr_flip [stringtohex [lindex [split $project_name _] 0] 32]];
puts "projname_hex $projname_hex"
set boardname_hex [hexstr_flip [stringtohex [lindex [split $project_name) _] 1] 32]]; set boardname_hex [hexstr_flip [stringtohex [lindex [split $project_name) _] 1] 32]];
puts "boardname_hex $boardname_hex"
set custom_hex [hexstr_flip [stringtohex $custom_string 64]]; set custom_hex [hexstr_flip [stringtohex $custom_string 64]];
puts "custom_hex $custom_hex"
set pr_offset "00000000"; set pr_offset "00000000";