OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [or1ksim/] [testsuite/] [lib/] [or1ksim.exp] - Diff between revs 93 and 95

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
            }
            }
        }
        }
    }
    }
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.