19 lines
724 B
Tcl
Executable file
19 lines
724 B
Tcl
Executable file
proc generate {drv_handle} {
|
|
set ip [get_cells $drv_handle]
|
|
|
|
set consoleip [get_property CONFIG.console_device [get_os] ]
|
|
set port_number 0
|
|
if { [string match -nocase "$ip" "$consoleip"] == 0 } {
|
|
set serial_count [hsm::utils::get_os_parameter_value "serial_count"]
|
|
if { [llength $serial_count] == 0 } {
|
|
set serial_count 0
|
|
}
|
|
incr serial_count
|
|
hsm::utils::set_os_parameter_value "serial_count" $serial_count
|
|
set port_number $serial_count
|
|
} else {
|
|
#adding os console property if this is console ip
|
|
hsm::utils::set_os_parameter_value "console" "ttyPS0,115200"
|
|
}
|
|
set_property CONFIG.port-number $port_number $drv_handle
|
|
}
|