glm94/pdp7-unix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects 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
Download Patch File Download Diff File Expand all files Collapse all files
tools/as7
+7
View File
@@ -274,6 +274,10 @@ sub set_label
{ {
my ($label,$loc)= @_; 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" # It is a local label if we're told it is, or if it starts with "L"
if ($Islocal{$file}{$label} || $label=~ m{^L}) { if ($Islocal{$file}{$label} || $label=~ m{^L}) {
# An error to have different values # An error to have different values
@@ -304,6 +308,9 @@ sub set_label
sub get_label sub get_label
{ {
my $label= shift; 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($Llabel{$file}{$label}) if (defined($Llabel{$file}{$label}));
return($Glabel{$label}); return($Glabel{$label});
} }