From da9ab92bd50fd1fe6e9cf0e4dcb9b801841c9fc4 Mon Sep 17 00:00:00 2001 From: dzaima Date: Fri, 2 Jul 2021 15:43:45 +0300 Subject: [PATCH] =?UTF-8?q?set=20shape=20in=20=CB=98?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/md1.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/builtins/md1.c b/src/builtins/md1.c index 294656c4..1a9cfa54 100644 --- a/src/builtins/md1.c +++ b/src/builtins/md1.c @@ -337,7 +337,11 @@ B cell_c1(B d, B x) { B f = c(Md1D,d)->f; usz cr = rnk(x)-1; usz cam = a(x)->sh[0]; usz csz = arr_csz(x); - ShArr* csh; if (cr>1) csh = m_shArr(cr); + ShArr* csh; + if (cr>1) { + csh = m_shArr(cr); + memcpy(csh->a, a(x)->sh+1, sizeof(usz)*cr); + } usz i = 0; BS2B slice = TI(x).slice; HArr_p r = m_harrs(cam, &i);