diff --git a/XilinxProcessorIPLib/drivers/axidma/data/axidma.tcl b/XilinxProcessorIPLib/drivers/axidma/data/axidma.tcl index 140bc48f..9206d435 100755 --- a/XilinxProcessorIPLib/drivers/axidma/data/axidma.tcl +++ b/XilinxProcessorIPLib/drivers/axidma/data/axidma.tcl @@ -56,26 +56,26 @@ proc xdefine_dma_include_file {drv_handle file_name drv_string args} { set file_handle [xopen_include_file $file_name] # Get all peripherals connected to this driver - set periphs [xget_sw_iplist_for_driver $drv_handle] + set periphs [xget_sw_iplist_for_driver $drv_handle] # Handle special cases set arg "NUM_INSTANCES" set posn [lsearch -exact $args $arg] if {$posn > -1} { - puts $file_handle "/* Definitions for driver [string toupper [common::get_property NAME $drv_handle]] */" + puts $file_handle "/* Definitions for driver [string toupper [get_property NAME $drv_handle]] */" # Define NUM_INSTANCES puts $file_handle "#define [xget_dname $drv_string $arg] [llength $periphs]" set args [lreplace $args $posn $posn] } # Check if it is a driver parameter - lappend newargs + lappend newargs foreach arg $args { - set value [common::get_property CONFIG.$arg $drv_handle] + set value [get_property CONFIG.$arg $drv_handle] if {[llength $value] == 0} { lappend newargs $arg } else { - puts $file_handle "#define [xget_dname $drv_string $arg] [common::get_property CONFIG.$arg $drv_handle]" + puts $file_handle "#define [xget_dname $drv_string $arg] [get_property CONFIG.$arg $drv_handle]" } } set args $newargs @@ -84,7 +84,7 @@ proc xdefine_dma_include_file {drv_handle file_name drv_string args} { set device_id 0 foreach periph $periphs { puts $file_handle "" - puts $file_handle "/* Definitions for peripheral [string toupper [common::get_property NAME $periph]] */" + puts $file_handle "/* Definitions for peripheral [string toupper [get_property NAME $periph]] */" foreach arg $args { if {[string compare -nocase "DEVICE_ID" $arg] == 0} { set value $device_id @@ -92,7 +92,7 @@ proc xdefine_dma_include_file {drv_handle file_name drv_string args} { } else { set value [xget_param_value $periph $arg] if {[string compare -nocase $arg "C_INCLUDE_SG"] == 0} { - if {[llength $value] == 0} { + if {[llength $value] == 0} { set value 1 } } else { @@ -101,7 +101,7 @@ proc xdefine_dma_include_file {drv_handle file_name drv_string args} { } } if {[string compare -nocase $arg "C_MICRO_DMA"] == 0} { - if {[llength $value] == 0} { + if {[llength $value] == 0} { set value 1 } } else { @@ -119,7 +119,7 @@ proc xdefine_dma_include_file {drv_handle file_name drv_string args} { } } puts $file_handle "" - } + } puts $file_handle "\n/******************************************************************/\n" close $file_handle } @@ -138,7 +138,7 @@ proc xdefine_axidma_canonical_xpars {drv_handle file_name drv_string args} { # Get the names of all the peripherals connected to this driver foreach periph $periphs { - set peripheral_name [string toupper [common::get_property NAME $periph]] + set peripheral_name [string toupper [get_property NAME $periph]] lappend peripherals $peripheral_name } @@ -148,7 +148,7 @@ proc xdefine_axidma_canonical_xpars {drv_handle file_name drv_string args} { foreach periph $periphs { set canonical_name [string toupper [format "%s_%s" $drv_string $device_id]] lappend canonicals $canonical_name - + # Create a list of IDs of the peripherals whose hardware instance name # doesn't match the canonical name. These IDs can be used later to # generate canonical definitions @@ -160,7 +160,7 @@ proc xdefine_axidma_canonical_xpars {drv_handle file_name drv_string args} { set i 0 foreach periph $periphs { - set periph_name [string toupper [common::get_property NAME $periph]] + set periph_name [string toupper [get_property NAME $periph]] # Generate canonical definitions only for the peripherals whose # canonical name is not the same as hardware instance name @@ -176,7 +176,7 @@ proc xdefine_axidma_canonical_xpars {drv_handle file_name drv_string args} { set rvalue [xget_param_value $periph $arg] if {[string compare -nocase $arg "C_INCLUDE_SG"] == 0} { - if {[llength $rvalue] == 0} { + if {[llength $rvalue] == 0} { set rvalue 1 } } else { @@ -185,7 +185,7 @@ proc xdefine_axidma_canonical_xpars {drv_handle file_name drv_string args} { } } if {[string compare -nocase $arg "C_MICRO_DMA"] == 0} { - if {[llength $rvalue] == 0} { + if {[llength $rvalue] == 0} { set rvalue 1 } } else { @@ -194,7 +194,7 @@ proc xdefine_axidma_canonical_xpars {drv_handle file_name drv_string args} { } } set rvalue [xformat_addr_string $rvalue $arg] - + puts $file_handle "#define $lvalue $rvalue" } diff --git a/XilinxProcessorIPLib/drivers/axiethernet/data/axiethernet.tcl b/XilinxProcessorIPLib/drivers/axiethernet/data/axiethernet.tcl index 838521cc..5d76a1ce 100755 --- a/XilinxProcessorIPLib/drivers/axiethernet/data/axiethernet.tcl +++ b/XilinxProcessorIPLib/drivers/axiethernet/data/axiethernet.tcl @@ -43,6 +43,8 @@ # properly (CR 810643) # 29/10/14 adk Added support for generating parameters for SGMII/1000BaseX modes # When IP is configured with the PCS/PMA core (CR 828796) +# 8/1/15 adk Fixed TCL errors when axiethernet is configured with the +# Axi stream fifo (CR 835605). # ############################################################################### #uses "xillib.tcl" @@ -102,7 +104,7 @@ proc xdefine_axiethernet_include_file {drv_handle file_name drv_string} { # Handle NUM_INSTANCES set periph_ninstances 0 - puts $file_handle "/* Definitions for driver [string toupper [common::get_property NAME $drv_handle]] */" + puts $file_handle "/* Definitions for driver [string toupper [get_property NAME $drv_handle]] */" foreach periph $periphs { init_periph_config_struct $periph_ninstances incr periph_ninstances 1 @@ -179,9 +181,9 @@ proc xdefine_axi_target_params {periphs file_handle} { # Get unique list of p2p peripherals foreach periph $periphs { set p2p_periphs [list] - set periph_name [string toupper [common::get_property NAME $periph]] + set periph_name [string toupper [get_property NAME $periph]] # Get all point2point buses for periph - set p2p_busifs_i [hsi::get_intf_pins -of_objects $periph -filter "TYPE==INITIATOR"] + set p2p_busifs_i [get_intf_pins -of_objects $periph -filter "TYPE==INITIATOR"] puts $file_handle "" puts $file_handle "/* Canonical Axi parameters for $periph_name */" @@ -189,21 +191,21 @@ proc xdefine_axi_target_params {periphs file_handle} { # Add p2p periphs foreach p2p_busif $p2p_busifs_i { - set busif_name [string toupper [common::get_property NAME $p2p_busif]] + set busif_name [string toupper [get_property NAME $p2p_busif]] set conn_busif_handle [::hsi::utils::get_connected_intf $periph $busif_name] if { [string compare -nocase $conn_busif_handle ""] == 0} { continue } else { # if there is a single match, we know if it is FIFO or DMA # no need for further iterations - set conn_busif_name [common::get_property NAME $conn_busif_handle] - set target_periph [hsi::get_cells -of_objects $conn_busif_handle] - set target_periph_type [common::get_property IP_NAME $target_periph] + set conn_busif_name [get_property NAME $conn_busif_handle] + set target_periph [get_cells -of_objects $conn_busif_handle] + set target_periph_type [get_property IP_NAME $target_periph] if { [string compare -nocase $target_periph_type "tri_mode_ethernet_mac"] == 0 } { continue } - set tartget_per_name [common::get_property NAME $target_periph] - set target_periph_name [string toupper [common::get_property NAME $target_periph]] + set tartget_per_name [get_property NAME $target_periph] + set target_periph_name [string toupper [get_property NAME $target_periph]] set canonical_tag [string toupper [format "AXIETHERNET_%d" $device_id ]] set validentry 1 break @@ -218,16 +220,16 @@ proc xdefine_axi_target_params {periphs file_handle} { puts $file_handle "#define $canonical_name XPAR_AXI_FIFO" add_field_to_periph_config_struct $device_id $canonical_name - set axi_fifo_baseaddr [common::get_property CONFIG.C_BASEADDR $target_periph] + set axi_fifo_baseaddr [get_property CONFIG.C_BASEADDR $target_periph] set canonical_name [format "XPAR_%s_CONNECTED_BASEADDR" $canonical_tag] puts $file_handle [format "#define $canonical_name %s" $axi_fifo_baseaddr] add_field_to_periph_config_struct $device_id $canonical_name # FIFO Interrupts Handling - set int_pin [hsi::get_pins -of_objects [hsi::get_cells $tartget_per_name] INTERRUPT] + set int_pin [get_pins -of_objects [get_cells $tartget_per_name] INTERRUPT] set intc_periph_type [::hsi::utils::get_connected_intr_cntrl $tartget_per_name $int_pin] - set intc_name [common::get_property IP_NAME $intc_periph_type] + set intc_name [get_property IP_NAME $intc_periph_type] if { $intc_name != [format "ps7_scugic"] } { - set int_id [::hsi::utils::get_port_intr_id [hsi::get_cells $tartget_per_name] $int_pin] + set int_id [::hsi::utils::get_port_intr_id [get_cells $tartget_per_name] $int_pin] set canonical_name [format "XPAR_%s_CONNECTED_FIFO_INTR" $canonical_tag] puts $file_handle [format "#define $canonical_name %d" $int_id] add_field_to_periph_config_struct $device_id $canonical_name @@ -237,9 +239,9 @@ proc xdefine_axi_target_params {periphs file_handle} { add_field_to_periph_config_struct $device_id 0xFF } else { set canonical_name [format "XPAR_%s_CONNECTED_FIFO_INTR" $canonical_tag] - set target_periph_name [string toupper [common::get_property NAME $target_periph_type]] - puts $file_handle [format "#define $canonical_name XPAR_FABRIC_%s_S2MM_INTROUT_INTR" $target_periph_name] - add_field_to_periph_config_struct $deviceid $canonical_name + set temp [string toupper $int_pin] + puts $file_handle [format "#define $canonical_name XPAR_FABRIC_%s_%s_INTR" $target_periph_name $temp] + add_field_to_periph_config_struct $device_id $canonical_name puts $file_handle [format "#define XPAR_%s_CONNECTED_DMARX_INTR 0xFF" $canonical_tag] puts $file_handle [format "#define XPAR_%s_CONNECTED_DMATX_INTR 0xFF" $canonical_tag] add_field_to_periph_config_struct $device_id 0xFF @@ -247,7 +249,7 @@ proc xdefine_axi_target_params {periphs file_handle} { } } if {$target_periph_type == "axi_dma"} { - set axi_dma_baseaddr [common::get_property CONFIG.C_BASEADDR $target_periph] + set axi_dma_baseaddr [get_property CONFIG.C_BASEADDR $target_periph] # Handle base address and connection type set canonical_name [format "XPAR_%s_CONNECTED_TYPE" $canonical_tag] puts $file_handle "#define $canonical_name XPAR_AXI_DMA" @@ -279,7 +281,7 @@ proc xdefine_axi_target_params {periphs file_handle} { # ------------------------------------------------------------------ proc xdefine_temac_params_canonical {file_handle periph device_id} { - puts $file_handle "\n/* Canonical definitions for peripheral [string toupper [common::get_property NAME $periph]] */" + puts $file_handle "\n/* Canonical definitions for peripheral [string toupper [get_property NAME $periph]] */" set canonical_tag [string toupper [format "XPAR_AXIETHERNET_%d" $device_id]] @@ -459,10 +461,10 @@ proc xdefine_axiethernet_config_file {file_name drv_string} { # ------------------------------------------------------------------ proc xdefine_dma_interrupts {file_handle target_periph deviceid canonical_tag dmarx_signal dmatx_signal} { - set target_periph_name [string toupper [common::get_property NAME $target_periph]] + set target_periph_name [string toupper [get_property NAME $target_periph]] # First get the interrupt ports on this AXI peripheral - set interrupt_port [hsi::get_pins -of_objects $target_periph -filter {TYPE==INTERRUPT&&DIRECTION==O}] + set interrupt_port [get_pins -of_objects $target_periph -filter {TYPE==INTERRUPT&&DIRECTION==O}] if {$interrupt_port == ""} { puts "Info: There are no AXIDMA Interrupt ports" puts $file_handle [format "#define XPAR_%s_CONNECTED_DMARX_INTR 0xFF" $canonical_tag] @@ -477,8 +479,8 @@ proc xdefine_dma_interrupts {file_handle target_periph deviceid canonical_tag dm set dmarx "null" set dmatx "null" foreach intr_port $interrupt_port { - set interrupt_signal_name [common::get_property NAME $intr_port] - set intc_port [hsi::get_pins -of_objects $target_periph -filter {TYPE==INTERRUPT&&DIRECTION==O}] + set interrupt_signal_name [get_property NAME $intr_port] + set intc_port [get_pins -of_objects $target_periph -filter {TYPE==INTERRUPT&&DIRECTION==O}] # Make sure the interrupt signal was connected in this design. We assume # at least one is. (could be a bug if user just wants polled mode) @@ -487,7 +489,7 @@ proc xdefine_dma_interrupts {file_handle target_periph deviceid canonical_tag dm foreach intr_sink $intc_port { set pname_type [::hsi::utils::get_connected_intr_cntrl $target_periph $intr_sink] if {$pname_type != "chipscope_ila"} { - set special [common::get_property IP_TYPE $pname_type] + set special [get_property IP_TYPE $pname_type] if {[string compare -nocase $special "INTERRUPT_CNTLR"] == 0} { set found_intc $intr_sink } @@ -503,9 +505,9 @@ proc xdefine_dma_interrupts {file_handle target_periph deviceid canonical_tag dm add_field_to_periph_config_struct $deviceid 0xFF return } - set intc_periph [hsi::get_cells -of_objects $found_intc] - set intc_periph_type [common::get_property IP_NAME $pname_type] - set intc_name [string toupper [common::get_property NAME $pname_type]] + set intc_periph [get_cells -of_objects $found_intc] + set intc_periph_type [get_property IP_NAME $pname_type] + set intc_name [string toupper [get_property NAME $pname_type]] } else { puts "Info: $target_periph_name interrupt signal $interrupt_signal_name not connected" continue @@ -555,7 +557,7 @@ proc xdefine_dma_interrupts {file_handle target_periph deviceid canonical_tag dm proc xdefine_temac_interrupt {file_handle periph device_id} { #set mhs_handle [xget_hw_parent_handle $periph] - set periph_name [string toupper [common::get_property NAME $periph]] + set periph_name [string toupper [get_property NAME $periph]] # set up the canonical constant name set canonical_name [format "XPAR_AXIETHERNET_%d_INTR" $device_id] @@ -565,7 +567,7 @@ proc xdefine_temac_interrupt {file_handle periph device_id} { # for the interrupt ID based on the interrupt signal name of the TEMAC # # First get the interrupt ports on this peripheral - set interrupt_port [hsi::get_pins -of_objects $periph -filter {TYPE==INTERRUPT&&DIRECTION==O}] + set interrupt_port [get_pins -of_objects $periph -filter {TYPE==INTERRUPT&&DIRECTION==O}] if {$interrupt_port == ""} { puts "Info: There are no AXI Ethernet Interrupt ports" # No interrupts were connected, so add dummy entry to the config structure @@ -576,19 +578,19 @@ proc xdefine_temac_interrupt {file_handle periph device_id} { # For each interrupt port, find out the ordinal of the interrupt line # as connected to an interrupt controller set addentry 0 - set interrupt_signal_name [common::get_property NAME $interrupt_port] + set interrupt_signal_name [get_property NAME $interrupt_port] #set interrupt_signal [xget_hw_value $interrupt_port] - set intc_prt [::hsi::utils::get_sink_pins [hsi::get_pins -of_objects [hsi::get_cells $periph] INTERRUPT]] + set intc_prt [::hsi::utils::get_sink_pins [get_pins -of_objects [get_cells $periph] INTERRUPT]] # Make sure the interrupt signal was connected in this design. We assume # at least one is. (could be a bug if user just wants polled mode) if { $intc_prt != "" } { set found_intc "" foreach intr_sink $intc_prt { - set phandle [hsi::get_cells -of_objects $intr_sink] - set pname_type [common::get_property NAME $phandle] + set phandle [get_cells -of_objects $intr_sink] + set pname_type [get_property NAME $phandle] if {$pname_type != "chipscope_ila"} { - set special [common::get_property IP_TYPE [hsi::get_cells $pname_type]] + set special [get_property IP_TYPE [get_cells $pname_type]] if {[string compare -nocase $special "INTERRUPT_CNTLR"] == 0} { set found_intc $intr_sink break @@ -604,9 +606,9 @@ proc xdefine_temac_interrupt {file_handle periph device_id} { return } - set intc_periph [hsi::get_cells -of_objects $found_intc] - set intc_periph_type [common::get_property IP_NAME $intc_periph] - set intc_name [string toupper [common::get_property NAME $intc_periph]] + set intc_periph [get_cells -of_objects $found_intc] + set intc_periph_type [get_property IP_NAME $intc_periph] + set intc_name [string toupper [get_property NAME $intc_periph]] } else { puts "Info: $periph_name interrupt signal $interrupt_signal_name not connected" # No interrupts were connected, so add dummy entry to the config structure @@ -620,7 +622,7 @@ proc xdefine_temac_interrupt {file_handle periph device_id} { # matches the original interrupt signal we were tracking. if { $intc_periph_type != [format "ps7_scugic"] } { - set ethernet_int_signal_name [hsi::get_pins -of_objects $periph INTERRUPT] + set ethernet_int_signal_name [get_pins -of_objects $periph INTERRUPT] set int_id [::hsi::utils::get_port_intr_id $periph $ethernet_int_signal_name] puts $file_handle "\#define $canonical_name $int_id" add_field_to_periph_config_struct $device_id $canonical_name @@ -640,17 +642,17 @@ proc xdefine_temac_interrupt {file_handle periph device_id} { proc generate_sgmii_params {drv_handle file_name} { set file_handle [::hsi::utils::open_include_file $file_name] - set ips [hsi::get_cells "*"] + set ips [get_cells "*"] foreach ip $ips { - set periph [common::get_property IP_NAME $ip] + set periph [get_property IP_NAME $ip] if { [string compare -nocase $periph "gig_ethernet_pcs_pma"] == 0} { - set PhyStandard [common::get_property CONFIG.Standard $ip] + set PhyStandard [get_property CONFIG.Standard $ip] } } foreach ip $ips { - set periph [common::get_property IP_NAME $ip] + set periph [get_property IP_NAME $ip] if { [string compare -nocase $periph "axi_ethernet_buffer"] == 0} { set phya [is_gige_pcs_pma_ip_present $ip] if { $phya == 0} { @@ -679,14 +681,14 @@ proc is_gige_pcs_pma_ip_present {slave} { set phy_addr 0 set ipconv 0 - set ips [hsi::get_cells "*"] - set enetipinstance_name [common::get_property IP_NAME $slave] + set ips [get_cells "*"] + set enetipinstance_name [get_property IP_NAME $slave] foreach ip $ips { - set periph [common::get_property IP_NAME $ip] + set periph [get_property IP_NAME $ip] if { [string compare -nocase $periph "gig_ethernet_pcs_pma"] == 0} { - set sgmii_param [common::get_property CONFIG.c_is_sgmii $ip] - set PhyStandarrd [common::get_property CONFIG.Standard $ip] + 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 } @@ -695,7 +697,7 @@ proc is_gige_pcs_pma_ip_present {slave} { } if { $ipconv != 0 } { - set port_value [hsi::get_pins -of_objects [hsi::get_nets -of_objects [hsi::get_pins -of_objects $ipconv gmii_txd]]] + set port_value [get_pins -of_objects [get_nets -of_objects [get_pins -of_objects $ipconv gmii_txd]]] if { $port_value != 0 } { if { [string compare -nocase $enetipinstance_name "axi_ethernet_buffer"] == 0} { set phyaddr [::hsi::utils::get_param_value $ipconv C_PHYADDR] diff --git a/XilinxProcessorIPLib/drivers/axiethernet/data/axiethernet_tapp.tcl b/XilinxProcessorIPLib/drivers/axiethernet/data/axiethernet_tapp.tcl index f2206e2b..f292cd7e 100755 --- a/XilinxProcessorIPLib/drivers/axiethernet/data/axiethernet_tapp.tcl +++ b/XilinxProcessorIPLib/drivers/axiethernet/data/axiethernet_tapp.tcl @@ -117,7 +117,7 @@ proc gen_init_code {swproj mhsinst} { } if {$swproj == 1} { - set ipname [common::get_property NAME $mhsinst] + set ipname [get_property NAME $mhsinst] set ifintr [::hsi::utils::is_ip_interrupting_current_proc $mhsinst] if {$ifintr == 1} { @@ -157,9 +157,9 @@ proc gen_testfunc_call {swproj mhsinst} { return "" } - set ipname [common::get_property NAME $mhsinst] + set ipname [get_property NAME $mhsinst] set deviceid [::hsi::utils::get_ip_param_name $mhsinst "DEVICE_ID"] - set stdout [common::get_property CONFIG.STDOUT [hsi::get_os]] + set stdout [get_property CONFIG.STDOUT [get_os]] if { $stdout == "" || $stdout == "none" } { set hasStdout 0 } else { @@ -175,10 +175,10 @@ proc gen_testfunc_call {swproj mhsinst} { set dma_ipname [get_dma_info $mhsinst "name"] if {$ifintr == 1} { - set intr_pin_name [hsi::get_pins -of_objects [hsi::get_cells $ipname] INTERRUPT] + set intr_pin_name [get_pins -of_objects [get_cells $ipname] INTERRUPT] set intcname [::hsi::utils::get_connected_intr_cntrl $ipname $intr_pin_name] set intcvar intc - set proc [common::get_property IP_NAME [hsi::get_cells [hsi::get_sw_processor]]] + set proc [get_property IP_NAME [get_cells [get_sw_processor]]] } @@ -350,11 +350,11 @@ proc gen_testfunc_call {swproj mhsinst} { proc get_fifo_info {mhsHandle type} { - set ipinst_list [hsi::get_cells $mhsHandle "*"] + set ipinst_list [get_cells $mhsHandle "*"] foreach ipinst $ipinst_list { - set coreName [common::get_property IP_NAME $ipinst] - set instName [common::get_property NAME $ipinst] + set coreName [get_property IP_NAME $ipinst] + set instName [get_property NAME $ipinst] if {[string compare -nocase $coreName "axi_fifo_mm_s"] == 0} { @@ -370,26 +370,26 @@ proc get_fifo_info {mhsHandle type} { } proc get_dma_info {mhsinst type} { - set ipinst_list [hsi::get_cells $mhsinst "*"] + set ipinst_list [get_cells $mhsinst "*"] - set p2p_busifs_i [hsi::get_intf_pins -of_objects $mhsinst -filter "TYPE==INITIATOR"] + set p2p_busifs_i [get_intf_pins -of_objects $mhsinst -filter "TYPE==INITIATOR"] # Add p2p periphs foreach p2p_busif $p2p_busifs_i { - set busif_name [string toupper [common::get_property NAME $p2p_busif]] + set busif_name [string toupper [get_property NAME $p2p_busif]] set conn_busif_handle [::hsi::utils::get_connected_intf $mhsinst $busif_name] if { [string compare -nocase $conn_busif_handle ""] == 0} { continue } else { # if there is a single match, we know if it is FIFO or DMA # no need for further iterations - set conn_busif_name [common::get_property NAME $conn_busif_handle] - set target_periph [hsi::get_cells -of_objects $conn_busif_handle] - set target_periph_type [common::get_property IP_NAME $target_periph] + set conn_busif_name [get_property NAME $conn_busif_handle] + set target_periph [get_cells -of_objects $conn_busif_handle] + set target_periph_type [get_property IP_NAME $target_periph] if { [string compare -nocase $target_periph_type "tri_mode_ethernet_mac"] == 0 } { continue } - set target_periph_name [string toupper [common::get_property NAME $target_periph]] - set instName [common::get_property NAME $target_periph] + set target_periph_name [string toupper [get_property NAME $target_periph]] + set instName [get_property NAME $target_periph] if {[string compare -nocase $target_periph_type "axi_dma"] == 0} { if {[string compare -nocase $type "id"] == 0} { set deviceid [::hsi::utils::get_ip_param_name $target_periph "DEVICE_ID"] diff --git a/XilinxProcessorIPLib/drivers/axivdma/data/axivdma.tcl b/XilinxProcessorIPLib/drivers/axivdma/data/axivdma.tcl index b9356d97..82e799d1 100755 --- a/XilinxProcessorIPLib/drivers/axivdma/data/axivdma.tcl +++ b/XilinxProcessorIPLib/drivers/axivdma/data/axivdma.tcl @@ -46,7 +46,7 @@ # 4.05a srt 05/01/3 Merged v4.03a driver with v4.04a driver. # Driver v4.03a - Supports VDMA IPv5.04a XPS release # Driver v4.04a - Supports VDMA IPv6.00a IPI release -# The parameters C_ENABLE_DEBUG_* are only available in +# The parameters C_ENABLE_DEBUG_* are only available in # VDMA IPv6.00a. These parameters should be set to '1' # for older versions of IP (XPS) and added this logic in # this file. @@ -76,7 +76,7 @@ proc xdefine_vdma_include_file {drv_handle file_name drv_string args} { set arg "NUM_INSTANCES" set posn [lsearch -exact $args $arg] if {$posn > -1} { - puts $file_handle "/* Definitions for driver [string toupper [common::get_property NAME $drv_handle]] */" + puts $file_handle "/* Definitions for driver [string toupper [get_property NAME $drv_handle]] */" # Define NUM_INSTANCES puts $file_handle "#define [hsi::utils::get_driver_param_name $drv_string $arg] [llength $periphs]" set args [lreplace $args $posn $posn] @@ -85,11 +85,11 @@ proc xdefine_vdma_include_file {drv_handle file_name drv_string args} { lappend newargs foreach arg $args { - set value [common::get_property CONFIG.$arg $drv_handle] + set value [get_property CONFIG.$arg $drv_handle] if {[llength $value] == 0} { lappend newargs $arg } else { - puts $file_handle "#define [hsi::utils::get_driver_param_name $drv_string $arg] [common::get_property CONFIG.$arg $drv_handle]" + puts $file_handle "#define [hsi::utils::get_driver_param_name $drv_string $arg] [get_property CONFIG.$arg $drv_handle]" } } set args $newargs @@ -98,7 +98,7 @@ proc xdefine_vdma_include_file {drv_handle file_name drv_string args} { set device_id 0 foreach periph $periphs { puts $file_handle "" - puts $file_handle "/* Definitions for peripheral [string toupper [common::get_property NAME $periph]] */" + puts $file_handle "/* Definitions for peripheral [string toupper [get_property NAME $periph]] */" foreach arg $args { if {[string compare -nocase "DEVICE_ID" $arg] == 0} { set value $device_id @@ -110,11 +110,11 @@ proc xdefine_vdma_include_file {drv_handle file_name drv_string args} { set value 0 } # Check for *_ENABLE_DEBUG_* parameters. These parameters are applicable - # to VDMA IPv6.00a (IPI release). For all the previous versions these + # to VDMA IPv6.00a (IPI release). For all the previous versions these # parameters should be set. if {[string first "ENABLE_DEBUG" $arg] >= 0} { set foundparam [::hsi::utils::get_param_value $periph $arg] - if {[llength $foundparam] == 0} { + if {[llength $foundparam] == 0} { set value 1 } } @@ -140,7 +140,7 @@ proc xdefine_vdma_canonical_xpars {drv_handle file_name drv_string args} { # Get the names of all the peripherals connected to this driver foreach periph $periphs { - set peripheral_name [string toupper [common::get_property NAME $periph]] + set peripheral_name [string toupper [get_property NAME $periph]] lappend peripherals $peripheral_name } @@ -162,7 +162,7 @@ proc xdefine_vdma_canonical_xpars {drv_handle file_name drv_string args} { set i 0 foreach periph $periphs { - set periph_name [string toupper [common::get_property NAME $periph]] + set periph_name [string toupper [get_property NAME $periph]] # Generate canonical definitions only for the peripherals whose # canonical name is not the same as hardware instance name @@ -181,11 +181,11 @@ proc xdefine_vdma_canonical_xpars {drv_handle file_name drv_string args} { set rvalue 0 } # Check for *_ENABLE_DEBUG_* parameters. These parameters are applicable - # to VDMA IPv6.00a (IPI release). For all the previous versions these + # to VDMA IPv6.00a (IPI release). For all the previous versions these # parameters should be set. if {[string first "ENABLE_DEBUG" $arg] >= 0} { set foundparam [::hsi::utils::get_param_value $periph $arg] - if {[llength $foundparam] == 0} { + if {[llength $foundparam] == 0} { set rvalue 1 } } diff --git a/XilinxProcessorIPLib/drivers/common/build/vxworks5_4/xtag_csp_common_v1_00_a.c b/XilinxProcessorIPLib/drivers/common/build/vxworks5_4/xtag_csp_common_v1_00_a.c deleted file mode 100755 index 1b43eab3..00000000 --- a/XilinxProcessorIPLib/drivers/common/build/vxworks5_4/xtag_csp_common_v1_00_a.c +++ /dev/null @@ -1,53 +0,0 @@ -/* xtag_csp_common_v1_00_a.c - Xilinx driver inclusion file */ - -/* - XILINX IS PROVIDING THIS DESIGN, CODE, OR INFORMATION "AS IS" - AS A COURTESY TO YOU, SOLELY FOR USE IN DEVELOPING PROGRAMS AND - SOLUTIONS FOR XILINX DEVICES. BY PROVIDING THIS DESIGN, CODE, - OR INFORMATION AS ONE POSSIBLE IMPLEMENTATION OF THIS FEATURE, - APPLICATION OR STANDARD, XILINX IS MAKING NO REPRESENTATION - THAT THIS IMPLEMENTATION IS FREE FROM ANY CLAIMS OF INFRINGEMENT, - AND YOU ARE RESPONSIBLE FOR OBTAINING ANY RIGHTS YOU MAY REQUIRE - FOR YOUR IMPLEMENTATION. XILINX EXPRESSLY DISCLAIMS ANY - WARRANTY WHATSOEVER WITH RESPECT TO THE ADEQUACY OF THE - IMPLEMENTATION, INCLUDING BUT NOT LIMITED TO ANY WARRANTIES OR - REPRESENTATIONS THAT THIS IMPLEMENTATION IS FREE FROM CLAIMS OF - INFRINGEMENT, IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS - FOR A PARTICULAR PURPOSE. - - (c) Copyright 2002 Xilinx Inc. - All rights reserved. - -*/ - -/* - -modification history --------------------- -01a,02apr02,rmm First release. - -*/ - -/* -DESCRIPTION -This file is used to compile the common component of the Xilinx Chip Support -Package (CSP). - -INCLUDE FILES: - -SEE ALSO: -*/ -#include "vxWorks.h" -#include "config.h" - -#ifdef INCLUDE_XCOMMON -# include "xbasic_types.c" -# include "xversion.c" -#endif - - - - - - - diff --git a/XilinxProcessorIPLib/drivers/common/data/common.mdd b/XilinxProcessorIPLib/drivers/common/data/common.mdd deleted file mode 100644 index 0b5ff234..00000000 --- a/XilinxProcessorIPLib/drivers/common/data/common.mdd +++ /dev/null @@ -1,40 +0,0 @@ -############################################################################### -# -# Copyright (C) 2004 - 2014 Xilinx, Inc. All rights reserved. -# -# Permission is hereby granted, free of charge, to any person obtaining a copy -# of this software and associated documentation files (the "Software"), to deal -# in the Software without restriction, including without limitation the rights -# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -# copies of the Software, and to permit persons to whom the Software is -# furnished to do so, subject to the following conditions: -# -# The above copyright notice and this permission notice shall be included in -# all copies or substantial portions of the Software. -# -# Use of the Software is limited solely to applications: -# (a) running on a Xilinx device, or -# (b) that interact with a Xilinx device through a bus or interconnect. -# -# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL -# XILINX BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, -# WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF -# OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE -# SOFTWARE. -# -# Except as contained in this notice, the name of the Xilinx shall not be used -# in advertising or otherwise to promote the sale, use or other dealings in -# this Software without prior written authorization from Xilinx. -# -############################################################################### - -OPTION psf_version = 2.1; - -BEGIN driver common - - OPTION NAME = common; - OPTION supported_peripherals = (); - -END driver diff --git a/XilinxProcessorIPLib/drivers/common/doc/html/api/annotated.html b/XilinxProcessorIPLib/drivers/common/doc/html/api/annotated.html deleted file mode 100644 index f90ead6e..00000000 --- a/XilinxProcessorIPLib/drivers/common/doc/html/api/annotated.html +++ /dev/null @@ -1,32 +0,0 @@ - -
- -XENV_TIME_STAMP |
-Copyright © 1995-2011 Xilinx, Inc. All rights reserved. -
- -