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

gem: Don't include gem in peripheral test when configured with pcs/pma core

Browse source 
When gem is configured with pcs/pma core for
configuring the clocks it requires additional iic programming
other wise peripheral test won't work.
Don't include gem in peripheral test when configured with pcs/pma core.

Signed-off-by: Kedareswara rao Appana <appanad@xilinx.com>
This commit is contained in:
Kedareswara rao Appana 2015-01-08 18:29:05 +05:30 • committed by Suneel Garapati
parent 49334174d7
commit 6973baf6a7
2 changed files with 75 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -36,6 +36,8 @@
# Ver Who Date Changes
# ----- ---- -------- -----------------------------------------------
# 2.0 adk 10/12/13 Updated as per the New Tcl API's
# 3.0 adk 08/1/15 Don't include gem in peripheral test when gem is
# configured with PCS/PMA Core.
##############################################################################
# Uses $XILINX_EDK/bin/lib/xillib_sw.tcl
@ -48,28 +50,74 @@
# -----------------------------------------------------------------
# TCL Procedures:
# -----------------------------------------------------------------
set ispcs_pma 0
proc gen_include_files {swproj mhsinst} {
global ispcs_pma
if {$swproj == 0} {
return ""
}
if {$swproj == 1} {
set ispcs_pma 0
set ipname [get_property NAME $mhsinst]
set ips [get_cells "*"]
set ipconv 0
foreach ip $ips {
set convipname [get_property NAME $ip]
set periph [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]
if {$sgmii_param == true || $PhyStandarrd == "1000BASEX"} {
set ipconv $ip
}
break
}
}
if { $ipconv != 0 } {
set port_value [get_pins -of_objects [get_nets -of_objects [get_pins -of_objects $ipconv gmii_txd]]]
if { $port_value != 0 } {
set tmp [string first "ENET0" $port_value]
}
if { $tmp >= 0 } {
if { [string compare -nocase $ipname "ps7_ethernet_0"] == 0} {
set ispcs_pma 1
}
}
set tmp0 [string first "ENET1" $port_value]
if { $tmp0 >= 0 } {
if { [string compare -nocase $ipname "ps7_ethernet_1"] == 0} {
set ispcs_pma 1
}
}
}
if {$ispcs_pma == 0} {
if {$swproj == 1} {
set inc_file_lines {xemacps.h xemacps_example.h emacps_header.h}
}
return $inc_file_lines
return $inc_file_lines
}
}
return ""
}
proc gen_src_files {swproj mhsinst} {
global ispcs_pma
if {$swproj == 0} {
return ""
}
if {$swproj == 1} {
if {$ispcs_pma == 0} {
if {$swproj == 1} {
set inc_file_lines {examples/xemacps_example_intr_dma.c examples/xemacps_example_util.c examples/xemacps_example.h data/emacps_header.h}
set inc_file_lines {examples/xemacps_example_intr_dma.c examples/xemacps_example_util.c examples/xemacps_example.h data/emacps_header.h}
return $inc_file_lines
}
return $inc_file_lines
}
}
return ""
}
proc gen_testfunc_def {swproj mhsinst} {
@ -77,23 +125,27 @@ proc gen_testfunc_def {swproj mhsinst} {
}
proc gen_init_code {swproj mhsinst} {
global ispcs_pma
if {$swproj == 0} {
return ""
}
if {$swproj == 1} {
set ipname [get_property NAME $mhsinst]
set decl " static XEmacPs ${ipname};"
set inc_file_lines $decl
return $inc_file_lines
if {$ispcs_pma == 0} {
if {$swproj == 1} {
}
set ipname [get_property NAME $mhsinst]
set decl " static XEmacPs ${ipname};"
set inc_file_lines $decl
return $inc_file_lines
}
}
return ""
}
proc gen_testfunc_call {swproj mhsinst} {
global ispcs_pma
if {$swproj == 0} {
return ""
}
@ -110,11 +162,12 @@ proc gen_testfunc_call {swproj mhsinst} {
set isintr [::hsi::utils::is_ip_interrupting_current_proc $mhsinst]
set intcvar intc
set testfunc_call ""
if {${hasStdout} == 0} {
if {$ispcs_pma == 0} {
if {$isintr == 1} {
set intr_id "XPAR_${ipname}_INTR"
set intr_id [string toupper $intr_id]
@ -130,9 +183,10 @@ proc gen_testfunc_call {swproj mhsinst} {
}
}
} else {
if {$ispcs_pma == 0} {
if {$isintr == 1} {
set intr_id "XPAR_${ipname}_INTR"
set intr_id [string toupper $intr_id]
@ -157,7 +211,7 @@ proc gen_testfunc_call {swproj mhsinst} {
}"
}
}
}
return $testfunc_call

3
XilinxProcessorIPLib/drivers/emacps/src/xemacps.h
View file

@ -301,6 +301,9 @@
* 2.2 adk 29/10/14 Fixed CR#827686 when PCS/PMA core is configured with
* 1000BASE-X mode export proper values to the xparameters.h
* file. Changes are made in the driver tcl file.
* 3.0 adk 08/1/15 Don't include gem in peripheral test when gem is
* configured with PCS/PMA Core. Changes are made in the
* test app tcl(CR:827686).
* </pre>
*
****************************************************************************/