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

emc : 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-10 11:23:06 +05:30
parent 8bbf41c284
commit 77d23586b7
2 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
XilinxProcessorIPLib/drivers/emc/data/emc.tcl
View file

@ -87,7 +87,7 @@ proc xdefine_canonical_xpars {drv_handle file_name drv_string args} {
# Get the names of all the peripherals connected to this driver # Get the names of all the peripherals connected to this driver
foreach periph $periphs { foreach periph $periphs {
set peripheral_name [string toupper [get_property NAME $periph]] set peripheral_name [string toupper [common::get_property NAME $periph]]
lappend peripherals $peripheral_name lappend peripherals $peripheral_name
} }
@ -108,7 +108,7 @@ proc xdefine_canonical_xpars {drv_handle file_name drv_string args} {
set i 0 set i 0
foreach periph $periphs { foreach periph $periphs {
set periph_name [string toupper [get_property NAME $periph]] set periph_name [string toupper [common::get_property NAME $periph]]
# Generate canonical definitions only for the peripherals whose # Generate canonical definitions only for the peripherals whose
# canonical name is not the same as hardware instance name # canonical name is not the same as hardware instance name
@ -127,7 +127,7 @@ proc xdefine_canonical_xpars {drv_handle file_name drv_string args} {
# The commented out rvalue is the name of the instance-specific constant # The commented out rvalue is the name of the instance-specific constant
# set rvalue [::hsi::utils::get_ip_param_name $periph $arg] # set rvalue [::hsi::utils::get_ip_param_name $periph $arg]
# The rvalue set below is the actual value of the parameter # The rvalue set below is the actual value of the parameter
set rvalue [get_property CONFIG.$arg $periph] set rvalue [common::get_property CONFIG.$arg $periph]
if {[llength $rvalue] == 0} { if {[llength $rvalue] == 0} {
set rvalue 0 set rvalue 0
} }

14
XilinxProcessorIPLib/drivers/emc/data/emc_tapp.tcl
View file

@ -95,8 +95,8 @@ proc gen_testfunc_call {swproj mhsinst} {
return "" return ""
} }
set ipname [get_property NAME $mhsinst] set ipname [common::get_property NAME $mhsinst]
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 {
@ -105,10 +105,10 @@ proc gen_testfunc_call {swproj mhsinst} {
set testfunc_call "" set testfunc_call ""
set prog_memranges [get_mem_ranges -filter "IS_INSTRUCTION==1" $mhsinst] set prog_memranges [hsi::get_mem_ranges -filter "IS_INSTRUCTION==1" $mhsinst]
if {[string compare ${prog_memranges} ""] != 0} { if {[string compare ${prog_memranges} ""] != 0} {
foreach progmem $prog_memranges { foreach progmem $prog_memranges {
set baseaddrval [get_property CONFIG.${progmem} $mhsinst] set baseaddrval [common::get_property CONFIG.${progmem} $mhsinst]
append testfunc_call " append testfunc_call "
/* /*
* MemoryTest routine will not be run for the memory at * MemoryTest routine will not be run for the memory at
@ -119,10 +119,10 @@ proc gen_testfunc_call {swproj mhsinst} {
} }
} }
set romemranges [get_mem_ranges $mhsinst] set romemranges [hsi::get_mem_ranges $mhsinst]
if {[string compare ${romemranges} ""] != 0} { if {[string compare ${romemranges} ""] != 0} {
foreach romem $romemranges { foreach romem $romemranges {
set baseaddrval [get_property CONFIG.${romem} $mhsinst] set baseaddrval [common::get_property CONFIG.${romem} $mhsinst]
append testfunc_call " append testfunc_call "
/* /*
* MemoryTest routine will not be run for the memory at * MemoryTest routine will not be run for the memory at
@ -133,7 +133,7 @@ proc gen_testfunc_call {swproj mhsinst} {
} }
} }
set baseaddrs [get_mem_ranges $mhsinst] set baseaddrs [hsi::get_mem_ranges $mhsinst]
if {[string compare ${baseaddrs} ""] == 0} { if {[string compare ${baseaddrs} ""] == 0} {
return $testfunc_call return $testfunc_call
} }