startup.tcl: remove commands already deprecated in v0.7.0
Some command were already marked as deprecated in release v0.7.0, more then 7 years ago, and for some of them the depredation date is even earlier. We can reasonably expect that in these 7 years any user of OpenOCD has already migrated to v0.7.0 or to some following intermediate build, thus has already updated any local/personal script to get rid of the deprecated message. Drop the commands already deprecated in v0.7.0. Change-Id: I81cdc415ab855ebf30980ef5199f9780c5d7f932 Signed-off-by: Antonio Borneo <borneo.antonio@gmail.com> Reviewed-on: http://openocd.zylin.com/6085 Tested-by: jenkins Reviewed-by: Tarek BOCHKATI <tarek.bouchkati@gmail.com> Reviewed-by: Tomas Vanek <vanekt@fbl.cz>
This commit is contained in:
@@ -117,23 +117,8 @@ proc jtag_ntrst_assert_width args {
|
||||
# JTAG-specific names despite the fact that the operations were not
|
||||
# specific to JTAG, or otherwise had troublesome/misleading names.
|
||||
#
|
||||
# FIXME phase these aids out after about April 2011
|
||||
# FIXME phase these aids out after some releases
|
||||
#
|
||||
proc jtag_khz args {
|
||||
echo "DEPRECATED! use 'adapter speed' not 'jtag_khz'"
|
||||
eval adapter speed $args
|
||||
}
|
||||
|
||||
proc jtag_nsrst_delay args {
|
||||
echo "DEPRECATED! use 'adapter srst delay' not 'jtag_nsrst_delay'"
|
||||
eval adapter srst delay $args
|
||||
}
|
||||
|
||||
proc jtag_nsrst_assert_width args {
|
||||
echo "DEPRECATED! use 'adapter srst pulse_width' not 'jtag_nsrst_assert_width'"
|
||||
eval adapter srst pulse_width $args
|
||||
}
|
||||
|
||||
proc jtag_reset args {
|
||||
echo "DEPRECATED! use 'adapter \[de\]assert' not 'jtag_reset'"
|
||||
switch $args {
|
||||
@@ -150,32 +135,6 @@ proc jtag_reset args {
|
||||
}
|
||||
}
|
||||
|
||||
# stlink migration helpers
|
||||
proc stlink_device_desc args {
|
||||
echo "DEPRECATED! use 'hla_device_desc' not 'stlink_device_desc'"
|
||||
eval hla_device_desc $args
|
||||
}
|
||||
|
||||
proc stlink_serial args {
|
||||
echo "DEPRECATED! use 'hla_serial' not 'stlink_serial'"
|
||||
eval hla_serial $args
|
||||
}
|
||||
|
||||
proc stlink_layout args {
|
||||
echo "DEPRECATED! use 'hla_layout' not 'stlink_layout'"
|
||||
eval hla_layout $args
|
||||
}
|
||||
|
||||
proc stlink_vid_pid args {
|
||||
echo "DEPRECATED! use 'hla_vid_pid' not 'stlink_vid_pid'"
|
||||
eval hla_vid_pid $args
|
||||
}
|
||||
|
||||
proc stlink args {
|
||||
echo "DEPRECATED! use 'hla' not 'stlink'"
|
||||
eval hla $args
|
||||
}
|
||||
|
||||
proc adapter_khz args {
|
||||
echo "DEPRECATED! use 'adapter speed' not 'adapter_khz'"
|
||||
eval adapter speed $args
|
||||
|
||||
Reference in New Issue
Block a user