08092b8d48
CR: 767582 Wall Data: Originally submitted from RDI_kkorath_new Build Type: full Test Types: pre-commits, gui pre-commits [git-p4: depot-paths = "//Rodin/HEAD/data/embeddedsw/": change = 926519]
245 lines
8.8 KiB
Tcl
Executable file
245 lines
8.8 KiB
Tcl
Executable file
###############################################################################
|
|
#
|
|
# Copyright (C) 2007 - 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 THE
|
|
# XILINX CONSORTIUM 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.
|
|
#
|
|
#
|
|
# Modification History
|
|
#
|
|
# Ver Who Date Changes
|
|
# ----- ---- -------- -----------------------------------------------
|
|
# 3.01a sdm 05/06/10 Updated to support AXI version of the core
|
|
# 3.01a sdm 05/06/11 Updated to handle mutex connected through axi2axiconnector
|
|
# 3.02a bss 01/31/13 Updated script to fix CR #679127
|
|
# 4.0 bss 12/10/13 Updated as per the New Tcl API's
|
|
#
|
|
###############################################################################
|
|
#uses "xillib.tcl"
|
|
|
|
proc generate {drv_handle} {
|
|
xdefine_mutex_config_files $drv_handle "xparameters.h" "xmutex_g.c" "XMutex"
|
|
xdefine_canonical_xpars $drv_handle "xparameters.h" "Mutex" "C_NUM_MUTEX" "C_ENABLE_USER"
|
|
}
|
|
|
|
#
|
|
# Create configuration data of an interface, for c/h files as required by Xilinx drivers
|
|
#
|
|
proc xdefine_mutex_config_if {periph hfile_handle cfile_handle num_ifs dev_id has_if0_dev_id} {
|
|
upvar $dev_id device_id
|
|
upvar $has_if0_dev_id if0_connected
|
|
|
|
set mutex_baseaddr 0
|
|
set mutex_enableuser 0
|
|
set mutex_num 0
|
|
set if_connected 0
|
|
|
|
set periph_name [string toupper [get_property NAME $periph]]
|
|
|
|
|
|
for {set x 0} {$x < $num_ifs} {incr x} {
|
|
set if_connected [check_if_connected $periph $x]
|
|
|
|
if {$if_connected} {
|
|
|
|
set mutex_baseaddr [get_property CONFIG.[format "C_S%d_AXI_BASEADDR" $x] $periph]
|
|
set mutex_enableuser [get_property CONFIG.C_ENABLE_USER $periph]
|
|
set mutex_num [get_property CONFIG.C_NUM_MUTEX $periph]
|
|
|
|
puts $hfile_handle ""
|
|
puts $hfile_handle "/* Definitions for peripheral $periph_name IF ${x} */"
|
|
puts $hfile_handle [format "#define XPAR_%s_IF_%d_DEVICE_ID %s" $periph_name $x $device_id]
|
|
|
|
if {!$if0_connected} {
|
|
puts $hfile_handle [format "#define XPAR_%s_TESTAPP_ID %s" $periph_name $device_id]
|
|
}
|
|
|
|
puts $hfile_handle [format "#define XPAR_%s_IF_%d_BASEADDR 0x%X" $periph_name $x $mutex_baseaddr]
|
|
puts $hfile_handle [format "#define XPAR_%s_IF_%d_NUM_MUTEX %s" $periph_name $x $mutex_num]
|
|
puts $hfile_handle [format "#define XPAR_%s_IF_%d_ENABLE_USER %s" $periph_name $x $mutex_enableuser]
|
|
|
|
puts $cfile_handle "\t\{"
|
|
puts $cfile_handle [format "\t\t XPAR_%s_IF_%d_DEVICE_ID, " $periph_name $x]
|
|
puts $cfile_handle [format "\t\t XPAR_%s_IF_%d_BASEADDR, " $periph_name $x]
|
|
puts $cfile_handle [format "\t\t XPAR_%s_IF_%d_NUM_MUTEX, " $periph_name $x]
|
|
puts $cfile_handle [format "\t\t XPAR_%s_IF_%d_ENABLE_USER, " $periph_name $x]
|
|
puts -nonewline $cfile_handle "\t\}"
|
|
puts $cfile_handle ","
|
|
set if0_connected 1
|
|
incr device_id
|
|
}
|
|
}
|
|
}
|
|
|
|
#
|
|
# Create configuration c/h files as required by Xilinx drivers
|
|
#
|
|
proc xdefine_mutex_config_files {drv_handle hfile_name cfile_name drv_string} {
|
|
|
|
# Open include file
|
|
set hfile_handle [::hsm::utils::open_include_file $hfile_name]
|
|
set cfile_name [file join "src" $cfile_name]
|
|
file delete $cfile_name
|
|
set cfile_handle [open $cfile_name w]
|
|
|
|
::hsm::utils::write_c_header $cfile_handle "Driver configuration"
|
|
puts $cfile_handle "#include \"xparameters.h\""
|
|
puts $cfile_handle "#include \"[string tolower $drv_string].h\""
|
|
puts $cfile_handle "\n/*"
|
|
puts $cfile_handle "* The configuration table for devices"
|
|
puts $cfile_handle "*/\n"
|
|
puts $cfile_handle [format "%s_Config %s_ConfigTable\[\] =" $drv_string $drv_string]
|
|
puts $cfile_handle "\{"
|
|
|
|
# Get all peripherals connected to this driver
|
|
set periphs [::hsm::utils::get_common_driver_ips $drv_handle]
|
|
|
|
# Print all parameters for all peripherals
|
|
set device_id 0
|
|
foreach periph $periphs {
|
|
set has_if0_device_id 0
|
|
set num_ifs [get_property CONFIG.C_NUM_AXI $periph]
|
|
xdefine_mutex_config_if $periph $hfile_handle $cfile_handle $num_ifs device_id has_if0_device_id
|
|
}
|
|
|
|
puts $cfile_handle "\};"
|
|
close $cfile_handle
|
|
|
|
puts $hfile_handle ""
|
|
puts $hfile_handle "/* Definitions for driver MUTEX */"
|
|
puts $hfile_handle [format "#define XPAR_XMUTEX_NUM_INSTANCES %d" $device_id]
|
|
puts $hfile_handle "\n/******************************************************************/\n"
|
|
close $hfile_handle
|
|
}
|
|
|
|
proc check_if_connected {periph if_num} {
|
|
set sw_proc_handle [get_sw_processor]
|
|
set hw_proc_handle [get_cells $sw_proc_handle]
|
|
set if_isaxi 0
|
|
|
|
set baseaddr [get_property CONFIG.[format "C_S%d_AXI_BASEADDR" $if_num] $periph]
|
|
set mem [get_mem_ranges -of_objects $hw_proc_handle -filter "INSTANCE==$periph"]
|
|
if {[llength $mem] != 0} {
|
|
set addrs [get_property BASE_VALUE $mem]
|
|
foreach addr $addrs {
|
|
if {$addr == $baseaddr} {
|
|
set if_isaxi 1
|
|
}
|
|
}
|
|
}
|
|
|
|
if {$if_isaxi == 1} {
|
|
return 1
|
|
} else {
|
|
return 0
|
|
}
|
|
}
|
|
|
|
#
|
|
# Given a list of arguments, define each as a canonical constant name, using
|
|
# the driver name, in an include file.
|
|
#
|
|
proc gen_canonical_device_id {file_handle canonical_name periph_name if_num} {
|
|
set lvalue [::hsm::utils::get_driver_param_name $canonical_name "DEVICE_ID"]
|
|
set rvalue "XPAR_${periph_name}_IF_${if_num}_DEVICE_ID"
|
|
puts $file_handle "#define $lvalue $rvalue"
|
|
}
|
|
|
|
proc gen_canonical_param_def {file_handle canonical_name periph param_prefix params} {
|
|
foreach arg $params {
|
|
if {$param_prefix == ""} {
|
|
set actual_arg "${arg}"
|
|
} else {
|
|
set actual_arg "${param_prefix}_${arg}"
|
|
}
|
|
set lvalue [::hsm::utils::get_driver_param_name $canonical_name $arg]
|
|
|
|
|
|
# The rvalue set below is the actual value of the parameter
|
|
set rvalue [::hsm::utils::get_param_value $periph $actual_arg]
|
|
if {[llength $rvalue] == 0} {
|
|
set rvalue 0
|
|
}
|
|
set rvalue [::hsm::utils::format_addr_string $rvalue $actual_arg]
|
|
|
|
puts $file_handle "#define $lvalue $rvalue"
|
|
}
|
|
}
|
|
|
|
proc gen_canonical_if_def {file_handle periph num_ifs drv_string dev_id common_params} {
|
|
upvar $dev_id device_id
|
|
|
|
set periph_name [string toupper [get_property NAME $periph]]
|
|
set canonical_name [format "%s_%s" $drv_string $device_id]
|
|
|
|
# Make sure canonical name is not the same as hardware instance
|
|
if { [string compare -nocase $canonical_name $periph_name] == 0 } {
|
|
return
|
|
}
|
|
|
|
for {set x 0} {$x < $num_ifs} {incr x} {
|
|
set if_connected [check_if_connected $periph $x]
|
|
puts "correct"
|
|
puts $if_connected
|
|
|
|
if {$if_connected} {
|
|
puts $file_handle ""
|
|
puts $file_handle "/* Canonical definitions for peripheral $periph_name IF ${x} */"
|
|
|
|
gen_canonical_device_id $file_handle $canonical_name $periph_name $x
|
|
|
|
set addr_args [list "BASEADDR" "HIGHADDR"]
|
|
|
|
gen_canonical_param_def $file_handle $canonical_name $periph "C_S${x}_AXI" $addr_args
|
|
gen_canonical_param_def $file_handle $canonical_name $periph "" $common_params
|
|
|
|
incr device_id
|
|
puts $file_handle ""
|
|
}
|
|
}
|
|
}
|
|
|
|
#
|
|
# Given a list of arguments, define each as a canonical constant name, using
|
|
# the driver name, in an include file.
|
|
#
|
|
proc xdefine_canonical_xpars {drv_handle file_name drv_string args} {
|
|
# Open include file
|
|
set file_handle [::hsm::utils::open_include_file $file_name]
|
|
|
|
# Get all peripherals connected to this driver
|
|
set periphs [::hsm::utils::get_common_driver_ips $drv_handle]
|
|
|
|
# Print canonical parameters for each peripheral
|
|
set device_id 0
|
|
foreach periph $periphs {
|
|
set num_ifs [::hsm::utils::get_param_value $periph "C_NUM_AXI"]
|
|
gen_canonical_if_def $file_handle $periph $num_ifs $drv_string device_id $args
|
|
}
|
|
puts $file_handle "\n/******************************************************************/\n"
|
|
close $file_handle
|
|
}
|