Subversion Repositories openrisc

/boards/or32-elf-sim.exp File deleted

/boards/README File deleted

boards/README Property changes : Deleted: svn:eol-style ## -1 +0,0 ## -native \ No newline at end of property Deleted: svn:keywords ## -1 +0,0 ## -Id \ No newline at end of property Index: boards/or32-linux-sim.exp =================================================================== --- boards/or32-linux-sim.exp (revision 820) +++ boards/or32-linux-sim.exp (nonexistent) @@ -1,521 +0,0 @@ -#!/bin/bash - -# Copyright (C) 2010 Embecosm Limited - -# Contributor Jeremy Bennett -# Contributor Joern Rennecke - -# This file is a board description for testing OpenRISC with uClibc and -# Or1ksim running Linux. - -# This program 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. - -# This program 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 this program. If not, see . - -# ----------------------------------------------------------------------------- -# For telnet targets we need to define some functions. - -# ----------------------------------------------------------------------------- -# Custom proc to close a telnet session - -# @param[in] connhost The connected host being closed. -# ----------------------------------------------------------------------------- -proc telnet_close {connhost} { - global board_info - - verbose "telnet_close: connhost $connhost" 3 - - # Close the session - set spawn_id [board_info $connhost fileid] - catch close -i $spawn_id - catch wait -i $spawn_id - - # Check we really succeeded in closing - if [board_info $connhost exists fileid] { - verbose "telnet_close: deleting remaining fileid" - unset board_info(${connhost},fileid) - } -} - - -# ----------------------------------------------------------------------------- -# Custom proc to check if we have had too many failures - -# @param[in] boardname The board being closed. -# ----------------------------------------------------------------------------- -proc telnet_failure_check { connhost errmess } { - global board_info - - # Get the maximum failure count - set max_fc 10 - - if [board_info $connhost exists max_failure_count] { - set max_fc [board_info $connhost max_failure_count] - } - verbose "telnet_failure_check: Max failure count $max_fc" - - # Increment the current failure count - set fc 1 - if [board_info $connhost exists failure_count] { - verbose "telnet_failure_check: Incrementing failure count" - set fc [expr [board_info $connhost failure_count] + 1] - } - set board_info($connhost,failure_count) $fc - verbose "telnet_failure_check: current failure count is $fc" - - # Die if we are over the limit - if {$fc >= $max_fc} { - error "Too many failures: $errmess" - } -} - - -# ----------------------------------------------------------------------------- -# Custom proc to exec programs using telnet - -# We seem to only pass in the first of the arguments supplied to the command. - -# The timeout is a mess. It seems to always be 10, not the timeout needed to -# execute a regression test (typicall 300 seconds). Fixed by not making it -# global and using our own timeout data. - -# It also seems that only the first argument is passed. - -# @param[in] hostname The board we are telnetting to -# @param[in] cmd The command to run -# @param[in] args Arguments to the command - -# @return A list of the return code (-1 on failure) and any error message. -# ----------------------------------------------------------------------------- -proc telnet_exec {hostname cmd args} { - global board_info - global verbose - - # Get the connected host name, if it exists. This code matches - # telnet_open. - verbose "telnet_exec: original hostname is $hostname" - - if {[board_info $hostname exists name]} { - set connhost [board_info $hostname name] - } else { - set connhost $hostname - } - verbose "telnet_exec: connhost is $connhost" - - if [board_info $connhost exists hostname] { - set hostname [board_info $connhost hostname] - } - verbose "telnet_exec: hostname is $hostname" - - # Get the first argument, if any. - if { [llength $args] > 0 } { - set pargs [lindex $args 0]; - } else { - set pargs "" - } - - verbose "telnet_exec: executing on $connhost, command \"$cmd\", pargs \"$pargs\"" - - # Just check if we have more args. Potentially a second arg is an input - # file. - if { [llength $args] > 1 } { - set tinp [lindex $args 1] - if {$tinp != {}} { - verbose "telnet_exec: long args: $args" - } - } - - # Set the shell prompt - if [board_info $connhost exists shell_prompt] { - set shell_prompt [board_info $connhost shell_prompt] - } elseif ![info exists shell_prompt] { - # if no prompt, then set it to something generic - set shell_prompt "\[^\r\n\]*\[$#\] " - } - - # Start a new telnet session if one doesn't already exist. If sucessful - # the fileid field associated with $connhost will be set to the spawn_id - # of the new telnet process. - if ![board_info $connhost exists fileid] { - verbose "telnet_exec: opening new telnet connection" - if {[telnet_open $connhost] == -1} { - return [list -1 "telnet to $hostname failed for $cmd, couldn't begin telnet session"] - } - } - - # The spawn_id we'll use throughout - set spawn_id [board_info $connhost fileid] - verbose "telnet_exec: spawn_id is now $spawn_id" - - # Use a relatively short timeout for most operations. Only the command - # itself uses a long timeout. - set timeout 30 - - #Hit enter to make sure you get a shell prompt - send -i $spawn_id "\r" - - expect { - # A prompt indicates the current session is alive - -i $spawn_id -re "$shell_prompt" { - verbose "telnet_exec: got prompt at start" - } - -i $spawn_id default { - # Timeout or EOF. Die if we have had too many failures - telnet_failure_check $connhost "no prompt at telnet start" - - # Try closing the connection and reopening. - telnet_close $connhost - if {[telnet_open $connhost] != -1} { - set spawn_id [board_info $connhost fileid] - verbose "telnet_exec: new telnet session, spawn_id: $spawn_id" - send -i $spawn_id "\r" - exp_continue - } else { - return [list -1 "telnet to $hostname failed for $cmd, couldn't get a shell prompt"] - } - } - } - - # Send the command. We can't cope with any input, so only the first - # argument (group) is sent. - send -i $spawn_id -- "$cmd $pargs\r" - - # We really should get the command echoed back immediately. This is a good - # way of slurping up unexpected prompts. We first swap out any characters - # from the command and args that might cause us grief. - regsub -all "\\+" "$cmd $pargs" "." cmdpargs - verbose "telnet_exec: command match string is \"$cmdpargs\"" - - expect { - -i $spawn_id -re "$cmdpargs" { - verbose "telnet_exec: got command echoed back" - } - -i $spawn_id default { - verbose "telnet_exec: command not echoed: command expect_out(buffer): \"$expect_out(buffer)\"" - } - } - - # Set the telnet command custom timeout to wait for the command to - # complete executing. - if [board_info $connhost exists telnet_exec_timeout] { - set timeout [board_info $connhost telnet_exec_timeout] - verbose "telnet_exec: command timeout set to $timeout" - } else { - # Appropriate default - set timeout 300 - verbose "telnet_exec: command timeout set to default value $timeout" - } - - expect { - -i $spawn_id -re "$shell_prompt" { - verbose "telnet_exec: got prompt after command" - } - -i $spawn_id default { - # Give up on timeout or EOF - telnet_close $connhost - return [list -1 "telnet to $hostname for $cmd $pargs failed (timeout)"] - } - } - - # Remove unnecessary strings from the output string - verbose "telnet_exec: command expect_out(buffer): \"$expect_out(buffer)\"" - regsub -all $cmdpargs "$expect_out(buffer)" {} output - regsub "$shell_prompt" $output {} output - regsub -all "\[\r\n\]" $output {} output - - if {$output == ""} { - set output "(no output)" - } else { - set output "\"$output\"" - } - - verbose "telnet_exec: command output $output" - - # Check the return status. Use a short timeout for this and following - # commands. - set timeout 30 - send -i $spawn_id "echo \$?\r" - - # Once again, look for the "echo" reflected back as a way of slurping up - # unexpected prompts. We don't worry about timeout here - we'll sort that - # out later. - expect { - -i $spawn_id -re "echo \\$\\?" { - verbose "telnet_exec: got \"echo\" echoed back" - } - -i $spawn_id default { - verbose "telnet_exec: echo not echoed: command expect_out(buffer): \"$expect_out(buffer)\"" - } - } - - # Look for the shell prompt. Don't worry about timeout for now. It only - # really matters if we don't get a valid status, which we'll discover - # below. - expect { - -i $spawn_id -re "$shell_prompt" { - verbose "telnet_exec: got status shell prompt" - } - -i $spawn_id default { - verbose "telnet_exec: no status shell prompt: command expect_out(buffer): \"$expect_out(buffer)\"" - } - } - - # Regsub the output to get the status number - verbose "telnet_exec: status expect_out(buffer): \"$expect_out(buffer)\"" - regsub -all {echo \$\?} $expect_out(buffer) {} status - regsub "$shell_prompt" $status {} status - regsub -all "\[\r\n \]" $status {} status - verbose "telnet_exec: status \"$status\"" - - # This shouldn't be neccessary... - if {[regexp {[0123456789]+} $status] != 1} { - warning "status not a number (\"$status\"), setting to 1" - verbose "telnet_exec: status (\"$status\"), expect_out(buffer): \"$expect_out(buffer)\"" - set status 1 - - # Die if we have had too many failures like this. - telnet_failure_check $connhost "bad status" - } - - if {$status == 0} { - return [list "0" "$output"] - } else { - return [list "1" "$output"] - } -} - - -# ----------------------------------------------------------------------------- -# For FTP we need to redefine some existing functions to add additional -# features. - -# ----------------------------------------------------------------------------- -# Upload REMOTEFILE from HOST as LOCALFILE by FTP - -# This version swaps the argument order, which is what the regression test -# seems to expect. - -# Also allows a custom timeout to be set. - -# @param[in] host The host we are connected to. -# @param[in] localfile The local file to send -# @param[in] remotefile Name of file at remote end. -# ----------------------------------------------------------------------------- -proc ftp_upload {host localfile remotefile} { - global board_info - - set prompt "ftp>" - verbose "ftping $remotefile from $host to $localfile" - - # JPB to set custom timeout (not marked global, so we don't need to save - # and restore) - if [board_info $host exists ftp_upload_timeout] { - set timeout [board_info $host ftp_upload_timeout] - verbose "FTP upload timeout set to $timeout" - } else { - # Appropriate default - set timeout 15 - verbose "FTP upload timeout set to default value $timeout" - } - - set spawn_id [ftp_open $host] - if {$spawn_id < 0} { - return "" - } - set loop 1 - - while {$loop} { - send -i $spawn_id "get $remotefile $localfile\n" - expect { - -i $spawn_id -re ".*Too many open files.*$prompt" { - ftp_close $host - } - -i $spawn_id -re ".*No such file or directory.*$prompt" { - set loop 0 - set remotefile "" - } - -i $spawn_id -re "(^|\[\r\n\])226.*$prompt" {set loop 0} - -i $spawn_id -re "(^|\[\r\n\])\[0-9\]\[0-9\]\[0-9\].*$prompt" { - set loop 0 - set remotefile "" - } - -i $spawn_id default { - ftp_close $host - } - } - if {$loop} { - set spawn_id [ftp_open $host] - if {$spawn_id < 0} { - return "" - } - } - } - return $localfile -} - - -# ----------------------------------------------------------------------------- -# Download LOCALFILE to HOST as REMOTEFILE by FTP - -# This version takes a user specified timeout, which we need for our slow -# simulated connection. - -# @param[in] host The host we are connected to. -# @param[in] localfile The local file to send -# @param[in] remotefile Name of file at remote end. -# ----------------------------------------------------------------------------- -proc ftp_download {host localfile remotefile} { - global board_info - - set prompt "ftp>" - - verbose "putting $localfile $remotefile" - - if [board_info $host exists hostname] { - set remotehost [board_info $host hostname] - } else { - set remotehost $host - } - - set spawn_id [ftp_open $host] - if {$spawn_id < 0} { - return "" - } - set loop 1 - - # JPB to set custom timeout (not marked global, so we don't need to save - # and restore) - if [board_info $host exists ftp_download_timeout] { - set timeout [board_info $host ftp_download_timeout] - verbose "FTP download timeout set to $timeout" - } else { - # Appropriate default - set timeout 15 - verbose "FTP download timeout set to default value $timeout" - } - - while {$loop} { - send -i $spawn_id "put $localfile $remotefile\n" - expect { - -i $spawn_id -re ".*Too many open files.*$prompt" { - ftp_close $host - } - -i $spawn_id -re ".*No such file or directory.*$prompt" { - set loop 0 - set remotefile "" - } - -re "(^|\[\r\n\])150.*connection for (.*) \[(\]\[0-9.,\]+\\)\[\r\n\]" { - set remotefile $expect_out(2,string) - exp_continue - } - -i $spawn_id -re "(^|\[\r\n\])226.*$prompt" { - set loop 0 - } - -i $spawn_id -re "Timeout.*$prompt" { - ftp_close $host - } - -i $spawn_id -re "(^|\[\r\n\])\[0-9\]\[0-9\]\[0-9\].*$prompt" { - set loop 0 - set remotefile "" - } - -i $spawn_id default { - ftp_close $host - } - } - if {$loop} { - set spawn_id [ftp_open $host] - if {$spawn_id < 0} { - return "" - } - } - } - return $remotefile -} - - -# This is a list of toolchains that are supported on this board. -set_board_info target_install {or32-linux} - -# No multilib options needed by default. -process_multilib_options "" - -# Load the generic configuration for this board. This will define a basic set -# of routines needed by the tool to communicate with the board. -load_generic_config "unix" - -# Set up remote target info. We select the IP address using an external -# program which knows about all available Linuxes. -set linux_hostname [exec [file dirname $env(DEJAGNU)]/get-ip.sh --rotate] -set_board_info hostname $linux_hostname -send_user "OR32 target hostname is $linux_hostname\n" - -set_board_info username root - -# Use the installed compilers to ensure we get search paths that will find -# uClibc. -send_user "set_board_info compiler /opt/or32-new/bin/or32-linux-gcc\n" -global GCC_UNDER_TEST -set GCC_UNDER_TEST "/opt/or32-new/bin/or32-linux-gcc" -global GXX_UNDER_TEST -set GXX_UNDER_TEST "/opt/or32-new/bin/or32-linux-g++" -set_board_info compiler /opt/or32-new/bin/or32-linux-gcc -set_board_info c++compiler /opt/or32-new/bin/or32-linux-g++ -set target_alias "or32-linux" - -set_board_info connect telnet -set_board_info shell_prompt "\[^\r\n\]*# " -set_board_info telnet_username "root" -set_board_info telnet_password "" -set_board_info telnet_exec_timeout 1200 - -set_board_info file_transfer ftp -set_board_info ftp_username root -set_board_info ftp_password "" -set_board_info ftp_download_timeout 120 -set_board_info ftp_upload_timeout 120 - -# Options for the simulator -# set cfg_file [lookfor_file ${srcdir} libgloss/or32/sim.cfg] -#set_board_info sim,options "-a \"-f ${cfg_file}\"" - -# We only support uClibc on this target. We assume that all multilib options -# have been specified before we get here. -#set_board_info compiler "[find_gcc]" - -# We need to define this flag to generate default .gcda files if we are using -# a stock compiler, without the profopt.exp changes. No problem with doubling -# up the argument in normal circumstances. -set_board_info cflags "-fprofile-dir=." -set_board_info cxxflags "-fprofile-dir=." - -# No linker script needed. -set_board_info ldscript "" - -# This simulator isn't slow. -set_board_info slow_simulator 0 - -# Can't pass arguments to programs on this target.. -set_board_info noargs 1 - -# Used by a few gcc.c-torture testcases to delimit how large the stack can -# be. -set_board_info gcc,stack_size 65536 - -# GDB options - -# We can't do input in GDB (yet! HA!). It *will* do output, hurrah. -set_board_info gdb,noinferiorio 1 -# Or pass arguments. -set_board_info gdb,noargs 1 -set_board_info noargs 1 -# And there's no support for signals. -set_board_info gdb,nosignals 1