modelsim_init.tcl 749 Bytes
Newer Older
1
global TCOMP
2
# set TCOMP tb/i_test
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

proc start_CAN_simulation {test_wrapper} {
}

proc run_simulation {} {
    vunit_run
}

proc get_test_results_feature {} {
}

proc get_test_results {} {
}

rename add _add
proc safe_add {args} {
    if {[catch {_add {*}$args} fid]} {
        puts stderr $fid
    }
}

global IgnoreAddWaveErrors
set IgnoreAddWaveErrors 0

proc add {args} {
    global IgnoreAddWaveErrors
    if {$IgnoreAddWaveErrors} {
        safe_add {*}$args
    } else {
        _add {*}$args
    }
}

proc sim_restart {} {
    vunit_restart
    vunit_user_init
}

rename vunit_help _vunit_help
proc vunit_help {} {
    _vunit_help
    puts "sim_restart:"
    puts "  - recompile, add waves, restart (a.k.a vunit_restart; vunit_user_init)"
}