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

canps : added common namespace to all common tcl commands.

Browse source 
Signed-off-by: Nava kishore Manne <navam@xilinx.com>
This commit is contained in:
Nava kishore Manne 2015-04-09 18:00:09 +05:30
parent fb48c9dd0b
commit 92c6b0e7b5
1 changed files with 24 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
XilinxProcessorIPLib/drivers/canps/data/canps_tapp.tcl
View file

@ -86,7 +86,7 @@ proc gen_init_code {swproj mhsinst} {
} }
if {$swproj == 1} { if {$swproj == 1} {
set ipname [get_property NAME $mhsinst] set ipname [common::get_property NAME $mhsinst]
set decl " static XCanPs ${ipname};" set decl " static XCanPs ${ipname};"
set inc_file_lines $decl set inc_file_lines $decl
return $inc_file_lines return $inc_file_lines
@ -101,9 +101,9 @@ proc gen_testfunc_call {swproj mhsinst} {
return "" return ""
} }
set ipname [get_property NAME $mhsinst] set ipname [common::get_property NAME $mhsinst]
set deviceid [::hsm::utils::get_ip_param_name $mhsinst "DEVICE_ID"] set deviceid [::hsm::utils::get_ip_param_name $mhsinst "DEVICE_ID"]
set stdout [get_property CONFIG.STDOUT [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 {
@ -189,4 +189,3 @@ proc gen_testfunc_call {swproj mhsinst} {
return $testfunc_call return $testfunc_call
} }