Display fully qualified local label in "not defined" message

Add new function "local_scope" to label subsystem to
return the previous non-local label for a given local label,
and invoke this funcion in eval.c to display the fully
qualified name in the "not defined" error message.

1 files changed, 5 insertions, 0 deletions

diff --git a/labels.c b/labels.c
index e5412e04..4057d998 100644
--- a/labels.c
+++ b/labels.c
@@ -443,6 +443,11 @@ static char *perm_copy(const char *string)
     return p;
 }
 
+char *local_scope(char *label)
+{
+   return islocal(label) ? prevlabel : "";
+}
+
 /*
  * Notes regarding bug involving redefinition of external segments.
  *