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: Nava kishore Manne <navam@xilinx.com>
This commit is contained in:
Nava kishore Manne 2015-04-10 14:17:44 +05:30
parent 365439178c
commit 9cef23fa37
2 changed files with 42 additions and 42 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -65,10 +65,10 @@ proc generate {drv_handle} {
proc generate_gmii2rgmii_params {drv_handle file_name} { proc generate_gmii2rgmii_params {drv_handle file_name} {
set file_handle [::hsi::utils::open_include_file $file_name] set file_handle [::hsi::utils::open_include_file $file_name]
set ips [get_cells "*"] set ips [hsi::get_cells "*"]
foreach ip $ips { foreach ip $ips {
set ipname [get_property NAME $ip] set ipname [common::get_property NAME $ip]
set periph [get_property IP_NAME $ip] set periph [common::get_property IP_NAME $ip]
if { [string compare -nocase $periph "ps7_ethernet"] == 0} { if { [string compare -nocase $periph "ps7_ethernet"] == 0} {
set phya [is_gmii2rgmii_conv_present $ip] set phya [is_gmii2rgmii_conv_present $ip]
if { $phya == 0} { if { $phya == 0} {
@ -94,19 +94,19 @@ proc is_gmii2rgmii_conv_present {slave} {
set port_value 0 set port_value 0
set phy_addr 0 set phy_addr 0
set ipconv 0 set ipconv 0
set ips [get_cells "*"] set ips [hsi::get_cells "*"]
set enetipinstance_name [get_property NAME $slave] set enetipinstance_name [common::get_property NAME $slave]
foreach ip $ips { foreach ip $ips {
set convipname [get_property NAME $ip] set convipname [common::get_property NAME $ip]
set periph [get_property IP_NAME $ip] set periph [common::get_property IP_NAME $ip]
if { [string compare -nocase $periph "gmii_to_rgmii"] == 0} { if { [string compare -nocase $periph "gmii_to_rgmii"] == 0} {
set ipconv $ip set ipconv $ip
break break
} }
} }
if { $ipconv != 0 } { if { $ipconv != 0 } {
set port_value [get_pins -of_objects [get_nets -of_objects [get_pins -of_objects $ipconv gmii_txd]]] set port_value [hsi::get_pins -of_objects [hsi::get_nets -of_objects [hsi::get_pins -of_objects $ipconv gmii_txd]]]
if { $port_value != 0 } { if { $port_value != 0 } {
set tmp [string first "ENET0" $port_value] set tmp [string first "ENET0" $port_value]
if { $tmp >= 0 } { if { $tmp >= 0 } {
@ -136,13 +136,13 @@ proc is_gmii2rgmii_conv_present {slave} {
proc generate_sgmii_params {drv_handle file_name} { proc generate_sgmii_params {drv_handle file_name} {
set file_handle [::hsi::utils::open_include_file $file_name] set file_handle [::hsi::utils::open_include_file $file_name]
set ips [get_cells "*"] set ips [hsi::get_cells "*"]
foreach ip $ips { foreach ip $ips {
set ipname [get_property NAME $ip] set ipname [common::get_property NAME $ip]
set periph [get_property IP_NAME $ip] set periph [common::get_property IP_NAME $ip]
if { [string compare -nocase $periph "gig_ethernet_pcs_pma"] == 0} { 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} { if { [string compare -nocase $ipname "ps7_ethernet_0"] == 0} {
set phya [is_gige_pcs_pma_ip_present $ip] set phya [is_gige_pcs_pma_ip_present $ip]
@ -172,15 +172,15 @@ proc is_gige_pcs_pma_ip_present {slave} {
set phy_addr 0 set phy_addr 0
set ipconv 0 set ipconv 0
set ips [get_cells "*"] 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 { foreach ip $ips {
set convipname [get_property NAME $ip] set convipname [common::get_property NAME $ip]
set periph [get_property IP_NAME $ip] set periph [common::get_property IP_NAME $ip]
if { [string compare -nocase $periph "gig_ethernet_pcs_pma"] == 0} { if { [string compare -nocase $periph "gig_ethernet_pcs_pma"] == 0} {
set sgmii_param [get_property CONFIG.c_is_sgmii $ip] set sgmii_param [common::get_property CONFIG.c_is_sgmii $ip]
set PhyStandarrd [get_property CONFIG.Standard $ip] set PhyStandarrd [common::get_property CONFIG.Standard $ip]
if {$sgmii_param == true || $PhyStandarrd == "1000BASEX"} { if {$sgmii_param == true || $PhyStandarrd == "1000BASEX"} {
set ipconv $ip set ipconv $ip
} }
@ -189,7 +189,7 @@ proc is_gige_pcs_pma_ip_present {slave} {
} }
if { $ipconv != 0 } { if { $ipconv != 0 } {
set port_value [get_pins -of_objects [get_nets -of_objects [get_pins -of_objects $ipconv gmii_txd]]] set port_value [hsi::get_pins -of_objects [hsi::get_nets -of_objects [hsi::get_pins -of_objects $ipconv gmii_txd]]]
if { $port_value != 0 } { if { $port_value != 0 } {
set tmp [string first "ENET0" $port_value] set tmp [string first "ENET0" $port_value]
if { $tmp >= 0 } { if { $tmp >= 0 } {

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