projects
/
app-scheme79asm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Add total bits check
[app-scheme79asm.git]
/
lib
/
App
/
Scheme79asm.pm
diff --git
a/lib/App/Scheme79asm.pm
b/lib/App/Scheme79asm.pm
index 3ad0995a3312799d74bb3588c902f1b7f023b266..3d09b09cf09b1d77adeb1de394136b6ebd0c0732 100644
(file)
--- a/
lib/App/Scheme79asm.pm
+++ b/
lib/App/Scheme79asm.pm
@@
-126,6
+126,8
@@
sub print_binary16 {
my ($self, $fh) = @_;
$fh //= \*STDOUT;
+ die "addr_bits + type_bits >= 16\n"if $self->{addr_bits} + $self->{type_bits} > 16;
+
my $length = @{$self->{memory}};
print $fh pack('n', $length);
for (@{$self->{memory}}) {
This page took
0.009094 seconds
and
4
git commands to generate.