Merge branch 'master' into assign-expr
This commit is contained in:
commit
3222d96844
@ -1,3 +1,9 @@
|
|||||||
|
2018-08-29 Arnold D. Robbins <arnold@skeeve.com>
|
||||||
|
|
||||||
|
* REGRESS: Check for existence of a.out. If not there, run
|
||||||
|
make. Enable core dumps for T.arnold system status test
|
||||||
|
to work on MacOS X.
|
||||||
|
|
||||||
2018-08-22 Arnold D. Robbins <arnold@skeeve.com>
|
2018-08-22 Arnold D. Robbins <arnold@skeeve.com>
|
||||||
|
|
||||||
* awktest.tar (testdir/T.expr): Fix test for unary plus.
|
* awktest.tar (testdir/T.expr): Fix test for unary plus.
|
||||||
|
5
FIXES
5
FIXES
@ -25,6 +25,11 @@ THIS SOFTWARE.
|
|||||||
This file lists all bug fixes, changes, etc., made since the AWK book
|
This file lists all bug fixes, changes, etc., made since the AWK book
|
||||||
was sent to the printers in August, 1987.
|
was sent to the printers in August, 1987.
|
||||||
|
|
||||||
|
Oct 25, 2018:
|
||||||
|
Added test in maketab.c to prevent generating a proctab entry
|
||||||
|
for YYSTYPE_IS_DEFINED. It was harmless but some gcc settings
|
||||||
|
generated a warning message. Thanks to Nan Xiao for report.
|
||||||
|
|
||||||
Aug 27, 2018:
|
Aug 27, 2018:
|
||||||
Disallow '$' in printf formats; arguments evaluated in order
|
Disallow '$' in printf formats; arguments evaluated in order
|
||||||
and printed in order.
|
and printed in order.
|
||||||
|
15
REGRESS
15
REGRESS
@ -1,5 +1,15 @@
|
|||||||
#! /bin/sh
|
#! /bin/sh
|
||||||
|
|
||||||
|
case `uname` in
|
||||||
|
CYGWIN) EXE=a.exe ;;
|
||||||
|
*) EXE=a.out ;;
|
||||||
|
esac
|
||||||
|
|
||||||
|
if [ ! -f $EXE ]
|
||||||
|
then
|
||||||
|
make || exit 1
|
||||||
|
fi
|
||||||
|
|
||||||
if [ -d testdir ]
|
if [ -d testdir ]
|
||||||
then
|
then
|
||||||
true # do nothing
|
true # do nothing
|
||||||
@ -16,5 +26,10 @@ cd testdir
|
|||||||
pwd
|
pwd
|
||||||
PATH=.:$PATH
|
PATH=.:$PATH
|
||||||
export PATH
|
export PATH
|
||||||
|
if (ulimit -c unlimited > /dev/null 2>&1)
|
||||||
|
then
|
||||||
|
# Workaround broken default on MacOS X
|
||||||
|
ulimit -c unlimited
|
||||||
|
fi
|
||||||
|
|
||||||
REGRESS
|
REGRESS
|
||||||
|
@ -24,7 +24,10 @@ and also if CONVFMT changed.
|
|||||||
7. unary-plus: Unary plus on a string constant returned the string.
|
7. unary-plus: Unary plus on a string constant returned the string.
|
||||||
Instead, it should convert the value to numeric and give that value.
|
Instead, it should convert the value to numeric and give that value.
|
||||||
|
|
||||||
X. concat-assign-same: Concatenation previously evaluated both sides of the
|
8. concat-assign-same: Concatenation previously evaluated both sides of the
|
||||||
expression before doing its work, which, since assign() evaluates to the cell
|
expression before doing its work, which, since assign() evaluates to the cell
|
||||||
being assigned to, meant that expressions like "print (a = 1) (a = 2)" would
|
being assigned to, meant that expressions like "print (a = 1) (a = 2)" would
|
||||||
print "22" rather than "12".
|
print "22" rather than "12".
|
||||||
|
|
||||||
|
9. missing-precision: When using the format string "%*s", the precision
|
||||||
|
argument was used without checking if it was present first.
|
1
bugs-fixed/missing-precision.awk
Normal file
1
bugs-fixed/missing-precision.awk
Normal file
@ -0,0 +1 @@
|
|||||||
|
BEGIN { printf("%*s"); }
|
2
bugs-fixed/missing-precision.ok
Normal file
2
bugs-fixed/missing-precision.ok
Normal file
@ -0,0 +1,2 @@
|
|||||||
|
./a.out: not enough args in printf(%*s)
|
||||||
|
source line number 1
|
4
makefile
4
makefile
@ -34,8 +34,8 @@ CC = gcc -g -Wall -pedantic
|
|||||||
|
|
||||||
# yacc options. pick one; this varies a lot by system.
|
# yacc options. pick one; this varies a lot by system.
|
||||||
#YFLAGS = -d -S
|
#YFLAGS = -d -S
|
||||||
#YACC = bison -d -y
|
YACC = bison -d -y
|
||||||
YACC = yacc -d
|
#YACC = yacc -d
|
||||||
# -S uses sprintf in yacc parser instead of sprint
|
# -S uses sprintf in yacc parser instead of sprint
|
||||||
|
|
||||||
OFILES = b.o main.o parse.o proctab.o tran.o lib.o run.o lex.o
|
OFILES = b.o main.o parse.o proctab.o tran.o lib.o run.o lex.o
|
||||||
|
@ -135,6 +135,8 @@ int main(int argc, char *argv[])
|
|||||||
n = sscanf(buf, "%1c %s %s %d", &c, def, name, &tok);
|
n = sscanf(buf, "%1c %s %s %d", &c, def, name, &tok);
|
||||||
if (c != '#' || (n != 4 && strcmp(def,"define") != 0)) /* not a valid #define */
|
if (c != '#' || (n != 4 && strcmp(def,"define") != 0)) /* not a valid #define */
|
||||||
continue;
|
continue;
|
||||||
|
if (strcmp(name, "YYSTYPE_IS_DECLARED") == 0)
|
||||||
|
continue;
|
||||||
if (tok < FIRSTTOKEN || tok > LASTTOKEN) {
|
if (tok < FIRSTTOKEN || tok > LASTTOKEN) {
|
||||||
/* fprintf(stderr, "maketab funny token %d %s ignored\n", tok, buf); */
|
/* fprintf(stderr, "maketab funny token %d %s ignored\n", tok, buf); */
|
||||||
continue;
|
continue;
|
||||||
|
3
run.c
3
run.c
@ -863,6 +863,9 @@ int format(char **pbuf, int *pbufsize, const char *s, Node *a) /* printf-like co
|
|||||||
FATAL("'$' not permitted in awk formats");
|
FATAL("'$' not permitted in awk formats");
|
||||||
}
|
}
|
||||||
if (*s == '*') {
|
if (*s == '*') {
|
||||||
|
if (a == NULL) {
|
||||||
|
FATAL("not enough args in printf(%s)", os);
|
||||||
|
}
|
||||||
x = execute(a);
|
x = execute(a);
|
||||||
a = a->nnext;
|
a = a->nnext;
|
||||||
sprintf(t-1, "%d", fmtwd=(int) getfval(x));
|
sprintf(t-1, "%d", fmtwd=(int) getfval(x));
|
||||||
|
Loading…
x
Reference in New Issue
Block a user