pld: give devices a name for referencing in scripts
Change-Id: I05e8596ffacdb6cd8da4dd8a40bb460183f4930a Signed-off-by: Daniel Anselmi <danselmi@gmx.ch> Reviewed-on: https://review.openocd.org/c/openocd/+/7728 Tested-by: jenkins Reviewed-by: Antonio Borneo <borneo.antonio@gmail.com>
This commit is contained in:
committed by
Antonio Borneo
parent
7335fbdbda
commit
5ae0264055
@@ -1108,4 +1108,18 @@ proc "am335xgpio led_on_state" {state} {
|
||||
}
|
||||
}
|
||||
|
||||
lappend _telnet_autocomplete_skip "pld device"
|
||||
proc "pld device" {driver tap_name {opt 0}} {
|
||||
echo "DEPRECATED! use 'pld create ...', not 'pld device ...'"
|
||||
if {[string is integer -strict $opt]} {
|
||||
if {$opt == 0} {
|
||||
eval pld create [lindex [split $tap_name .] 0].pld $driver -chain-position $tap_name
|
||||
} else {
|
||||
eval pld create [lindex [split $tap_name .] 0].pld $driver -chain-position $tap_name -no_jstart
|
||||
}
|
||||
} else {
|
||||
eval pld create [lindex [split $tap_name .] 0].pld $driver -chain-position $tap_name -family $opt
|
||||
}
|
||||
}
|
||||
|
||||
# END MIGRATION AIDS
|
||||
|
||||
Reference in New Issue
Block a user