Commit b7b4c8d8 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

(l2g_start): Handle TRACED_ALLOCATIONS.

parent 99c028ab
......@@ -78,6 +78,8 @@ proc l2g_start {} {
global nl
global expect_active
global expect_always
global test
global MEMTRACE
spawn $l2g
set l2g_id $spawn_id
......@@ -88,6 +90,21 @@ proc l2g_start {} {
talk_to l2g
set test "starting l2g"
expect {
-re "^Where does the trace want to go today. .stderr.$nl" {
pass "Tracing is activated ($MEMTRACE)"
send "$MEMTRACE\n"
continue -expect
}
-re "^l2g> " {
pass "$test"
}
}
unset test
send "\n"
simple_expect "^EMPTY LINE" "noop command"
if {$efence} {
l2g_send "I9"
l2g_send "a9 3 17"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment