d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Lindseys fix to a bug with nested procedures

Browse source
This commit is contained in:
ceriel 1987-03-09 10:15:51 +00:00
parent 539c95237e
commit fa0f6cd0c6
3 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
util/opt/backward.c
View file

@ -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

1
util/opt/lookup.h
View file

@ -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();

3
util/opt/process.c
View file

@ -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() {