stv0g/embeddedsw
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

uartlite : added namespace for all HSI TCL commands.

Browse source 
Signed-off-by: Nava kishore Manne <navam@xilinx.com>
This commit is contained in:
Nava kishore Manne 2015-04-09 14:31:05 +05:30
parent 9943ae6dfc
commit 014d152c52
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
XilinxProcessorIPLib/drivers/uartlite/data/uartlite_tapp.tcl
View file

@ -67,11 +67,11 @@ proc gen_include_files {swproj mhsinst} {
return "" return ""
} }
if {$swproj == 1} { if {$swproj == 1} {
set stdout [get_property CONFIG.STDOUT [get_os]] set stdout [get_property CONFIG.STDOUT [hsi::get_os]]
set isStdout [string match $stdout $mhsinst] set isStdout [string match $stdout $mhsinst]
set ipname [get_property IP_NAME $mhsinst] set ipname [get_property IP_NAME $mhsinst]
if {${isStdout} == 0} { if {${isStdout} == 0} {
set ifuartliteintr [::hsm::utils::is_ip_interrupting_current_proc $mhsinst] set ifuartliteintr [::hsi::utils::is_ip_interrupting_current_proc $mhsinst]
if {$ifuartliteintr == 1} { if {$ifuartliteintr == 1} {
if {$ipname == "mdm"} { if {$ipname == "mdm"} {
set inc_file_lines {uartlite_header.h} set inc_file_lines {uartlite_header.h}
@ -95,10 +95,10 @@ proc gen_src_files {swproj mhsinst} {
if {$swproj == 1} { if {$swproj == 1} {
set ipname [get_property IP_NAME $mhsinst] set ipname [get_property IP_NAME $mhsinst]
set stdout [get_property CONFIG.STDOUT [get_os]] set stdout [get_property CONFIG.STDOUT [hsi::get_os]]
set isStdout [string match $stdout $mhsinst] set isStdout [string match $stdout $mhsinst]
if {${isStdout} == 0} { if {${isStdout} == 0} {
set ifuartliteintr [::hsm::utils::is_ip_interrupting_current_proc $mhsinst] set ifuartliteintr [::hsi::utils::is_ip_interrupting_current_proc $mhsinst]
if {$ifuartliteintr == 1} { if {$ifuartliteintr == 1} {
if {$ipname == "mdm"} { if {$ipname == "mdm"} {
set inc_file_lines {examples/xuartlite_selftest_example.c data/uartlite_header.h} set inc_file_lines {examples/xuartlite_selftest_example.c data/uartlite_header.h}
@ -126,12 +126,12 @@ proc gen_init_code {swproj mhsinst} {
return "" return ""
} }
if {$swproj == 1} { if {$swproj == 1} {
set stdout [get_property CONFIG.STDOUT [get_os]] set stdout [get_property CONFIG.STDOUT [hsi::get_os]]
set isStdout [string match $stdout $mhsinst] set isStdout [string match $stdout $mhsinst]
if {${isStdout} == 0} { if {${isStdout} == 0} {
set ipname [get_property NAME $mhsinst] set ipname [get_property NAME $mhsinst]
set ifuartliteintr [::hsm::utils::is_ip_interrupting_current_proc $mhsinst] set ifuartliteintr [::hsi::utils::is_ip_interrupting_current_proc $mhsinst]
set mdm_name [get_property IP_NAME $mhsinst] set mdm_name [get_property IP_NAME $mhsinst]
if {$ifuartliteintr == 1} { if {$ifuartliteintr == 1} {
if {$mdm_name == "mdm"} { if {$mdm_name == "mdm"} {
@ -151,7 +151,7 @@ proc gen_init_code {swproj mhsinst} {
proc gen_testfunc_call {swproj mhsinst} { proc gen_testfunc_call {swproj mhsinst} {
set ipname [get_property NAME $mhsinst] set ipname [get_property NAME $mhsinst]
set ifuartliteintr [::hsm::utils::is_ip_interrupting_current_proc $mhsinst] set ifuartliteintr [::hsi::utils::is_ip_interrupting_current_proc $mhsinst]
set testfunc_call "" set testfunc_call ""
if {$swproj == 0} { if {$swproj == 0} {
@ -160,7 +160,7 @@ proc gen_testfunc_call {swproj mhsinst} {
# Don't generate test code if this is the STDOUT device # Don't generate test code if this is the STDOUT device
# We will be using this to generate print stmts for other tests # We will be using this to generate print stmts for other tests
set stdout [get_property CONFIG.STDOUT [get_os]] set stdout [get_property CONFIG.STDOUT [hsi::get_os]]
set isStdout [string match $stdout $mhsinst] set isStdout [string match $stdout $mhsinst]
if {${isStdout} == 1} { if {${isStdout} == 1} {
append testfunc_call " append testfunc_call "
@ -172,18 +172,18 @@ proc gen_testfunc_call {swproj mhsinst} {
return $testfunc_call return $testfunc_call
} }
set deviceid [::hsm::utils::get_ip_param_name $mhsinst "DEVICE_ID"] set deviceid [::hsi::utils::get_ip_param_name $mhsinst "DEVICE_ID"]
set stdout [get_property CONFIG.STDOUT [get_os]] set stdout [get_property CONFIG.STDOUT [hsi::get_os]]
if { $stdout == "" || $stdout == "none" } { if { $stdout == "" || $stdout == "none" } {
set hasStdout 0 set hasStdout 0
} else { } else {
set hasStdout 1 set hasStdout 1
} }
if {$ifuartliteintr == 1} { if {$ifuartliteintr == 1} {
set intr_pin_name [get_pins -of_objects [get_cells $ipname] -filter "TYPE==INTERRUPT"] set intr_pin_name [hsi::get_pins -of_objects [hsi::get_cells $ipname] -filter "TYPE==INTERRUPT"]
set intcname [::hsm::utils::get_connected_intr_cntrl $ipname $intr_pin_name] set intcname [::hsi::utils::get_connected_intr_cntrl $ipname $intr_pin_name]
set intcvar intc set intcvar intc
set proc [get_property IP_NAME [get_cells [get_sw_processor]]] set proc [get_property IP_NAME [hsi::get_cells [hsi::get_sw_processor]]]
set mdm_name [get_property IP_NAME $mhsinst] set mdm_name [get_property IP_NAME $mhsinst]
} }