projects
/
app-scheme79asm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Get 100% code coverage
[app-scheme79asm.git]
/
lib
/
App
/
Scheme79asm.pm
diff --git
a/lib/App/Scheme79asm.pm
b/lib/App/Scheme79asm.pm
index 6a2b4857864f979147b8748d1d6c93e1b53f1b32..374a8a3f43af771517da7dec974c96f7e2bb798d 100644
(file)
--- a/
lib/App/Scheme79asm.pm
+++ b/
lib/App/Scheme79asm.pm
@@
-121,9
+121,9
@@
sub print_binary16 {
die "addr_bits + type_bits >= 16\n"if $self->{addr_bits} + $self->{type_bits} > 16;
my $length = @{$self->{memory}};
die "addr_bits + type_bits >= 16\n"if $self->{addr_bits} + $self->{type_bits} > 16;
my $length = @{$self->{memory}};
- print $fh pack 'n', $length or croak "Failed to print memory size: $!";
+ print $fh pack 'n', $length or croak "Failed to print memory size: $!";
# uncoverable branch true
for (@{$self->{memory}}) {
for (@{$self->{memory}}) {
- print $fh pack 'n', $_ or croak "Failed to print memory: $!"
+ print $fh pack 'n', $_ or croak "Failed to print memory: $!"
# uncoverable branch true
}
}
}
}
@@
-147,7
+147,7
@@
sub print_verilog {
my $string = "mem[$index] <= $val;";
$string .= "$spaces // $comment" if defined $comment;
my $string = "mem[$index] <= $val;";
$string .= "$spaces // $comment" if defined $comment;
- say $fh $string or croak "Failed to print verilog: $!";
+ say $fh $string or croak "Failed to print verilog: $!";
# uncoverable branch true
}
}
}
}
This page took
0.009639 seconds
and
4
git commands to generate.