You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
532 B
27 lines
532 B
# |
|
# Tcl srcipt for simulation runs (From Target distribution) |
|
# |
|
|
|
# Create ISS |
|
set procname [lindex [::iss::processors] 0] |
|
::iss::create $procname iss |
|
set procdir [iss info processor_dir {} 0] |
|
set program $::iss::tcl_script_args |
|
|
|
puts "procdir = $procdir" |
|
puts "program = $program" |
|
|
|
# Load program |
|
iss program load $program -dwarf2 -sourcepath {.} |
|
|
|
# Simulate until end of main |
|
if { [catch { iss step -1 } msg ] } { |
|
puts $msg |
|
} |
|
|
|
# Save instruction profile in human readable form |
|
iss profile save $program.prf |
|
|
|
iss close |
|
exit |
|
|
|
|