godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ANSI requires separate name space for labels, and made to use idf module

Browse Source
This commit is contained in:
ceriel
1991-06-19 16:12:56 +00:00
parent 3a074a6f99
commit 9f43986877
21 changed files with 105 additions and 266 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lang/cem/cemcom.ansi/stack.c
View File

@@ -130,11 +130,14 @@ unstack_level()
local_level->sl_entry = se->next;
free_stack_entry(se);
if (level == L_LOCAL && (def = idf->id_label)) {
unstack_label(idf);
free_def(def);
idf->id_label = 0;
}
while ((def = idf->id_def) && def->df_level >= level) {
/* unlink it from the def list under the idf block */
if (def->df_sc == LABEL)
unstack_label(idf);
else if (def->df_sc == REGISTER || def->df_sc == AUTO)
if (def->df_sc == REGISTER || def->df_sc == AUTO)
FreeLocal(def->df_address);
idf->id_def = def->next;
free_def(def);
@@ -154,11 +157,6 @@ unstack_level()
idf->id_struct = tag->next;
free_tag(tag);
}
while ((tag = idf->id_enum) && tag->tg_level >= level) {
/* unlink it from the enum list under the idf block */
idf->id_enum = tag->next;
free_tag(tag);
}
}
/* Unlink the local stack level from the stack.
*/