-
Notifications
You must be signed in to change notification settings - Fork 42
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Add test for Mailbox JTAG accesses with clock gating
Internal-tag: [#47908]
- Loading branch information
1 parent
8bb19ac
commit b473793
Showing
6 changed files
with
204 additions
and
20 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,54 @@ | ||
| # SPDX-License-Identifier: Apache-2.0 | ||
| # | ||
| # Licensed under the Apache License, Version 2.0 (the "License"); | ||
| # you may not use this file except in compliance with the License. | ||
| # You may obtain a copy of the License at | ||
| # | ||
| # http://www.apache.org/licenses/LICENSE-2.0 | ||
| # | ||
| # Unless required by applicable law or agreed to in writing, software | ||
| # distributed under the License is distributed on an "AS IS" BASIS, | ||
| # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. | ||
| # See the License for the specific language governing permissions and | ||
| # limitations under the License. | ||
| # | ||
| proc compare {x y} { | ||
| puts "'$x' vs. '$y'" | ||
|
|
||
| if {[llength $y] != [llength $y]} { | ||
| puts "length mismatch!" | ||
| return -1 | ||
| } | ||
|
|
||
| for {set i 0} {$i < [llength $x]} {incr i} { | ||
| if {[lindex $x $i] != [lindex $y $i]} { | ||
| puts "item $i mismatch!" | ||
| return -1 | ||
| } | ||
| } | ||
|
|
||
| return 0 | ||
| } | ||
|
|
||
| set STDOUT 0x300300cc | ||
|
|
||
| set mbox_clk_gate_en 0xf2 | ||
| set mbox_lock_debug 0xf9 | ||
| set mbox_unlock_debug 0xfa | ||
|
|
||
| set mbox_lock_mem_addr 0x30020000 | ||
| set mbox_user_mem_addr 0x30020004 | ||
| set mbox_cmd_mem_addr 0x30020008 | ||
| set mbox_dlen_mem_addr 0x3002000C | ||
| set mbox_datain_mem_addr 0x30020010 | ||
| set mbox_dataout_mem_addr 0x30020014 | ||
| set mbox_execute_mem_addr 0x30020018 | ||
| set mbox_status_mem_addr 0x3002001C | ||
| set mbox_unlock_mem_addr 0x30020020 | ||
|
|
||
| set mbox_dlen_dmi_addr 0x50 | ||
| set mbox_dout_dmi_addr 0x51 | ||
| set mbox_status_dmi_addr 0x52 | ||
|
|
||
| set dmstatus_addr 0x11 | ||
|
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,107 @@ | ||
| # SPDX-License-Identifier: Apache-2.0 | ||
| # | ||
| # Licensed under the Apache License, Version 2.0 (the "License"); | ||
| # you may not use this file except in compliance with the License. | ||
| # You may obtain a copy of the License at | ||
| # | ||
| # http://www.apache.org/licenses/LICENSE-2.0 | ||
| # | ||
| # Unless required by applicable law or agreed to in writing, software | ||
| # distributed under the License is distributed on an "AS IS" BASIS, | ||
| # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. | ||
| # See the License for the specific language governing permissions and | ||
| # limitations under the License. | ||
| # | ||
| init | ||
|
|
||
| set script_dir [file dirname [info script]] | ||
| source [file join $script_dir common.tcl] | ||
|
|
||
| array set data { | ||
| 0 0x12345678 | ||
| 1 0xABBACDDC | ||
| 2 0xDEADBEEF | ||
| 3 0xFEEDBABE | ||
| 4 0xBEACCAEB | ||
| } | ||
| set dlen_words [array size data] | ||
| set dlen_bytes [expr {$dlen_words * 4}] | ||
|
|
||
| puts "Read Debug Module Status Register..." | ||
| set val [riscv dmi_read $dmstatus_addr] | ||
| puts "dmstatus: $val" | ||
| if {($val & 0x00000c00) == 0} { | ||
| echo "The hart is halted!" | ||
| shutdown error | ||
| } | ||
| puts "" | ||
|
|
||
| riscv set_mem_access sysbus | ||
| puts "Enable clock gating..." | ||
| write_memory $STDOUT 32 $mbox_clk_gate_en phys | ||
|
|
||
| puts "Set debug security state to locked..." | ||
| write_memory $STDOUT 32 $mbox_lock_debug phys | ||
| puts "" | ||
|
|
||
| puts "Retrieve mailbox lock..." | ||
| set golden {0x0} | ||
| set actual [read_memory $mbox_lock_mem_addr 32 1 phys] | ||
| if {[compare $actual $golden] != 0} { | ||
| shutdown error | ||
| } | ||
| puts "" | ||
|
|
||
| puts "Write few bytes to mailbox..." | ||
| write_memory $mbox_cmd_mem_addr 32 0x12345678 phys | ||
| write_memory $mbox_dlen_mem_addr 32 $dlen_bytes phys | ||
| for {set i 0} {$i < $dlen_words} {incr i} { | ||
| write_memory $mbox_datain_mem_addr 32 $data($i) phys | ||
| } | ||
| write_memory $mbox_execute_mem_addr 32 1 phys | ||
| puts "" | ||
|
|
||
| puts "Read mailbox status..." | ||
| set golden {0x100} | ||
| set actual [read_memory $mbox_status_mem_addr 32 1 phys] | ||
| if {[compare $actual $golden] != 0} { | ||
| shutdown error | ||
| } | ||
| puts "" | ||
|
|
||
| puts "Halt CPU to access its registers..." | ||
| halt | ||
| puts "Initiate firmware halt (set register s1 to 0)..." | ||
| set_reg {s1 0} | ||
| puts "Resume CPU..." | ||
| resume | ||
| puts "" | ||
|
|
||
| puts "Read Debug Module Status Register..." | ||
| set val [riscv dmi_read $dmstatus_addr] | ||
| puts "dmstatus: $val" | ||
| if {($val & 0x00000c00) == 0} { | ||
| echo "The hart is halted!" | ||
| shutdown error | ||
| } | ||
| puts "" | ||
|
|
||
| puts "Read mailbox status and dlen..." | ||
| set golden $dlen_bytes | ||
| set actual [riscv dmi_read $mbox_dlen_dmi_addr] | ||
| if {[compare $actual $golden] != 0} { | ||
| shutdown error | ||
| } | ||
| puts "" | ||
|
|
||
| puts "Read mailbox data..." | ||
| for {set i 0} {$i < $dlen_words} {incr i} { | ||
| set golden $data($i) | ||
| set actual [riscv dmi_read $mbox_dout_dmi_addr] | ||
| if {[compare $actual $golden] != 0} { | ||
| shutdown error | ||
| } | ||
| } | ||
|
|
||
| # Success | ||
| shutdown |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters