From cce5115e21db1702e0617afdca36633e7e2c9eae Mon Sep 17 00:00:00 2001 From: "Arnold D. Robbins" Date: Thu, 15 Jul 2010 23:24:47 +0300 Subject: Move to gawk 2.11.1 as found on Walnut Creek CD-ROM. --- eval.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 4973b595..c88e7763 100644 --- a/eval.c +++ b/eval.c @@ -585,6 +585,8 @@ NODE *tree; if ((lx = t2->numbr) == t2->numbr) { /* integer exponent */ if (lx == 0) x = 1; + else if (lx == 1) + x = t1->numbr; else { /* doing it this way should be more precise */ for (x = x2 = t1->numbr; --lx; ) @@ -820,6 +822,8 @@ NODE *tree; if ((ltemp = rval) == rval) { /* integer exponent */ if (ltemp == 0) assign_number(lhs, (AWKNUM) 1); + else if (ltemp == 1) + assign_number(lhs, lval); else { /* doing it this way should be more precise */ for (t1 = t2 = lval; --ltemp; ) -- cgit v1.2.3