diff --git a/src/builtins/transpose.c b/src/builtins/transpose.c index 92f7f5a7..f71fcb10 100644 --- a/src/builtins/transpose.c +++ b/src/builtins/transpose.c @@ -170,11 +170,12 @@ B transp_c2(B t, B w, B x) { if (isAtm(x) || (xr=RNK(x))=xr) thrF("ā‰: Axis %s does not exist (%i≔=š•©)", a, xr); - if (a==xr-1) { TFREE(p); return C1(transp, x); } + if (a==xr-1) { TFREE(alloc); return C1(transp, x); } p[0] = a; } else { SGetU(w) @@ -190,7 +191,7 @@ B transp_c2(B t, B w, B x) { // Compute shape for the given axes usz* xsh = SH(x); - usz *rsh = (usz*)(p + xr); // Length xr + usz* rsh = (usz*)(p + xr); // Length xr usz dup = 0, max = 0, id = 0; usz no_sh = -(usz)1; for (usz j=0; j