Robin Mueller
5d0f2837d1
Some checks failed
ci / Check build (pull_request) Has been cancelled
ci / Check formatting (pull_request) Has been cancelled
ci / Check Documentation Build (pull_request) Has been cancelled
ci / Clippy (pull_request) Has been cancelled
ci / Check build (push) Has been cancelled
ci / Check formatting (push) Has been cancelled
ci / Check Documentation Build (push) Has been cancelled
ci / Clippy (push) Has been cancelled
This PR introduces some major features while also changing the project structure to be more flexible for multiple platforms (e.g. host tooling). It also includes a lot of bugfixes, renamings for consistency purposes and dependency updates. Added features: 1. Pure Rust FSBL for the Zedboard. This first variant is simplistic. It is currently only capable of QSPI boot. It searches for a bitstream and ELF file inside the boot binary, flashes them and jumps to them. 2. QSPI flasher for the Zedboard. 3. DDR, QSPI, DEVC, private CPU timer and PLL configuration modules 3. Tooling to auto-generate board specific DDR and DDRIOB config parameters from the vendor provided ps7init.tcl file Changed project structure: 1. All target specific project are inside a dedicated workspace inside the `zynq` folder now. 2. All tool intended to be run on a host are inside a `tools` workspace 3. All other common projects are at the project root Major bugfixes: 1. SPI module: CPOL was not configured properly 2. Logger flush implementation was empty, implemented properly now.
145 lines
3.8 KiB
Tcl
145 lines
3.8 KiB
Tcl
if {[info exists env(ip_address_hw_server)]} {
|
|
set ip $env(ip_address_hw_server)
|
|
} else {
|
|
set ip "localhost"
|
|
}
|
|
|
|
# Defaults
|
|
set init_tcl ""
|
|
set app ""
|
|
set bitstream ""
|
|
|
|
# Usage helper
|
|
proc usage {} {
|
|
puts "Usage: xsct xsct-helper.tcl <init.tcl> \[-a|--app app.elf\] \[-b|--bit design.bit]"
|
|
puts "Options:"
|
|
puts " -a, --app Path to application ELF to download"
|
|
puts " -b, --bit Path to FPGA bitstream (.bit) to program"
|
|
puts " -h, --help Show this help"
|
|
}
|
|
|
|
# Compact, robust parser
|
|
set expecting ""
|
|
set endopts 0
|
|
foreach arg $argv {
|
|
# If previous option expects a value, take this arg
|
|
if {$expecting ne ""} {
|
|
set $expecting $arg
|
|
set expecting ""
|
|
continue
|
|
}
|
|
|
|
# Option handling (until we see --)
|
|
if {!$endopts && [string match "-*" $arg]} {
|
|
if {$arg eq "--"} { set endopts 1; continue }
|
|
if {$arg eq "-h" || $arg eq "--help"} { usage; exit 0 }
|
|
if {$arg eq "-a" || $arg eq "--app"} { set expecting app; continue }
|
|
if {$arg eq "-b" || $arg eq "--bit"} { set expecting bitstream; continue }
|
|
puts "error: unknown option: $arg"; usage; exit 1
|
|
}
|
|
|
|
# Positional: expect only <init.tcl>
|
|
if {$init_tcl eq ""} {
|
|
set init_tcl $arg
|
|
} else {
|
|
puts "error: unexpected positional argument: $arg"
|
|
usage
|
|
exit 1
|
|
}
|
|
}
|
|
|
|
# Validate required init script
|
|
if {$init_tcl eq ""} {
|
|
puts "error: missing required first argument pointing to initialization TCL script"
|
|
usage
|
|
exit 1
|
|
}
|
|
if {![file exists $init_tcl]} {
|
|
puts "error: the PS init tcl script '$init_tcl' does not exist"
|
|
exit 1
|
|
}
|
|
|
|
# Resolve app: CLI takes precedence over env(APP)
|
|
if {$app ne ""} {
|
|
if {![file exists $app]} {
|
|
puts "error: the app file '$app' does not exist"
|
|
exit 1
|
|
}
|
|
} elseif {[info exists env(APP)]} {
|
|
if {[file exists $env(APP)]} {
|
|
set app $env(APP)
|
|
} else {
|
|
puts "warning: APP environment variable is set but file does not exist: $env(APP)"
|
|
}
|
|
}
|
|
|
|
# Validate bitstream if provided
|
|
if {$bitstream ne "" && ![file exists $bitstream]} {
|
|
puts "error: the bitstream file '$bitstream' does not exist"
|
|
exit 1
|
|
}
|
|
|
|
puts "Hardware server IP address: $ip"
|
|
connect -url tcp:$ip:3121
|
|
|
|
set devices [targets]
|
|
|
|
set apu_line [string trim [targets -nocase -filter {name =~ "APU"}]]
|
|
set arm_core_0_line [string trim [targets -nocase -filter {name =~ "ARM Cortex-A9 MPCore #0"}]]
|
|
set fpga_line [string trim [targets -nocase -filter {name =~ "xc7z020"}]]
|
|
|
|
set apu_device_num [string index $apu_line 0]
|
|
set arm_core_0_num [string index $arm_core_0_line 0]
|
|
set fpga_device_num [string index $fpga_line 0]
|
|
|
|
puts "Select ps target with number: $apu_device_num"
|
|
|
|
# Select the target
|
|
target $apu_device_num
|
|
|
|
# Resetting the target involved problems when an image is stored on the flash.
|
|
# It has turned out that it is not essential to reset the system before loading
|
|
# the software components into the device.
|
|
puts "Reset target"
|
|
# TODO: Make the reset optional/configurable via input argument.
|
|
# Reset the target
|
|
rst
|
|
|
|
# Check if bitstream is set and the file exists before programming FPGA
|
|
if {$bitstream eq ""} {
|
|
puts "Skipping bitstream programming (bitstream argument not set)"
|
|
} elseif {![file exists $bitstream]} {
|
|
puts "Error: The bitstream file '$bitstream' does not exist"
|
|
} else {
|
|
puts "Set FPGA target with number: $fpga_device_num"
|
|
target $fpga_device_num
|
|
|
|
# Without this delay, the FPGA programming may fail
|
|
after 1500
|
|
|
|
puts "Programming FPGA with bitstream: $bitstream"
|
|
fpga -f $bitstream
|
|
}
|
|
|
|
puts "Set ps target with device number: $arm_core_0_num"
|
|
targets $arm_core_0_num
|
|
|
|
puts "Initialize processing system"
|
|
# Init processing system
|
|
source $init_tcl
|
|
|
|
ps7_init
|
|
ps7_post_config
|
|
|
|
puts "Set arm core 0 target with number: $arm_core_0_num"
|
|
target $arm_core_0_num
|
|
|
|
if {$app ne ""} {
|
|
puts "Download app $app to target"
|
|
dow $app
|
|
puts "Starting app"
|
|
con
|
|
}
|
|
|
|
puts "Success"
|