From 1acf23db3eceaae559328db68d6aae755edb0fb8 Mon Sep 17 00:00:00 2001 From: Peter Stephenson Date: Sat, 5 Sep 2009 19:49:19 +0000 Subject: 27243: reverse indexing of arrays with beginning index out of range returned wrong value --- Src/params.c | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'Src/params.c') diff --git a/Src/params.c b/Src/params.c index 4767aaa34..0425e0700 100644 --- a/Src/params.c +++ b/Src/params.c @@ -1345,6 +1345,11 @@ getarg(char **str, int *inv, Value v, int a2, zlong *w, len = arrlen(ta); if (beg < 0) beg += len; + if (down) { + if (beg < 0) + return 0; + } else if (beg >= len) + return len + 1; if (beg >= 0 && beg < len) { if (down) { if (!hasbeg) @@ -1363,6 +1368,11 @@ getarg(char **str, int *inv, Value v, int a2, zlong *w, len = arrlen(ta); if (beg < 0) beg += len; + if (down) { + if (beg < 0) + return 0; + } else if (beg >= len) + return len + 1; if (beg >= 0 && beg < len) { if (down) { if (!hasbeg) -- cgit 1.4.1