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

cpu_cortexa9 : added common namespace to all common tcl commands.

Browse source 
Signed-off-by: Kishore Kumar Korathaluri <kkorath@xilinx.com>
This commit is contained in:
Kishore Kumar Korathaluri 2015-01-09 15:20:37 +05:30 • committed by Suneel Garapati
parent b2f51d272a
commit c64e5c9e79
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
XilinxProcessorIPLib/drivers/cpu_cortexa9/data/cpu_cortexa9.tcl
View file

@ -34,7 +34,7 @@
#
# Ver Who Date Changes
# ----- ---- -------- -----------------------------------------------
# 1.00a sdm 05/16/10 Updated to support AXI version of the core
# 1.00a sdm 05/16/10 Updated to support AXI common::version of the core
# 2.0 adk 10/12/13 Updated as per the New Tcl API's
# 2.1 pkp 06/27/14 Updated the tcl to create empty libxil for IAR support in BSP
#
@ -55,9 +55,9 @@ proc generate {drv_handle} {
proc xdefine_cortexa9_params {drvhandle} {
set sw_proc_handle [hsi::get_sw_processor]
set hw_proc_handle [hsi::get_cells [get_property HW_INSTANCE $sw_proc_handle ]]
set hw_proc_handle [hsi::get_cells [common::get_property HW_INSTANCE $sw_proc_handle ]]
set procdrv [hsi::get_sw_processor]
set archiver [get_property CONFIG.archiver $procdrv]
set archiver [common::get_property CONFIG.archiver $procdrv]
if {[string first "iarchive" $archiver] < 0 } {
} else {
set libxil_a [file join .. .. lib libxil.a]
@ -77,7 +77,7 @@ proc xdefine_cortexa9_params {drvhandle} {
puts $config_inc "/* Definition for CPU ID */"
foreach periph $periphs {
set iname [get_property NAME $periph]
set iname [common::get_property NAME $periph]
#-----------
# Set CPU ID
@ -96,28 +96,28 @@ proc xdefine_cortexa9_params {drvhandle} {
proc xdefine_addr_params_for_ext_intf {drvhandle file_name} {
set sw_proc_handle [hsi::get_sw_processor]
set hw_proc_handle [hsi::get_cells [get_property HW_INSTANCE $sw_proc_handle ]]
set hw_proc_handle [hsi::get_cells [common::get_property HW_INSTANCE $sw_proc_handle ]]
# Open include file
set file_handle [::hsi::utils::open_include_file $file_name]
set mem_ranges [hsi::get_mem_ranges -of_objects $hw_proc_handle]
foreach mem_range $mem_ranges {
set inst [get_property INSTANCE $mem_range]
set inst [common::get_property INSTANCE $mem_range]
if {$inst != ""} {
continue
}
set bparam_name [get_property BASE_NAME $mem_range]
set bparam_value [get_property BASE_VALUE $mem_range]
set hparam_name [get_property HIGH_NAME $mem_range]
set hparam_value [get_property HIGH_VALUE $mem_range]
set bparam_name [common::get_property BASE_NAME $mem_range]
set bparam_value [common::get_property BASE_VALUE $mem_range]
set hparam_name [common::get_property HIGH_NAME $mem_range]
set hparam_value [common::get_property HIGH_VALUE $mem_range]
# Print all parameters for all peripherals
set name [string toupper [get_property NAME $mem_range]]
set name [string toupper [common::get_property NAME $mem_range]]
puts $file_handle ""
puts $file_handle "/* Definitions for interface [string toupper $name] */"
set name [format "XPAR_%s_" $name]
@ -135,7 +135,7 @@ proc xdefine_addr_params_for_ext_intf {drvhandle file_name} {
puts $file_handle "#define $name $value"
}
set name [string toupper [get_property NAME $mem_range]]
set name [string toupper [common::get_property NAME $mem_range]]
set name [format "XPAR_%s_" $name]
if {$hparam_value != ""} {
set value [::hsi::utils::format_addr_string $hparam_value $hparam_name]