URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
| Rev 93 |
Rev 95 |
| Line 31... |
Line 31... |
#! @param[in] match_list A list of expected responses
|
#! @param[in] match_list A list of expected responses
|
#! @param[in] config_file The or1ksim config file to use
|
#! @param[in] config_file The or1ksim config file to use
|
# !@param[in] progname The program image to use on Or1ksim
|
# !@param[in] progname The program image to use on Or1ksim
|
# -----------------------------------------------------------------------------
|
# -----------------------------------------------------------------------------
|
proc run_or1ksim { testname match_list config_file progname } {
|
proc run_or1ksim { testname match_list config_file progname } {
|
global error_spawn_id
|
|
global spawn_id
|
|
global verbose
|
global verbose
|
global env
|
global srcdir
|
|
global objdir
|
|
|
# Construct the filename
|
# Construct the filename
|
if {0 == [string length $config_file]} {
|
if {0 == [string length $config_file]} {
|
set config_full_file "$env(srcdir)/or1ksim.tests/default.cfg";
|
set config_full_file "$srcdir/or1ksim.tests/default.cfg";
|
} else {
|
} else {
|
set config_full_file "$env(srcdir)/or1ksim.tests/$config_file";
|
set config_full_file "$srcdir/or1ksim.tests/$config_file";
|
}
|
}
|
|
|
set prog_full_name "./test-code-or1k/$progname"
|
set prog_full_name "$objdir/test-code-or1k/$progname"
|
set command_line "../sim -f $config_full_file $prog_full_name"
|
set command_line "$objdir/../sim -f $config_full_file $prog_full_name"
|
|
|
if { $verbose > 1 } {
|
if { $verbose > 1 } {
|
send_user "starting $command_line\n"
|
send_user "starting $command_line\n"
|
}
|
}
|
|
|
| Line 85... |
Line 84... |
fail "$testname: hit EOF seeking match line $match_line";
|
fail "$testname: hit EOF seeking match line $match_line";
|
return
|
return
|
}
|
}
|
|
|
timeout {
|
timeout {
|
perror "Timeout";
|
unresolved "$testname: timeout";
|
fail "$testname: timeout";
|
|
return
|
return
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.