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}
*/
@ -243,6 +243,7 @@ int ase_awk_clear (ase_awk_t* awk)
while (awk->tree.chain != ASE_NULL)
{
ase_awk_chain_t* next = awk->tree.chain->next;
if (awk->tree.chain->pattern != ASE_NULL)
ase_awk_clrpt (awk, awk->tree.chain->pattern);
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}
*/
@ -647,7 +647,10 @@ static ase_awk_t* __parse_progunit (ase_awk_t* awk)
{
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;
}
}

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

Binary file not shown.