From 30c7e9bdca7146d0e54cf75754e282dfe2ecf082 Mon Sep 17 00:00:00 2001
From: phil <phil@ultimate.com>
Date: Sat, 26 Oct 2019 00:40:33 -0400
Subject: [PATCH] as7: truncate labels to 8 characters for moo.s

---
 tools/as7 | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/tools/as7 b/tools/as7
index b6e76c6..75f9838 100755
--- a/tools/as7
+++ b/tools/as7
@@ -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});
 }