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

Browse Source
This commit is contained in:
hyung-hwan 2007-12-27 20:52:29 +00:00
parent 7e2a6e40e0
commit 7bf0d7867b
3 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ase/awk/parse.c
View File

@ -5479,7 +5479,7 @@ static int deparse (ase_awk_t* awk)
if ((awk->option & ASE_AWK_EXPLICIT) &&
!(awk->option & ASE_AWK_IMPLICIT))
{
/* use the actual name if no name variable
/* use the actual name if no named variable
* is allowed */
if (ase_awk_putsrcstrx (awk,
awk->parse.globals.buf[i].name.ptr,

14
ase/awk/tree.c
View File

@ -392,6 +392,13 @@ static int print_expression (ase_awk_t* awk, ase_awk_nde_t* nde)
if ((awk->option & ASE_AWK_EXPLICIT) &&
!(awk->option & ASE_AWK_IMPLICIT))
{
/* no implicit(named) variable is allowed.
* use the actual name */
PUT_SRCSTRX (awk, px->id.name, px->id.name_len);
}
else if (px->id.idxa < awk->tree.nbglobals)
{
/* static global variables */
PUT_SRCSTRX (awk, px->id.name, px->id.name_len);
}
else
@ -423,6 +430,13 @@ static int print_expression (ase_awk_t* awk, ase_awk_nde_t* nde)
if ((awk->option & ASE_AWK_EXPLICIT) &&
!(awk->option & ASE_AWK_IMPLICIT))
{
/* no implicit(named) variable is allowed.
* use the actual name */
PUT_SRCSTRX (awk, px->id.name, px->id.name_len);
}
else if (px->id.idxa < awk->tree.nbglobals)
{
/* static global variables */
PUT_SRCSTRX (awk, px->id.name, px->id.name_len);
}
else

2
ase/change.log
View File

@ -37,6 +37,8 @@
* removed ASE_AWK_UNIQUEFN and ASE_AWK_SHADING
* fixed a bug in handle >> when ASE_AWK_SHIFT is off
* added ASE_AWK_EVARRED
[0.3.2]
* fixed a build problem for x64 target in MSVC2005