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-10-10 07:06:42 +00:00
parent 12fcd69db8
commit fb46759c43
4 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/*
* $Id: run.c,v 1.228 2006-10-10 07:02:38 bacon Exp $
* $Id: run.c,v 1.229 2006-10-10 07:06:42 bacon Exp $
*/
#include <xp/awk/awk_i.h>
@ -2833,7 +2833,8 @@ static int __cmp_int_str (
{
rr = xp_awk_strxtoreal (run->awk,
((xp_awk_val_str_t*)right)->buf,
((xp_awk_val_str_t*)right)->len, &str);
((xp_awk_val_str_t*)right)->len,
(const xp_char_t**)&str);
if (str == ((xp_awk_val_str_t*)right)->buf +
((xp_awk_val_str_t*)right)->len)
{
@ -2907,7 +2908,8 @@ static int __cmp_real_str (
rr = xp_awk_strxtoreal (run->awk,
((xp_awk_val_str_t*)right)->buf,
((xp_awk_val_str_t*)right)->len, &str);
((xp_awk_val_str_t*)right)->len,
(const xp_char_t**)&str);
if (str == ((xp_awk_val_str_t*)right)->buf +
((xp_awk_val_str_t*)right)->len)
{
@ -4381,7 +4383,7 @@ static int __get_reference (
if (n == 1) lv = (xp_long_t)rv;
if (!IS_VALID_POSIDX(lv)) PANIC_I (run, XP_AWK_EPOSIDX);
*ref = (xp_awk_val_t**)lv;
*ref = (xp_awk_val_t**)((xp_size_t)lv);
return 0;
}

4
ase/awk/tree.h
View File

@ -1,5 +1,5 @@
/*
* $Id: tree.h,v 1.73 2006-09-30 17:02:36 bacon Exp $
* $Id: tree.h,v 1.74 2006-10-10 07:02:38 bacon Exp $
*/
#ifndef _XP_AWK_TREE_H_
@ -258,7 +258,7 @@ struct xp_awk_nde_call_t
xp_size_t min_args;
xp_size_t max_args;
const xp_char_t* arg_spec;
int (*handler) (xp_awk_t* awk, void* run);
int (*handler) (xp_awk_run_t* awk);
} bfn;
/* xp_awk_bfn_t* bfn; */
} what;

1
ase/test/awk/comp.awk
View File

@ -117,4 +117,5 @@ BEGIN {
print .123E-;
print +.123E-;
print -.123E-;
print -.123E- + "123";
}

1
ase/test/awk/t28.awk
View File

@ -27,6 +27,7 @@ END {
arr[0] = "xxx";
#print split ("abc def abc", arr);
print split ("abc def kkk", j);
print split ("abc def kkk", $0);
#xyz = 20;
#print xyz;