diff options
-rw-r--r-- | ChangeLog | 5 | ||||
-rw-r--r-- | config/aarch64-fv8.exp | 55 |
2 files changed, 60 insertions, 0 deletions
@@ -1,3 +1,8 @@ +2016-03-22 Rob Savoye <rob.savoye@linaro.org> + + * config/aarch64-fv8.exp: Add support for testing armv8 using the + ARM Foundation Model. + 2016-03-21 Ben Elliston <bje@gnu.org> * runtest.exp: Whitespace, comment and typo fixes. diff --git a/config/aarch64-fv8.exp b/config/aarch64-fv8.exp new file mode 100644 index 0000000..17a0efc --- /dev/null +++ b/config/aarch64-fv8.exp @@ -0,0 +1,55 @@ +# Copyright (C) 2016 Free Software Foundation, Inc. +# +# This file is part of DejaGnu. +# +# DejaGnu is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# DejaGnu is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with DejaGnu; if not, write to the Free Software Foundation, +# Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. + +# This initializes the path to the Foundation Model +proc ${board}_init { hostname } { + global model + + # Get the full path to the Foundation Model + if {[board_info $hostname exists model]} { + set model "[board_info $hostname model]" + } +} + +proc ${board}_download { dest file args } { + global model timeout + + # Extract the endianess of the executable + set status [catch "exec od -An -v -j5 -N1 -t x1 $file" bigendian] + set args "--quiet" + if { $bigendian == "02"} { + set args "$args --bigendian" + } + + set result [local_exec "$model --image $file $args" "" "" $timeout] + set status [lindex $result 0] + set output [lindex $result 1] + if { $status == 0 } { + verbose "Executed $file on $model" 2 + return $file + } else { + verbose "Download to $model failed, $output." + return "" + } +} + + +proc ${board}_exec { dest file args } { + # This is a stub, since we can't execute remote commands on bare metal + return 0 +} |