From 7bf0d7867b2eb7110359338c3b1717c48a40b726 Mon Sep 17 00:00:00 2001 From: hyung-hwan Date: Thu, 27 Dec 2007 20:52:29 +0000 Subject: [PATCH] --- ase/awk/parse.c | 2 +- ase/awk/tree.c | 14 ++++++++++++++ ase/change.log | 2 ++ 3 files changed, 17 insertions(+), 1 deletion(-) diff --git a/ase/awk/parse.c b/ase/awk/parse.c index dd8e9d68..c94214cb 100644 --- a/ase/awk/parse.c +++ b/ase/awk/parse.c @@ -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, diff --git a/ase/awk/tree.c b/ase/awk/tree.c index 9ea2499b..d4092fb2 100644 --- a/ase/awk/tree.c +++ b/ase/awk/tree.c @@ -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 diff --git a/ase/change.log b/ase/change.log index 87d6f66a..ab7598f4 100644 --- a/ase/change.log +++ b/ase/change.log @@ -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