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-03 15:27:31 +00:00
parent db32141802
commit 14a5c670d1
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: run.c,v 1.31 2006-04-03 14:55:34 bacon Exp $ * $Id: run.c,v 1.32 2006-04-03 15:27:31 bacon Exp $
*/ */
#include <xp/awk/awk_i.h> #include <xp/awk/awk_i.h>
@ -974,7 +974,6 @@ static xp_awk_val_t* __eval_binop_minus (
return res; return res;
} }
static xp_awk_val_t* __eval_binop_mul ( static xp_awk_val_t* __eval_binop_mul (
xp_awk_t* awk, xp_awk_val_t* left, xp_awk_val_t* right) xp_awk_t* awk, xp_awk_val_t* left, xp_awk_val_t* right)
{ {
@ -984,7 +983,7 @@ static xp_awk_val_t* __eval_binop_mul (
right->type == XP_AWK_VAL_INT) right->type == XP_AWK_VAL_INT)
{ {
xp_long_t r = xp_long_t r =
((xp_awk_val_int_t*)left)->val - ((xp_awk_val_int_t*)left)->val *
((xp_awk_val_int_t*)right)->val; ((xp_awk_val_int_t*)right)->val;
res = xp_awk_makeintval (awk, r); res = xp_awk_makeintval (awk, r);
// TOOD: error handling // TOOD: error handling
@ -1002,7 +1001,7 @@ static xp_awk_val_t* __eval_binop_div (
right->type == XP_AWK_VAL_INT) right->type == XP_AWK_VAL_INT)
{ {
xp_long_t r = xp_long_t r =
((xp_awk_val_int_t*)left)->val * ((xp_awk_val_int_t*)left)->val /
((xp_awk_val_int_t*)right)->val; ((xp_awk_val_int_t*)right)->val;
res = xp_awk_makeintval (awk, r); res = xp_awk_makeintval (awk, r);
// TOOD: error handling // TOOD: error handling