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

emacps : added common namesapce to all common tcl commands.

Browse source 
Signed-off-by: Suneel Garapati <suneel.garapati@xilinx.com>
This commit is contained in:
Suneel Garapati 2015-01-21 16:39:09 +05:30
parent 2c607219ab
commit 2863b7fd43
2 changed files with 16 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
XilinxProcessorIPLib/drivers/emacps/data/emacps.tcl
View file

@ -67,8 +67,8 @@ proc generate_gmii2rgmii_params {drv_handle file_name} {
set file_handle [::hsi::utils::open_include_file $file_name]
set ips [hsi::get_cells "*"]
foreach ip $ips {
set ipname [get_property NAME $ip]
set periph [get_property IP_NAME $ip]
set ipname [common::get_property NAME $ip]
set periph [common::get_property IP_NAME $ip]
if { [string compare -nocase $periph "ps7_ethernet"] == 0} {
set phya [is_gmii2rgmii_conv_present $ip]
if { $phya == 0} {
@ -95,11 +95,11 @@ proc is_gmii2rgmii_conv_present {slave} {
set phy_addr 0
set ipconv 0
set ips [hsi::get_cells "*"]
set enetipinstance_name [get_property NAME $slave]
set enetipinstance_name [common::get_property NAME $slave]
foreach ip $ips {
set convipname [get_property NAME $ip]
set periph [get_property IP_NAME $ip]
set convipname [common::get_property NAME $ip]
set periph [common::get_property IP_NAME $ip]
if { [string compare -nocase $periph "gmii_to_rgmii"] == 0} {
set ipconv $ip
break
@ -139,10 +139,10 @@ proc generate_sgmii_params {drv_handle file_name} {
set ips [hsi::get_cells "*"]
foreach ip $ips {
set ipname [get_property NAME $ip]
set periph [get_property IP_NAME $ip]
set ipname [common::get_property NAME $ip]
set periph [common::get_property IP_NAME $ip]
if { [string compare -nocase $periph "gig_ethernet_pcs_pma"] == 0} {
set PhyStandard [get_property CONFIG.Standard $ip]
set PhyStandard [common::get_property CONFIG.Standard $ip]
}
if { [string compare -nocase $ipname "ps7_ethernet_0"] == 0} {
set phya [is_gige_pcs_pma_ip_present $ip]
@ -173,14 +173,14 @@ proc is_gige_pcs_pma_ip_present {slave} {
set ipconv 0
set ips [hsi::get_cells "*"]
set enetipinstance_name [get_property IP_NAME $slave]
set enetipinstance_name [common::get_property IP_NAME $slave]
foreach ip $ips {
set convipname [get_property NAME $ip]
set periph [get_property IP_NAME $ip]
set convipname [common::get_property NAME $ip]
set periph [common::get_property IP_NAME $ip]
if { [string compare -nocase $periph "gig_ethernet_pcs_pma"] == 0} {
set sgmii_param [get_property CONFIG.c_is_sgmii $ip]
set PhyStandarrd [get_property CONFIG.Standard $ip]
set sgmii_param [common::get_property CONFIG.c_is_sgmii $ip]
set PhyStandarrd [common::get_property CONFIG.Standard $ip]
if {$sgmii_param == true || $PhyStandarrd == "1000BASEX"} {
set ipconv $ip
}

6
XilinxProcessorIPLib/drivers/emacps/data/emacps_tapp.tcl
View file

@ -133,7 +133,7 @@ proc gen_init_code {swproj mhsinst} {
if {$ispcs_pma == 0} {
if {$swproj == 1} {
set ipname [get_property NAME $mhsinst]
set ipname [common::get_property NAME $mhsinst]
set decl " static XEmacPs ${ipname};"
set inc_file_lines $decl
return $inc_file_lines
@ -150,9 +150,9 @@ proc gen_testfunc_call {swproj mhsinst} {
return ""
}
set ipname [get_property NAME $mhsinst]
set ipname [common::get_property NAME $mhsinst]
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" } {
set hasStdout 0
} else {