be really loud when doing unwise things that WILL break in R41

This commit is contained in:
tg 2012-03-24 19:13:27 +00:00
parent e83e43aaa5
commit f9d644e243
2 changed files with 23 additions and 3 deletions

18
check.t
View File

@ -1,4 +1,4 @@
# $MirOS: src/bin/mksh/check.t,v 1.518 2012/03/23 23:25:23 tg Exp $ # $MirOS: src/bin/mksh/check.t,v 1.519 2012/03/24 19:13:25 tg Exp $
# $OpenBSD: bksl-nl.t,v 1.2 2001/01/28 23:04:56 niklas Exp $ # $OpenBSD: bksl-nl.t,v 1.2 2001/01/28 23:04:56 niklas Exp $
# $OpenBSD: history.t,v 1.5 2001/01/28 23:04:56 niklas Exp $ # $OpenBSD: history.t,v 1.5 2001/01/28 23:04:56 niklas Exp $
# $OpenBSD: read.t,v 1.3 2003/03/10 03:48:16 david Exp $ # $OpenBSD: read.t,v 1.3 2003/03/10 03:48:16 david Exp $
@ -3416,6 +3416,7 @@ expected-stdout:
name: integer-base-err-1 name: integer-base-err-1
description: description:
Can't have 0 base (causes shell to exit) Can't have 0 base (causes shell to exit)
category: nodeprecated
expected-exit: e != 0 expected-exit: e != 0
stdin: stdin:
typeset -i i typeset -i i
@ -3425,6 +3426,19 @@ stdin:
expected-stderr-pattern: expected-stderr-pattern:
/^.*:.*0#4.*\n$/ /^.*:.*0#4.*\n$/
--- ---
name: integer-base-err-1-deprecated
description:
Can't have 0 base (causes shell to exit)
category: !nodeprecated
expected-exit: e != 0
stdin:
typeset -i i
i=3
i=0#4
echo $i
expected-stderr-pattern:
/^.*octal is deprecated\n.*:.*0#4.*\n$/
---
name: integer-base-err-2 name: integer-base-err-2
description: description:
Can't have multiple bases in a 'constant' (causes shell to exit) Can't have multiple bases in a 'constant' (causes shell to exit)
@ -3628,6 +3642,8 @@ stdin:
echo :$((10)).$((010)).$((0x10)). echo :$((10)).$((010)).$((0x10)).
expected-stdout: expected-stdout:
:10.8.16. :10.8.16.
expected-stderr-pattern:
/octal is deprecated/
--- ---
name: integer-base-check-flat-right name: integer-base-check-flat-right
description: description:

8
var.c
View File

@ -27,7 +27,7 @@
#include <sys/sysctl.h> #include <sys/sysctl.h>
#endif #endif
__RCSID("$MirOS: src/bin/mksh/var.c,v 1.143 2012/03/23 23:25:30 tg Exp $"); __RCSID("$MirOS: src/bin/mksh/var.c,v 1.144 2012/03/24 19:13:27 tg Exp $");
/*- /*-
* Variables * Variables
@ -503,8 +503,12 @@ getint(struct tbl *vp, mksh_ari_t *nump, bool arith)
} else if (vp->flag & ZEROFIL) { } else if (vp->flag & ZEROFIL) {
while (*s == '0') while (*s == '0')
s++; s++;
} else } else {
warningf(true, "interpreting %s[%lu]='%s' as octal"
" is deprecated", vp->name,
arrayindex(vp), vp->val.s + vp->type);
base = 8; base = 8;
}
have_base = true; have_base = true;
} }
#endif #endif