| line |
true |
false |
branch |
|
120
|
0 |
0 |
if $_ eq '' |
|
122
|
0 |
0 |
unless defined $value |
|
123
|
0 |
0 |
if $n_ip == -1 |
|
158
|
0 |
0 |
if @_ >= 3 |
|
165
|
0 |
0 |
if $_[3] |
|
174
|
0 |
0 |
unless ($current) |
|
178
|
0 |
0 |
unless (exists $machine->{'stats'}{'command_usage'}{$machine->{'ip'}}) |
|
183
|
0 |
0 |
unless (&eval($current, $machine, 0, $_[3])) |
|
184
|
0 |
0 |
if ($_[3] and not exists $machine->{'snaps'}{$machine->{'steps'}}) |
|
190
|
0 |
0 |
if ($_[3] and not exists $machine->{'snaps'}{$machine->{'steps'}}) |
|
198
|
0 |
0 |
if ($limit > 0 and $machine->{'steps'} == $limit) |
|
301
|
0 |
0 |
unless exists $snapshots->{$_}[1] |
|
349
|
0 |
0 |
unless exists $step->[1] |
|
394
|
2 |
4 |
if ($l =~ /\A(\d+):\s*(.+)/) |
|
403
|
3 |
3 |
if ($l =~ /\A(INPUT|OUTPUT)(.*)\Z/) |
|
404
|
1 |
2 |
if ($2 eq '') |
|
409
|
1 |
1 |
if ($1 eq 'INPUT') { } |
|
439
|
4 |
6 |
if (index($_[0], ' ') != -1) { } |
|
444
|
2 |
4 |
if $_ eq '' |
|
446
|
0 |
4 |
unless $r |
|
450
|
1 |
3 |
if (@{$ret;} == 0) |
|
455
|
1 |
5 |
if ($_[0] =~ /\A(\d+)..(\d+)\Z/) { } |
|
|
4 |
1 |
elsif ($_[0] =~ /\A(\d+)\Z/) { } |
|
487
|
30 |
94 |
if ($_[0] =~ /\A(\-?\d+(?:\.\d+)?)\Z/) { } |
|
|
62 |
32 |
elsif ($_[0] =~ /\A(a|i|i1|i2|i3)\Z/) { } |
|
|
13 |
19 |
elsif ($_[0] =~ /\As\[\s*(.+?)\s*\]\Z/) { } |
|
|
3 |
16 |
elsif ($_[0] =~ /\Ajump\s+(.+)\s*\Z/) { } |
|
|
3 |
13 |
elsif ($_[0] =~ /\A(.+?)\s*<--?\s*(.+?)\s*\Z/) { } |
|
|
2 |
11 |
elsif ($_[0] =~ /\A(.+?)\s*(<|<=|!?=|>=|>)\s*0\Z/) { } |
|
|
0 |
11 |
elsif ($_[0] =~ /\Aif\s+(.+?)\s+then\s+(.+)\Z/) { } |
|
|
11 |
0 |
elsif ($_[0] =~ /\A(.+?)\s*(\+|\-|\*|div|mod)\s*(.+)\Z/) { } |
|
|
0 |
0 |
elsif ($_[0] eq 'HALT') { } |
|
490
|
0 |
62 |
$1 eq 'i' ? : |
|
585
|
0 |
18 |
unless my $left = &get_ast($_[0], $_[3], $_[4]) |
|
586
|
0 |
18 |
unless my $right = &get_ast($_[2], $_[3], $_[4]) |
|
588
|
1 |
17 |
unless $left->[0] eq 'reg' |
|
591
|
1 |
16 |
unless exists $algo_right{$right->[0]} |
|
595
|
1 |
10 |
unless $type or $right->[0] eq 'imm' and $_[1] eq '+' || $_[1] eq '-' |
|
620
|
0 |
18 |
unless my $inner = &get_ast(@_) |
|
622
|
6 |
12 |
if $inner->[0] eq 'imm' |
|
624
|
10 |
2 |
if ($inner->[0] eq 'algo') { } |
|
|
1 |
1 |
elsif ($inner->[0] eq 'reg' and $inner->[1] ne 'a') { } |
|
625
|
1 |
9 |
unless $inner->[1] == 0 |
|
663
|
0 |
27 |
unless my $reg = &get_ast($_[0], $_[2], $_[3]) |
|
665
|
1 |
26 |
unless $reg->[0] eq 'reg' |
|
690
|
0 |
5 |
unless my $dest = &get_ast(@_) |
|
692
|
1 |
4 |
unless $dest->[0] eq 'imm' |
|
727
|
0 |
3 |
unless my $cond = &get_ast($_[0], $_[2], $_[3]) |
|
729
|
1 |
2 |
unless $cond->[0] eq 'cond' |
|
732
|
0 |
2 |
unless my $jump = &get_ast($_[1], $_[2], $_[3]) |
|
733
|
1 |
1 |
unless $jump->[0] eq 'jump' |
|
770
|
0 |
15 |
unless my $left = &get_ast($_[0], $_[2], $_[3]) |
|
771
|
0 |
15 |
unless my $right = &get_ast($_[1], $_[2], $_[3]) |
|
773
|
10 |
5 |
if ($left->[0] eq 'reg') { } |
|
|
2 |
3 |
elsif ($left->[0] eq 'mem') { } |
|
|
2 |
1 |
elsif ($left->[0] eq 'mmem') { } |
|
776
|
8 |
2 |
if ($left->[1] eq 'a') { } |
|
777
|
1 |
7 |
unless $rcheck or exists $assign_a_right{$right->[0]} |
|
780
|
1 |
1 |
unless $rcheck or $right->[0] eq 'algo' |
|
783
|
1 |
0 |
unless not $right->[1] or $right->[0] ne 'algo' |
|
786
|
1 |
1 |
unless $right->[0] eq 'reg' |
|
789
|
1 |
1 |
unless $right->[0] eq 'reg' and $right->[1] eq 'a' |
|
826
|
0 |
113 |
if ($_[0][0] eq 'halt') |
|
829
|
113 |
0 |
if (exists $eval_funcs{$_[0][0]}) { } |
|
880
|
6 |
81 |
unless (exists $_[1]{'memory'}{$_[0][1]}) |
|
886
|
75 |
12 |
unless ($_[2] // 0) > 0 |
|
887
|
10 |
2 |
if $_[2] == 1 |
|
902
|
0 |
13 |
unless defined(my $val = &eval($_[0][1], $_[1])) |
|
925
|
0 |
32 |
unless defined(my $left = &eval($_[0][2], $_[1])) |
|
926
|
0 |
32 |
unless defined(my $right = &eval($_[0][4], $_[1])) |
|
928
|
17 |
15 |
if ($_[0][3] eq '+') { } |
|
|
6 |
9 |
elsif ($_[0][3] eq '-') { } |
|
|
3 |
6 |
elsif ($_[0][3] eq '*') { } |
|
|
3 |
3 |
elsif ($_[0][3] eq 'div') { } |
|
|
3 |
0 |
elsif ($_[0][3] eq 'mod') { } |
|
963
|
0 |
20 |
unless defined(my $val = &eval($_[0][1], $_[1])) |
|
965
|
4 |
16 |
if ($_[0][2] eq '<') { } |
|
|
3 |
13 |
elsif ($_[0][2] eq '<=') { } |
|
|
3 |
10 |
elsif ($_[0][2] eq '=') { } |
|
|
3 |
7 |
elsif ($_[0][2] eq '!=') { } |
|
|
3 |
4 |
elsif ($_[0][2] eq '>=') { } |
|
|
4 |
0 |
elsif ($_[0][2] eq '>') { } |
|
1002
|
0 |
2 |
unless defined(my $cond = &eval($_[0][1], $_[1])) |
|
1003
|
1 |
1 |
if $cond |
|
1026
|
0 |
2 |
unless defined(my $val = &eval($_[0][1], $_[1])) |
|
1050
|
0 |
6 |
unless my $left = &eval($_[0][1], $_[1], 1) |
|
1051
|
0 |
6 |
unless defined(my $right = &eval($_[0][2], $_[1])) |
|
1053
|
0 |
6 |
if $_[1]{'snaps'} |
|
1081
|
2 |
90 |
if ($_[2] // 0) == 2 |
|
1083
|
17 |
73 |
unless (exists $_[0]{'stats'}{'memory_usage'}{$_[1]}) |
|
1087
|
12 |
78 |
$_[2] ? : |