===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/awk/run.c,v
retrieving revision 1.44
retrieving revision 1.45
diff -c -r1.44 -r1.45
*** src/usr.bin/awk/run.c	2019/08/13 10:45:56	1.44
--- src/usr.bin/awk/run.c	2020/06/08 03:22:23	1.45
***************
*** 1,4 ****
! /*	$OpenBSD: run.c,v 1.44 2019/08/13 10:45:56 fcambus Exp $	*/
  /****************************************************************
  Copyright (C) Lucent Technologies 1997
  All Rights Reserved
--- 1,4 ----
! /*	$OpenBSD: run.c,v 1.45 2020/06/08 03:22:23 guenther Exp $	*/
  /****************************************************************
  Copyright (C) Lucent Technologies 1997
  All Rights Reserved
***************
*** 26,31 ****
--- 26,32 ----
  #define DEBUG
  #include <stdio.h>
  #include <ctype.h>
+ #include <errno.h>
  #include <setjmp.h>
  #include <limits.h>
  #include <math.h>
***************
*** 1041,1048 ****
  	case POWER:
  		if (j >= 0 && modf(j, &v) == 0.0)	/* pos integer exponent */
  			i = ipow(i, (int) j);
! 		else
  			i = errcheck(pow(i, j), "pow");
  		break;
  	default:	/* can't happen */
  		FATAL("illegal arithmetic operator %d", n);
--- 1042,1051 ----
  	case POWER:
  		if (j >= 0 && modf(j, &v) == 0.0)	/* pos integer exponent */
  			i = ipow(i, (int) j);
! 		else {
! 			errno = 0;
  			i = errcheck(pow(i, j), "pow");
+ 		}
  		break;
  	default:	/* can't happen */
  		FATAL("illegal arithmetic operator %d", n);
***************
*** 1135,1142 ****
  	case POWEQ:
  		if (yf >= 0 && modf(yf, &v) == 0.0)	/* pos integer exponent */
  			xf = ipow(xf, (int) yf);
! 		else
  			xf = errcheck(pow(xf, yf), "pow");
  		break;
  	default:
  		FATAL("illegal assignment operator %d", n);
--- 1138,1147 ----
  	case POWEQ:
  		if (yf >= 0 && modf(yf, &v) == 0.0)	/* pos integer exponent */
  			xf = ipow(xf, (int) yf);
! 		else {
! 			errno = 0;
  			xf = errcheck(pow(xf, yf), "pow");
+ 		}
  		break;
  	default:
  		FATAL("illegal assignment operator %d", n);
***************
*** 1499,1510 ****
--- 1504,1518 ----
  			u = strlen(getsval(x));
  		break;
  	case FLOG:
+ 		errno = 0;
  		u = errcheck(log(getfval(x)), "log"); break;
  	case FINT:
  		modf(getfval(x), &u); break;
  	case FEXP:
+ 		errno = 0;
  		u = errcheck(exp(getfval(x)), "exp"); break;
  	case FSQRT:
+ 		errno = 0;
  		u = errcheck(sqrt(getfval(x)), "sqrt"); break;
  	case FSIN:
  		u = sin(getfval(x)); break;