blob: 5727a78c7b89dae127e81e922f45696b2ed43686 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
$NetBSD: patch-af,v 1.8 2002/04/11 15:26:20 abs Exp $
--- sh.dol.c.orig Wed Jul 25 16:48:04 2001
+++ sh.dol.c
@@ -585,10 +585,8 @@
c = DgetC(0);
} while (Isdigit(c));
unDredc(c);
- if (subscr < 0) {
- dolerror(vp->v_name);
- return;
- }
+ if (subscr < 0)
+ stderror(ERR_RANGE);
if (subscr == 0) {
if (bitset) {
dolp = dolzero ? STR1 : STR0;
|