X-Git-Url: http://git.ieval.ro/?p=app-scheme79asm.git;a=blobdiff_plain;f=lib%2FApp%2FScheme79asm.pm;fp=lib%2FApp%2FScheme79asm.pm;h=602afd1484316615b334b804e6af01975f5982b6;hp=1590d8568db0552bdfe41444499da12916b28db4;hb=2aba73d532a55cd0cfa7a32b1e9270a15b0b53d7;hpb=fe1c44b35d67e5054f8a6a8d5a76d8e3be91616d diff --git a/lib/App/Scheme79asm.pm b/lib/App/Scheme79asm.pm index 1590d85..602afd1 100644 --- a/lib/App/Scheme79asm.pm +++ b/lib/App/Scheme79asm.pm @@ -71,6 +71,7 @@ sub process { die "Type too large: $type\n" if $type >= (1 << $self->{type_bits}); die "Addr too large: $addr\n" if $addr >= (1 << $self->{addr_bits}); my $result = ($type << $self->{addr_bits}) + $addr; + unless ($location) { $self->{freeptr}++; $location = $self->{freeptr}