26 lines
697 B
Tcl
26 lines
697 B
Tcl
set script_dir [file dirname [file normalize [info script]]]
|
|
set fpga_dir [file normalize [file join $script_dir ../..]]
|
|
|
|
proc getenv_default {name default} {
|
|
if {[info exists ::env($name)] && $::env($name) ne ""} {
|
|
return $::env($name)
|
|
}
|
|
return $default
|
|
}
|
|
|
|
set bit_file [file normalize [getenv_default BIT_FILE [file join $fpga_dir out bitstream vcu118_rocket.bit]]]
|
|
|
|
open_hw_manager
|
|
connect_hw_server
|
|
open_hw_target
|
|
set dev [lindex [get_hw_devices xcvu9p*] 0]
|
|
if {$dev eq ""} {
|
|
error "No xcvu9p device found"
|
|
}
|
|
current_hw_device $dev
|
|
refresh_hw_device $dev
|
|
set_property PROGRAM.FILE $bit_file $dev
|
|
program_hw_devices $dev
|
|
refresh_hw_device $dev
|
|
puts "Programmed FPGA with $bit_file"
|