die 'Computed addr is not a number: ', Dumper($addr), "\n" unless looks_like_number $addr;
- if (ref $type eq 'Data::SExpression::Symbol') {
+ if (!looks_like_number $type) {
die "No such type: $type\n" unless exists $TYPES{$type};
$type = $TYPES{$type};
- } elsif (!looks_like_number $type) {
- die "Type is not a number or symbol: $type\n"
}
$addr += (1 << $self->{addr_bits}) if $addr < 0;