===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/awk/tran.c,v
retrieving revision 1.32
retrieving revision 1.33
diff -c -r1.32 -r1.33
*** src/usr.bin/awk/tran.c	2020/12/09 20:00:11	1.32
--- src/usr.bin/awk/tran.c	2020/12/18 21:36:24	1.33
***************
*** 1,4 ****
! /*	$OpenBSD: tran.c,v 1.32 2020/12/09 20:00:11 millert Exp $	*/
  /****************************************************************
  Copyright (C) Lucent Technologies 1997
  All Rights Reserved
--- 1,4 ----
! /*	$OpenBSD: tran.c,v 1.33 2020/12/18 21:36:24 millert Exp $	*/
  /****************************************************************
  Copyright (C) Lucent Technologies 1997
  All Rights Reserved
***************
*** 419,428 ****
--- 419,439 ----
  	return(vp->fval);
  }
  
+ static char *get_inf_nan(double d)
+ {
+ 	if (isinf(d)) {
+ 		return (d < 0 ? "-inf" : "+inf");
+ 	} else if (isnan(d)) {
+ 		return (signbit(d) != 0 ? "-nan" : "+nan");
+ 	} else
+ 		return NULL;
+ }
+ 
  static char *get_str_val(Cell *vp, char **fmt)        /* get string val of a Cell */
  {
  	int n;
  	double dtemp;
+ 	char *p;
  
  	if ((vp->tval & (NUM | STR)) == 0)
  		funnyvar(vp, "read value of");
***************
*** 459,465 ****
  	{ \
  		if (freeable(vp)) \
  			xfree(vp->sval); \
! 		if (modf(vp->fval, &dtemp) == 0)	/* it's integral */ \
  			n = asprintf(&vp->sval, "%.30g", vp->fval); \
  		else \
  			n = asprintf(&vp->sval, *fmt, vp->fval); \
--- 470,478 ----
  	{ \
  		if (freeable(vp)) \
  			xfree(vp->sval); \
! 		if ((p = get_inf_nan(vp->fval)) != NULL) \
! 			n = (vp->sval = strdup(p)) ? 0 : -1; \
! 		else if (modf(vp->fval, &dtemp) == 0)	/* it's integral */ \
  			n = asprintf(&vp->sval, "%.30g", vp->fval); \
  		else \
  			n = asprintf(&vp->sval, *fmt, vp->fval); \