projects
/
app-scheme79asm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make compiler output actually compatible with assembler
[app-scheme79asm.git]
/
lib
/
App
/
Scheme79asm.pm
diff --git
a/lib/App/Scheme79asm.pm
b/lib/App/Scheme79asm.pm
index 9b82af6b48acc40233c010736fc9c17f430fed57..f76b834ea6c463ae7b4a03dce6baaf097612a358 100644
(file)
--- a/
lib/App/Scheme79asm.pm
+++ b/
lib/App/Scheme79asm.pm
@@
-70,11
+70,9
@@
sub process {
die 'Computed addr is not a number: ', Dumper($addr), "\n" unless looks_like_number $addr;
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};
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;
}
$addr += (1 << $self->{addr_bits}) if $addr < 0;
This page took
0.010159 seconds
and
4
git commands to generate.