2015-01-08 21:08:48 +00:00
|
|
|
set qemu_spawn_id ""
|
|
|
|
set qemu_args [get_cmd_arg --qemu-args ""]
|
|
|
|
|
|
|
|
|
|
|
|
#
|
|
|
|
# Enable run scripts to extend 'qemu_arg' via 'append' without bothering
|
|
|
|
# about the required whitespace in front of the custom arguments.
|
|
|
|
#
|
|
|
|
append qemu_args " "
|
|
|
|
|
|
|
|
|
|
|
|
proc qemu_args { } {
|
|
|
|
global qemu_args
|
|
|
|
return $qemu_args
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
##
|
|
|
|
# Check whether Qemu support is available
|
|
|
|
#
|
|
|
|
# XXX should by removed in favor of [have_include "exec/qemu"]
|
|
|
|
#
|
|
|
|
proc is_qemu_available { } {
|
2017-10-20 12:11:44 +00:00
|
|
|
if {[expr [have_spec linux] && {"[board]"} == {"linux"}]} { return false }
|
2015-01-08 21:08:48 +00:00
|
|
|
|
2020-03-23 13:45:58 +00:00
|
|
|
if {[have_spec arndale]
|
2015-09-03 12:55:05 +00:00
|
|
|
|| [have_spec rpi]} {
|
2015-01-08 21:08:48 +00:00
|
|
|
puts stderr "skipping execution because platform is not supported by qemu"
|
|
|
|
return false
|
|
|
|
}
|
|
|
|
return true
|
|
|
|
}
|