Extract slices recursively.

	This fixes deeply nestedl slices of arrays of slices
	of arrays.

2 files changed, 2 insertions, 1 deletions

diff --git a/6/blob.c b/6/blob.c
index 4c1fa0b..410acab 100644
--- a/6/blob.c
+++ b/6/blob.c
@@ -205,7 +205,7 @@ blobslice(Blob *seq,  Htab *globls, Htab *strtab, Node *n)
 		sz = tysize(tybase(exprtype(base))->sub[0]);
 		lbl = htget(globls, base);
 		slbase = mkblobref(lbl, loval*sz, 1);
-	} else if (exprop(base) == Olit) {
+	} else if (exprop(base) == Olit || exprop(base) == Oarr) {
 		slbase = mkblobi(Bti64, getintlit(base, "invalid base expr"));
 	} else {
 		fatal(base, "slice base is not a constant value");
diff --git a/6/simp.c b/6/simp.c
index 803c5d3..121dcd5 100644
--- a/6/simp.c
+++ b/6/simp.c
@@ -1479,6 +1479,7 @@ extractsub(Simp *s, Node *e)
 	switch (exprop(e)) {
 	case Oslice:
 		sub = e->expr.args[0];
+		extractsub(s, sub);
 		if (exprop(sub) == Oarr) {
 			if (sub->expr.nargs > 0) {
 				e->expr.args[0] = simpblob(s, e->expr.args[0]);