diff options
| author | Hans-Peter Nilsson <hp@axis.com> | 2009-01-18 22:17:47 +0000 |
|---|---|---|
| committer | Hans-Peter Nilsson <hp@axis.com> | 2009-01-18 22:17:47 +0000 |
| commit | fa0cbd5ae8fc7f1af5bbfdb52293cb79caf313c4 (patch) | |
| tree | fd133407f9e73bc8a0d96afe3058cab27c8b419e /sim/testsuite/lib | |
| parent | c10b3605497aa9c927f6399d23f9f5b2a32b8029 (diff) | |
| download | fsf-binutils-gdb-fa0cbd5ae8fc7f1af5bbfdb52293cb79caf313c4.zip fsf-binutils-gdb-fa0cbd5ae8fc7f1af5bbfdb52293cb79caf313c4.tar.gz fsf-binutils-gdb-fa0cbd5ae8fc7f1af5bbfdb52293cb79caf313c4.tar.bz2 | |
* sim/cris/asm/opterr5.ms, sim/cris/asm/opterr4.ms,
sim/cris/asm/opterr3.ms, sim/cris/asm/bare3.ms: New tests.
* lib/sim-defs.exp (run_sim_test): New option progopts.
Diffstat (limited to 'sim/testsuite/lib')
| -rw-r--r-- | sim/testsuite/lib/sim-defs.exp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/sim/testsuite/lib/sim-defs.exp b/sim/testsuite/lib/sim-defs.exp index 521e0e3..3cef394 100644 --- a/sim/testsuite/lib/sim-defs.exp +++ b/sim/testsuite/lib/sim-defs.exp @@ -161,6 +161,7 @@ proc sim_run { prog sim_opts prog_opts redir options } { # as[(mach-list)]: <assembler options> # ld[(mach-list)]: <linker options> # sim[(mach-list)]: <simulator options> +# progopts: <arguments to the program being simulated> # output: program output pattern to match with string-match # xerror: program is expected to return with a "failure" exit code # xfail: <PRMS-opt> <target-triplets-where-test-fails> @@ -197,6 +198,7 @@ proc run_sim_test { name requested_machs } { # Clear default options set opts(as) "" set opts(ld) "" + set opts(progopts) "" set opts(sim) "" set opts(output) "" set opts(mach) "" @@ -330,7 +332,7 @@ proc run_sim_test { name requested_machs } { set options "$options timeout=$opts(timeout)" } - set result [sim_run ${name}.x "$opts(sim,$mach) $global_sim_options" "" "" "$options"] + set result [sim_run ${name}.x "$opts(sim,$mach) $global_sim_options" "$opts(progopts)" "" "$options"] set status [lindex $result 0] set output [lindex $result 1] |