URL https://opencores.org/ocsvn/scan_based_serial_communication/scan_based_serial_communication/trunk

Subversion Repositories scan_based_serial_communication

[/] [scan_based_serial_communication/] [trunk/] [scan.perl.v] - Diff between revs 11 and 13

Rev 11	Rev 13
Line 142...	Line 142...

`my $data_begin = $addr_end + 1;`	`my $data_begin = $addr_end + 1;`
`my $data_end = $data_begin + $data_bits - 1;`	`my $data_end = $data_begin + $data_bits - 1;`

`if ($signal_list[$i]{addr_bits} == 0) {`	`if ($signal_list[$i]{addr_bits} == 0) {`
	`if ($signal_list[$i]{name} ne $scan_reset_name) {`
`print " $name = scan_slave[$scan_reset_bit] ? ${size}'d${reset} : scan_slave[$size_end:$size_begin];\n";`	`print " $name = scan_slave[$scan_reset_bit] ? ${size}'d${reset} : scan_slave[$size_end:$size_begin];\n";`
`} else {`	`} else {`
	`print " $name = scan_slave[$scan_reset_bit];\n";`
	`}`
	`} else {`
`if ($scan_reset_exists) {`	`if ($scan_reset_exists) {`
`print " if (scan_slave[$scan_reset_bit]) ${name} = ${size}'d${reset}; else\n";`	`print " if (scan_slave[$scan_reset_bit]) ${name} = ${size}'d${reset}; else\n";`
`}`	`}`
`print " case (scan_slave[$addr_end:$addr_begin])\n";`	`print " case (scan_slave[$addr_end:$addr_begin])\n";`
`for (my $a = 0; ($a+1-1)*$data_bits < $size; $a++) {`	`for (my $a = 0; ($a+1-1)*$data_bits < $size; $a++) {`