OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

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

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 93 Rev 95
Line 33... Line 33...
#! @param[in] config      The or1ksim config file to use
#! @param[in] config      The or1ksim config file to use
#! @param[in] or1kprog    The program image to use on libprog
#! @param[in] or1kprog    The program image to use on libprog
#! @param[in] args        Any other arguments
#! @param[in] args        Any other arguments
# -----------------------------------------------------------------------------
# -----------------------------------------------------------------------------
proc run_libsim { testname match_list libprog config or1kprog args } {
proc run_libsim { testname match_list libprog config or1kprog args } {
    global error_spawn_id
 
    global spawn_id
 
    global verbose
    global verbose
    global env
    global srcdir
 
    global objdir
 
 
    # Construct the config filename or use the default
    # Construct the config filename or use the default
    if {0 == [string length $config]} {
    if {0 == [string length $config]} {
        set config "default.cfg";
        set config "default.cfg";
    }
    }
 
 
    set libprog_name  "./test-code/$libprog"
    set libprog_name  "$objdir/test-code/$libprog"
    set config_name   "$env(srcdir)/libsim.tests/$config";
    set config_name   "$srcdir/libsim.tests/$config";
    set or1kprog_name "./test-code-or1k/$or1kprog"
    set or1kprog_name "$objdir/test-code-or1k/$or1kprog"
 
 
    set command_line "$libprog_name $config_name $or1kprog_name $args"
    set command_line "$libprog_name $config_name $or1kprog_name $args"
 
 
    if { $verbose > 1 } {
    if { $verbose > 1 } {
        send_user "starting $command_line\n"
        send_user "starting $command_line\n"
Line 91... Line 90...
                return
                return
            }
            }
 
 
            timeout {
            timeout {
                perror "Timeout";
                perror "Timeout";
                fail "$testname: timeout";
                unresolved "$testname: timeout";
                return
                return
            }
            }
        }
        }
    }
    }
 
 

powered by: WebSVN 2.1.0

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