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-04-09 15:34:38 +00:00
parent 6d109e001b
commit 8d1ccbc72b
2 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/*
* $Id: run.c,v 1.39 2006-04-09 15:31:13 bacon Exp $
* $Id: run.c,v 1.40 2006-04-09 15:34:38 bacon Exp $
*/
#include <xp/awk/awk_i.h>
@ -1724,12 +1724,12 @@ static xp_awk_val_t* __eval_call (xp_awk_t* awk, xp_awk_nde_t* nde)
/*
* ---------------------
* locn <- stack top
* localn <- stack top
* ---------------------
* ....
* ---------------------
* loc0 local variables are pushed by __run_block
* ---------------------
* local0 local variables are pushed by __run_block
* =====================
* argn
* ---------------------
* ....
@ -1745,6 +1745,20 @@ static xp_awk_val_t* __eval_call (xp_awk_t* awk, xp_awk_nde_t* nde)
* previous stack top
* ---------------------
* previous stack base <- stack base
* =====================
* 0 (nargs) <- stack top
* ---------------------
* return value
* ---------------------
* previous stack top
* ---------------------
* previous stack base <- stack base
* =====================
* globaln
* ---------------------
* ....
* ---------------------
* global0
* ---------------------
*/

4
ase/test/awk/awk.c
View File

@ -1,5 +1,5 @@
/*
* $Id: awk.c,v 1.16 2006-04-06 16:25:37 bacon Exp $
* $Id: awk.c,v 1.17 2006-04-09 15:31:13 bacon Exp $
*/
#include <xp/awk/awk.h>
@ -74,6 +74,8 @@ int xp_main (int argc, char* argv[])
XP_AWK_EXPLICIT | XP_AWK_UNIQUE |
XP_AWK_SHADING | XP_AWK_IMPLICIT | XP_AWK_SHIFT);
xp_awk_setrunopt (awk, XP_AWK_RUNMAIN);
if (xp_awk_parse(awk) == -1) {
xp_printf (
XP_TEXT("error: cannot parse program - [%d] %s\n"),