1# Copyright (c) 2022 Tokita, Hiroshi <tokita.hiroshi@gmail.com>
2# SPDX-License-Identifier: Apache-2.0
3
4# Checking and set 'adapter speed'.
5# Set the adaptor speed, if unset, and given as an argument.
6proc set_adapter_speed_if_not_set { speed } {
7	puts "checking adapter speed..."
8	if { [catch {adapter speed} ret] } {
9		adapter speed $speed
10	}
11}
12