github.com/DoctorWkt.pdp7-unix
1
0
Fork 0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-01-13 15:27:39 +00:00
Code Issues Releases Wiki Activity

as7: truncate labels to 8 characters for moo.s

Browse Source
This commit is contained in:
phil 2019-10-26 00:40:33 -04:00
parent 65cdd42232
commit 30c7e9bdca
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tools/as7
View File

@ -274,6 +274,10 @@ sub set_label
{
my ($label,$loc)= @_;
# PLB: truncate to eight: moo.s declares "standing"
# but references it as "standings"
$label = substr($label, 0, 8);
# It is a local label if we're told it is, or if it starts with "L"
if ($Islocal{$file}{$label} || $label=~ m{^L}) {
# An error to have different values
@ -304,6 +308,9 @@ sub set_label
sub get_label
{
my $label= shift;
# PLB: truncate to eight: moo.s declares "standing"
# but references it as "standings"
$label = substr($label, 0, 8);
return($Llabel{$file}{$label}) if (defined($Llabel{$file}{$label}));
return($Glabel{$label});
}