hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2006-02-05 16:12:50 +00:00
parent a6e336e33b
commit 36d53f5a91
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ase/awk/parse.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: parse.c,v 1.49 2006-02-05 16:08:23 bacon Exp $ * $Id: parse.c,v 1.50 2006-02-05 16:12:50 bacon Exp $
*/ */
#include <xp/awk/awk.h> #include <xp/awk/awk.h>
@ -622,6 +622,10 @@ static xp_awk_node_t* __parse_block (xp_awk_t* awk, xp_bool_t is_top)
block->next = XP_NULL; block->next = XP_NULL;
block->body = head; block->body = head;
/* TODO: not only local variables but also etsted blocks,
unless it is part of other constructs such as if, can be promoted
and merged to top-level block */
/* migrate all block-local variables to a top-level block */ /* migrate all block-local variables to a top-level block */
if (is_top) { if (is_top) {
block->nlocals = awk->parse.nlocals_max - nlocals; block->nlocals = awk->parse.nlocals_max - nlocals;