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 2007-02-19 15:45:02 +00:00
parent e1c18857dd
commit 81b432a9b3
3 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ase/awk/awk.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: awk.c,v 1.107 2007-02-03 10:47:40 bacon Exp $ * $Id: awk.c,v 1.108 2007-02-19 15:45:02 bacon Exp $
* *
* {License} * {License}
*/ */
@ -243,6 +243,7 @@ int ase_awk_clear (ase_awk_t* awk)
while (awk->tree.chain != ASE_NULL) while (awk->tree.chain != ASE_NULL)
{ {
ase_awk_chain_t* next = awk->tree.chain->next; ase_awk_chain_t* next = awk->tree.chain->next;
if (awk->tree.chain->pattern != ASE_NULL) if (awk->tree.chain->pattern != ASE_NULL)
ase_awk_clrpt (awk, awk->tree.chain->pattern); ase_awk_clrpt (awk, awk->tree.chain->pattern);
if (awk->tree.chain->action != ASE_NULL) if (awk->tree.chain->action != ASE_NULL)

7
ase/awk/parse.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: parse.c,v 1.243 2007-02-18 11:21:34 bacon Exp $ * $Id: parse.c,v 1.244 2007-02-19 15:44:46 bacon Exp $
* *
* {License} * {License}
*/ */
@ -647,7 +647,10 @@ static ase_awk_t* __parse_progunit (ase_awk_t* awk)
{ {
if (__get_token (awk) == -1) if (__get_token (awk) == -1)
{ {
ase_awk_clrpt (awk, ptn); /* ptn has been added to the chain.
* it doesn't have to be cleared here
* as ase_awk_clear does it */
/*ase_awk_clrpt (awk, ptn);*/
return ASE_NULL; return ASE_NULL;
} }
} }

BIN
ase/test/awk/err-001.awk Normal file
View File

Binary file not shown.