uartps : added namespace for all HSI TCL commands.

Signed-off-by: Nava kishore Manne <navam@xilinx.com>
This commit is contained in:
Nava kishore Manne 2015-04-09 14:41:20 +05:30
parent e5049bd0a0
commit 9aac688ed9

View file

@ -53,7 +53,7 @@ proc gen_include_files {swproj mhsinst} {
return
}
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]
if {${isStdout} == 0} {
set inc_file_lines { xuartps.h uartps_header.h }
@ -69,7 +69,7 @@ proc gen_src_files {swproj mhsinst} {
return ""
}
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]
if {${isStdout} == 0} {
set inc_file_lines {examples/xuartps_intr_example.c examples/xuartps_polled_example.c data/uartps_header.h }
@ -86,7 +86,7 @@ proc gen_testfunc_def {swproj mhsinst} {
proc gen_init_code {swproj 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 ipname [get_property NAME $mhsinst]
if {${isStdout} == 0} {
@ -109,7 +109,7 @@ proc gen_testfunc_call {swproj mhsinst} {
return $testfunc_call
}
set stdout [get_property CONFIG.STDOUT [get_os]]
set stdout [get_property CONFIG.STDOUT [hsi::get_os]]
set isStdout [string match $stdout $mhsinst]
if {${isStdout} == 1} {
append testfunc_call "
@ -121,15 +121,15 @@ proc gen_testfunc_call {swproj mhsinst} {
return $testfunc_call
}
set deviceid [::hsm::utils::get_ip_param_name $mhsinst "DEVICE_ID"]
set stdout [get_property CONFIG.STDOUT [get_os]]
set deviceid [::hsi::utils::get_ip_param_name $mhsinst "DEVICE_ID"]
set stdout [get_property CONFIG.STDOUT [hsi::get_os]]
if { $stdout == "" || $stdout == "none" } {
set hasStdout 0
} else {
set hasStdout 1
}
set isintr [::hsm::utils::is_ip_interrupting_current_proc $mhsinst]
set isintr [::hsi::utils::is_ip_interrupting_current_proc $mhsinst]
set intcvar intc
@ -204,5 +204,3 @@ proc gen_testfunc_call {swproj mhsinst} {
}
return $testfunc_call
}