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

many changes: fixes and efficiency-oriented

Browse Source
This commit is contained in:
ceriel
1987-02-09 23:19:42 +00:00
parent 01fa23d1da
commit f7690cec10
26 changed files with 200 additions and 164 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lang/cem/cemcom/stack.c
View File

@@ -40,12 +40,13 @@ stack_level() {
/* A new level is added on top of the identifier stack.
*/
register struct stack_level *stl = new_stack_level();
register struct stack_level *loclev = local_level;
local_level->sl_next = stl;
stl->sl_previous = local_level;
loclev->sl_next = stl;
stl->sl_previous = loclev;
stl->sl_level = ++level;
stl->sl_local_offset =
stl->sl_max_block = local_level->sl_local_offset;
stl->sl_max_block = loclev->sl_local_offset;
local_level = stl;
}