espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-22 02:50:08 +08:00
Code Issues Packages Projects Releases Wiki Activity

* lib/sim-defs.exp (sim_run): Argument env_vals renamed to options,

Browse Source 
which is now a list of options controlling the behaviour of sim_run.
This commit is contained in:
Doug Evans
1998-06-12 01:08:26 +00:00
parent c18f8aef72
commit 2a62c9b87b
1 changed files with 32 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
sim/testsuite/lib/sim-defs.exp
View File

@ -40,7 +40,15 @@ proc sim_compile { source dest type options } {
# Run a program on the simulator. # Run a program on the simulator.
# Required by dejagnu (at least ${tool}_run used to be). # Required by dejagnu (at least ${tool}_run used to be).
# #
# SIM_OPTS are options for the simulator.
# PROG_OPTS are options passed to the simulated program.
# At present REDIR must be "" or "> foo". # At present REDIR must be "" or "> foo".
# OPTIONS is a list of options internal to this routine.
# This is modelled after target_compile. We want to be able to add new
# options without having to update all our users.
# Currently:
# env(foo)=val - set environment variable foo to val for this run
# timeout=val - set the timeout to val for this run
# #
# The result is a list of two elements. # The result is a list of two elements.
# The first is one of pass/fail/etc. # The first is one of pass/fail/etc.
@ -50,9 +58,10 @@ proc sim_compile { source dest type options } {
# dejagnu/config/sim.exp. It's not clear how to pass arguments to the # dejagnu/config/sim.exp. It's not clear how to pass arguments to the
# simulator (not the simulated program, the simulator) with sim_load. # simulator (not the simulated program, the simulator) with sim_load.
proc sim_run { prog sim_opts prog_opts redir env_vals } { proc sim_run { prog sim_opts prog_opts redir options } {
global SIMFLAGS global SIMFLAGS
# Set the default value of the timeout.
# FIXME: The timeout value we actually want is a function of # FIXME: The timeout value we actually want is a function of
# host, target, and testcase. # host, target, and testcase.
set testcase_timeout [board_info target sim_time_limit] set testcase_timeout [board_info target sim_time_limit]
@ -63,11 +72,23 @@ proc sim_run { prog sim_opts prog_opts redir env_vals } {
set testcase_timeout 240 ;# 240 same as in dejagnu/config/sim.exp. set testcase_timeout 240 ;# 240 same as in dejagnu/config/sim.exp.
} }
# Initial the environment we pass to the testcase.
set testcase_env ""
# Process OPTIONS ...
foreach o $options {
if [regexp {^env\((.*)\)=(.*)} $o full var val] {
set testcase_env "$testcase_env $var=$val"
} elseif [regexp {^timeout=(.*)} $o full val] {
set testcase_timeout $val
}
}
set sim [board_info target sim] set sim [board_info target sim]
# FIXME: this works for UNIX only # FIXME: this works for UNIX only
if { "$env_vals" != "" } { if { "$testcase_env" != "" } {
set sim "env $env_vals $sim" set sim "env $testcase_env $sim"
} }
if { "$redir" == "" } { if { "$redir" == "" } {
@ -128,6 +149,7 @@ proc run_sim_test { name } {
set opts(sim) {} set opts(sim) {}
set opts(output) {} set opts(output) {}
set opts(mach) {} set opts(mach) {}
set opts(timeout) {}
foreach i $opt_array { foreach i $opt_array {
set opt_name [lindex $i 0] set opt_name [lindex $i 0]
@ -184,7 +206,13 @@ proc run_sim_test { name } {
set opts(sim,$mach) $opts(sim) set opts(sim,$mach) $opts(sim)
} }
set result [sim_run ${name}.x "$opts(sim,$mach)" "" "" ""] # Build the options argument.
set options ""
if { "$opts(timeout)" != "" } {
set options "$options timeout=$opts(timeout)"
}
set result [sim_run ${name}.x "$opts(sim,$mach)" "" "" "$options"]
set status [lindex $result 0] set status [lindex $result 0]
set output [lindex $result 1] set output [lindex $result 1]