From d60059ef41829dc9c26241541f9889e9ef7f212d Mon Sep 17 00:00:00 2001
From: Charles Crayne <chuck@thor.crayne.org>
Date: Wed, 12 Mar 2008 22:39:03 -0700
Subject: 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.
---
 labels.c | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'labels.c')

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.
  *
-- 
cgit v1.2.1