[src/trunk]: src/gnu/dist/gawk Add patch from gawk-3.0.46 to fix "OFMT" handl...

[tron <tron%NetBSD.org@localhost>]

details:   https://anonhg.NetBSD.org/src/rev/fd61ccc3236e
branches:  trunk
changeset: 473937:fd61ccc3236e
user:      tron <tron%NetBSD.org@localhost>
date:      Tue Jun 22 18:17:24 1999 +0000

description:
Add patch from gawk-3.0.46 to fix "OFMT" handling. Fix supplied by
NAKAJIMA Yoshihiro in PR bin/7834.

diffstat:

 gnu/dist/gawk/builtin.c |  8 ++++++--
 1 files changed, 6 insertions(+), 2 deletions(-)

diffs (25 lines):

diff -r 9b2641efddda -r fd61ccc3236e gnu/dist/gawk/builtin.c
--- a/gnu/dist/gawk/builtin.c   Tue Jun 22 16:28:22 1999 +0000
+++ b/gnu/dist/gawk/builtin.c   Tue Jun 22 18:17:24 1999 +0000
@@ -1082,6 +1082,7 @@
        register FILE *fp;
        int numnodes, i;
        NODE *save;
+       NODE *tval;
 
        if (tree->rnode) {
                int errflg;             /* not used, sigh */
@@ -1118,8 +1119,11 @@
                if (t[i]->flags & NUMBER) {
                        if (OFMTidx == CONVFMTidx)
                                (void) force_string(t[i]);
-                       else
-                               t[i] = format_val(OFMT, OFMTidx, t[i]);
+                       else {
+                               tval = tmp_number(t[i]->numbr);
+                               unref(t[i]);
+                               t[i] = format_val(OFMT, OFMTidx, tval);
+                       }
                }
        }