test_info(" Run to Breakpoint "); $SIG{ALARM}=sub {}; $usec1 = gettimeofday; eval{ alarm(20); prozess_Run ( 'RUN_TO_BREAKPOINT', 'FALSE')||($DevCon[13] =1); ############################################################################## $counter = 0; #State call to end the run test_info("Breakpoint State"); do { prozess_State ( \$state, 'FALSE', \$cycle,\$loopbreak)||($DevCon[14] =1); $counter++; } while ($loopbreak != 3); my $usec2 = gettimeofday; my $usec = $usec2-$usec1; printf "State of the run: $state\n"; printf "Cycles if single step is used: $cycle\n"; printf "Cycles until breakpoint was hit: $counter\n"; printf "Loop Runtime : %.4f sec\n",$usec; alarm(0); };