+ $fh //= \*STDOUT; # uncoverable condition right
+
+ 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: $!";
+ for (@{$self->{memory}}) {
+ print $fh pack 'n', $_ or croak "Failed to print memory: $!"
+ }
+}
+
+sub print_verilog {
+ my ($self, $fh) = @_;
+ $fh //= \*STDOUT; # uncoverable condition right