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-11-28 11:21:40 +00:00
parent 79c76a33e2
commit 1450c32b98
1 changed files with 5 additions and 5 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.286 2006-11-28 04:30:21 bacon Exp $ * $Id: run.c,v 1.287 2006-11-28 11:21:40 bacon Exp $
*/ */
#include <ase/awk/awk_i.h> #include <ase/awk/awk_i.h>
@ -3665,8 +3665,8 @@ static ase_awk_val_t* __eval_binop_lshift (
n3 = n1 + (n2 << 1); n3 = n1 + (n2 << 1);
if (n3 == 0) if (n3 == 0)
{ {
if (l2 == 0) PANIC (run, ASE_AWK_EDIVBYZERO); res = ase_awk_makeintval (
res = ase_awk_makeintval (run, (ase_long_t)l1<<(ase_long_t)l2); run, (ase_long_t)l1<<(ase_long_t)l2);
} }
else PANIC (run, ASE_AWK_EOPERAND); else PANIC (run, ASE_AWK_EOPERAND);
@ -3690,8 +3690,8 @@ static ase_awk_val_t* __eval_binop_rshift (
n3 = n1 + (n2 << 1); n3 = n1 + (n2 << 1);
if (n3 == 0) if (n3 == 0)
{ {
if (l2 == 0) PANIC (run, ASE_AWK_EDIVBYZERO); res = ase_awk_makeintval (
res = ase_awk_makeintval (run, (ase_long_t)l1>>(ase_long_t)l2); run, (ase_long_t)l1>>(ase_long_t)l2);
} }
else PANIC (run, ASE_AWK_EOPERAND); else PANIC (run, ASE_AWK_EOPERAND);