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-12-03 15:05:02 +00:00
parent aea12b37de
commit 1ba1a0bcd3
5 changed files with 40 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/*
* $Id: run.c,v 1.288 2006-11-29 02:54:16 bacon Exp $
* $Id: run.c,v 1.289 2006-12-03 15:05:01 bacon Exp $
*/
#include <ase/awk/awk_i.h>
@ -3794,7 +3794,17 @@ static ase_awk_val_t* __eval_binop_div (
if (n3 == 0)
{
if (l2 == 0) PANIC (run, ASE_AWK_EDIVBYZERO);
res = ase_awk_makeintval (run, (ase_long_t)l1 / (ase_long_t)l2);
if (((ase_long_t)l1 % (ase_long_t)l2) == 0)
{
res = ase_awk_makeintval (
run, (ase_long_t)l1 / (ase_long_t)l2);
}
else
{
res = ase_awk_makerealval (
run, (ase_real_t)l1 / (ase_real_t)l2);
}
}
else if (n3 == 1)
{