Merge branch 'vendor/AWK'
[dragonfly.git] / contrib / awk / tran.c
index be5ce4c..da43a3d 100644 (file)
@@ -298,6 +298,8 @@ Awkfloat setfval(Cell *vp, Awkfloat f)      /* set float val of a Cell */
                xfree(vp->sval); /* free any previous string */
        vp->tval &= ~STR;       /* mark string invalid */
        vp->tval |= NUM;        /* mark number ok */
+       if (f == -0)  /* who would have thought this possible? */
+               f = 0;
           dprintf( ("setfval %p: %s = %g, t=%o\n", (void*)vp, NN(vp->nval), f, vp->tval) );
        return vp->fval = f;
 }