27 lines
798 B
Tcl
27 lines
798 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 genesys2_rocket.bit]]]
|
|
set device_pattern [getenv_default HW_DEVICE_PATTERN xc7k325t*]
|
|
|
|
open_hw_manager
|
|
connect_hw_server
|
|
open_hw_target
|
|
set dev [lindex [get_hw_devices $device_pattern] 0]
|
|
if {$dev eq ""} {
|
|
error "No hardware device found matching $device_pattern"
|
|
}
|
|
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"
|