Update awk from 20110810 to 20121220 on vendor branch
authorJohn Marino <draco@marino.st>
Wed, 8 May 2013 23:40:12 +0000 (01:40 +0200)
committerJohn Marino <draco@marino.st>
Thu, 9 May 2013 00:33:55 +0000 (02:33 +0200)
contrib/awk/FIXES
contrib/awk/README.DELETED [deleted file]
contrib/awk/main.c
contrib/awk/proto.h
contrib/awk/run.c
contrib/awk/tran.c

index a708027..c78aabc 100644 (file)
@@ -25,6 +25,22 @@ THIS SOFTWARE.
 This file lists all bug fixes, changes, etc., made since the AWK book
 was sent to the printers in August, 1987.
 
+Dec 20, 2012:
+       fiddled makefile to get correct yacc and bison flags.  pick yacc
+       (linux) or bison (mac) as necessary.
+
+       added  __attribute__((__noreturn__)) to a couple of lines in
+       proto.h, to silence someone's enthusiastic checker.
+
+       fixed obscure call by value bug in split(a[1],a) reported on
+       9fans.  the management of temporary values is just a mess; i
+       took a shortcut by making an extra string copy.  thanks
+       to paul patience and arnold robbins for passing it on and for
+       proposed patches.
+
+       tiny fiddle in setfval to eliminate -0 results in T.expr, which
+       has irritated me for 20+ years.
+
 Aug 10, 2011:
        another fix to avoid core dump with delete(ARGV); again, many thanks
        to ruslan ermilov.
diff --git a/contrib/awk/README.DELETED b/contrib/awk/README.DELETED
deleted file mode 100644 (file)
index e222486..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-makefile
-proctab.c
-ytab.c
-ytab.h
-ytabc.bak
-ytabh.bak
index 3c4dbf5..4b65997 100644 (file)
@@ -22,7 +22,7 @@ ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
 THIS SOFTWARE.
 ****************************************************************/
 
-const char     *version = "version 20110810";
+const char     *version = "version 20121220";
 
 #define DEBUG
 #include <stdio.h>
index e4de112..9a657ef 100644 (file)
@@ -46,7 +46,7 @@ extern        void    freetr(Node *);
 extern int     hexstr(uschar **);
 extern int     quoted(uschar **);
 extern char    *cclenter(const char *);
-extern void    overflo(const char *);
+extern void    overflo(const char *) __attribute__((__noreturn__));
 extern void    cfoll(fa *, Node *);
 extern int     first(Node *);
 extern void    follow(Node *);
@@ -132,7 +132,7 @@ extern      void    fpecatch(int);
 extern void    bracecheck(void);
 extern void    bcheck2(int, int, int);
 extern void    SYNTAX(const char *, ...);
-extern void    FATAL(const char *, ...);
+extern void    FATAL(const char *, ...) __attribute__((__noreturn__));
 extern void    WARNING(const char *, ...);
 extern void    error(void);
 extern void    eprint(void);
index 553081f..6c4ce10 100644 (file)
@@ -1210,13 +1210,13 @@ Cell *dopa2(Node **a, int n)    /* a[0], a[1] { a[2] } */
 Cell *split(Node **a, int nnn) /* split(a[0], a[1], a[2]); a[3] is type */
 {
        Cell *x = 0, *y, *ap;
-       char *s;
+       char *s, *origs;
        int sep;
        char *t, temp, num[50], *fs = 0;
        int n, tempstat, arg3type;
 
        y = execute(a[0]);      /* source string */
-       s = getsval(y);
+       origs = s = strdup(getsval(y));
        arg3type = ptoi(a[3]);
        if (a[2] == 0)          /* fs string */
                fs = *FS;
@@ -1336,6 +1336,7 @@ Cell *split(Node **a, int nnn)    /* split(a[0], a[1], a[2]); a[3] is type */
        }
        tempfree(ap);
        tempfree(y);
+       free(origs);
        if (a[2] != 0 && arg3type == STRING) {
                tempfree(x);
        }
index e9d7750..a9fa325 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;
 }