Lindseys fix to a bug with nested procedures

diff --git a/util/opt/backward.c b/util/opt/backward.c
index ab842f8..eca9f9e 100644 (file)
--- a/util/opt/backward.c
+++ b/util/opt/backward.c
@@ -32,10 +32,12 @@ static char rcsid[] = "$Header$";
  * Author: Hans van Staveren
  */
 
-#define local(x)       if (((x)->s_flags&SYMKNOWN) == 0)\
-                               x->s_flags &= ~ SYMGLOBAL
-#define global(x)      if(((x)->s_flags&SYMKNOWN) == 0)\
-                               x->s_flags |= SYMGLOBAL
+#define local(x)       ((((x)->s_flags&SYMKNOWN) == 0 && \
+                         ((x)->s_flags &= ~ SYMGLOBAL)),\
+                        (x)->s_flags |= SYMSEEN)
+#define global(x)      ((((x)->s_flags&SYMKNOWN) == 0 && \
+                         ((x)->s_flags |= SYMGLOBAL)), \
+                        (x)->s_flags |= SYMSEEN)
 
 #define DTYPHOL        1
 #define DTYPBSS 2

diff --git a/util/opt/lookup.h b/util/opt/lookup.h
index 0d36e3b..9ec0a7e 100644 (file)
--- a/util/opt/lookup.h
+++ b/util/opt/lookup.h
@@ -17,6 +17,7 @@ struct sym {
 #define SYMKNOWN       000004
 #define SYMOUT         000010
 #define SYMDEF         000020
+#define SYMSEEN                000040
 
 #define NSYMHASH       127
 extern sym_p symhash[NSYMHASH],symlookup();

diff --git a/util/opt/process.c b/util/opt/process.c
index 0c763d8..d6c6068 100644 (file)
--- a/util/opt/process.c
+++ b/util/opt/process.c
@@ -93,7 +93,8 @@ symknown() {
 
        for (spp = symhash; spp < &symhash[NSYMHASH]; spp++)
                for (sp = *spp; sp != (sym_p) 0; sp = sp->s_next)
-                       sp->s_flags |= SYMKNOWN;
+                       if (sp->s_flags & SYMSEEN)
+                               sp->s_flags |= SYMKNOWN;
 }
 
 cleanlocals() {