diff --git a/XilinxProcessorIPLib/drivers/dptx/data/dptx.tcl b/XilinxProcessorIPLib/drivers/dptx/data/dptx.tcl index 3a93308e..21bc72de 100644 --- a/XilinxProcessorIPLib/drivers/dptx/data/dptx.tcl +++ b/XilinxProcessorIPLib/drivers/dptx/data/dptx.tcl @@ -53,7 +53,7 @@ proc xdefine_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 [get_property name $drv_handle]] */" + puts $file_handle "/* Definitions for driver [string toupper [common::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] @@ -62,11 +62,11 @@ proc xdefine_include_file {drv_handle file_name drv_string args} { # Check if it is a driver parameter lappend newargs foreach arg $args { - set value [get_property CONFIG.$arg $drv_handle] + set value [common::get_property CONFIG.$arg $drv_handle] if {[llength $value] == 0} { lappend newargs $arg } else { - puts $file_handle "#define [xget_dname $drv_string $arg] [get_property $arg $drv_handle]" + puts $file_handle "#define [xget_dname $drv_string $arg] [common::get_property $arg $drv_handle]" } } set args $newargs @@ -75,7 +75,7 @@ proc xdefine_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 [get_property NAME $periph]] */" + puts $file_handle "/* Definitions for peripheral [string toupper [common::get_property NAME $periph]] */" foreach arg $args { if {[string compare -nocase "DEVICE_ID" $arg] == 0} { @@ -90,7 +90,7 @@ proc xdefine_include_file {drv_handle file_name drv_string args} { } set value $freq } else { - set value [get_property CONFIG.$arg $periph] + set value [common::get_property CONFIG.$arg $periph] } if {[llength $value] == 0} { set value 0 @@ -123,7 +123,7 @@ proc xdefine_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 [get_property NAME $periph]] + set peripheral_name [string toupper [common::get_property NAME $periph]] lappend peripherals $peripheral_name } @@ -145,7 +145,7 @@ proc xdefine_canonical_xpars {drv_handle file_name drv_string args} { set i 0 foreach periph $periphs { - set periph_name [string toupper [get_property NAME $periph]] + set periph_name [string toupper [common::get_property NAME $periph]] # Generate canonical definitions only for the peripherals whose # canonical name is not the same as hardware instance name