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

uartps : added common namespace to all common tcl commands.

Browse source 
Signed-off-by: Kishore Kumar Korathaluri <kkorath@xilinx.com>
This commit is contained in:
Kishore Kumar Korathaluri 2015-01-12 09:35:10 +05:30 • committed by Nava kishore Manne
parent 081de99016
commit 6b7a316b1d
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
XilinxProcessorIPLib/drivers/uartps/data/uartps_tapp.tcl
View file

@ -53,7 +53,7 @@ proc gen_include_files {swproj mhsinst} {
return return
} }
if {$swproj == 1} { if {$swproj == 1} {
set stdout [get_property CONFIG.STDOUT [hsi::get_os]] set stdout [common::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 inc_file_lines { xuartps.h uartps_header.h } set inc_file_lines { xuartps.h uartps_header.h }
@ -69,7 +69,7 @@ proc gen_src_files {swproj mhsinst} {
return "" return ""
} }
if {$swproj == 1} { if {$swproj == 1} {
set stdout [get_property CONFIG.STDOUT [hsi::get_os]] set stdout [common::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 inc_file_lines {examples/xuartps_intr_example.c examples/xuartps_polled_example.c data/uartps_header.h } set inc_file_lines {examples/xuartps_intr_example.c examples/xuartps_polled_example.c data/uartps_header.h }
@ -86,9 +86,9 @@ proc gen_testfunc_def {swproj mhsinst} {
proc gen_init_code {swproj mhsinst} { proc gen_init_code {swproj mhsinst} {
set stdout [get_property CONFIG.STDOUT [hsi::get_os]] set stdout [common::get_property CONFIG.STDOUT [hsi::get_os]]
set isStdout [string match $stdout $mhsinst] set isStdout [string match $stdout $mhsinst]
set ipname [get_property NAME $mhsinst] set ipname [common::get_property NAME $mhsinst]
if {${isStdout} == 0} { if {${isStdout} == 0} {
if {$swproj == 1} { if {$swproj == 1} {
set decl " static XUartPs ${ipname};" set decl " static XUartPs ${ipname};"
@ -102,14 +102,14 @@ 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 [common::get_property NAME $mhsinst]
set testfunc_call "" set testfunc_call ""
if {$swproj == 0} { if {$swproj == 0} {
return $testfunc_call return $testfunc_call
} }
set stdout [get_property CONFIG.STDOUT [hsi::get_os]] set stdout [common::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 "
@ -122,7 +122,7 @@ proc gen_testfunc_call {swproj mhsinst} {
} }
set deviceid [::hsi::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 [hsi::get_os]] set stdout [common::get_property CONFIG.STDOUT [hsi::get_os]]
if { $stdout == "" || $stdout == "none" } { if { $stdout == "" || $stdout == "none" } {
set hasStdout 0 set hasStdout 0
} else { } else {