basic fix for (2‿3⥊0÷0)⌾(0‿0⊸⊏) 2‿3⥊1 erroring

This commit is contained in:
dzaima 2025-05-22 04:49:36 +03:00
parent e4a8e6ed05
commit 7947f86833
2 changed files with 7 additions and 3 deletions

View File

@ -509,7 +509,8 @@ B select_replace(u32 chr, B w, B x, B rep, usz wia, usz cam, usz csz) { // consu
case el_c16: rep = toC16Any(rep); ra = reuse? a(REUSE(x)) : cpyC16Arr(x); goto do_u16; case el_c16: rep = toC16Any(rep); ra = reuse? a(REUSE(x)) : cpyC16Arr(x); goto do_u16;
case el_i32: rep = toI32Any(rep); ra = reuse? a(REUSE(x)) : cpyI32Arr(x); goto do_u32; case el_i32: rep = toI32Any(rep); ra = reuse? a(REUSE(x)) : cpyI32Arr(x); goto do_u32;
case el_c32: rep = toC32Any(rep); ra = reuse? a(REUSE(x)) : cpyC32Arr(x); goto do_u32; case el_c32: rep = toC32Any(rep); ra = reuse? a(REUSE(x)) : cpyC32Arr(x); goto do_u32;
case el_f64: rep = toF64Any(rep); ra = reuse? a(REUSE(x)) : cpyF64Arr(x); goto do_f64; case el_f64: if (csz!=1) { reuse = false; goto generic; }
rep = toF64Any(rep); ra = reuse? a(REUSE(x)) : cpyF64Arr(x); goto do_f64;
case el_bit: { ra = reuse? a(REUSE(x)) : cpyBitArr(x); case el_bit: { ra = reuse? a(REUSE(x)) : cpyBitArr(x);
TyArr* na = toBitArr(rep); rep = taga(na); TyArr* na = toBitArr(rep); rep = taga(na);
u64* np = bitarrv_ptr(na); u64* np = bitarrv_ptr(na);
@ -531,6 +532,7 @@ B select_replace(u32 chr, B w, B x, B rep, usz wia, usz cam, usz csz) { // consu
goto dec_ret_ra; goto dec_ret_ra;
} }
case el_B: { case el_B: {
generic:;
ra = reuse? a(REUSE(x)) : cpyHArr(x); ra = reuse? a(REUSE(x)) : cpyHArr(x);
B* rp = harrv_ptr(ra); B* rp = harrv_ptr(ra);
SGet(rep) SGet(rep)

View File

@ -227,10 +227,12 @@ n←500 ⋄ a←↕n ⋄ i←(-n)+↕2×n ⋄ r←⌽(2×n)⥊a ⋄ ! (⌽a) ≡
@𝕊·: @; @𝕊·: @;
𝕨𝕊0: 𝕨𝕊0:
(101160) {Repl(𝕨/) 𝕩}_res _eqvar 1001 (101160) {Repl(𝕨/) 𝕩}_res _eqvar 1001
"𝔽⌾(a⊸/): Incompatible result elements" HasMsg (10270) {Repl(𝕨/) 𝕩}_res _mod _eqvar 1001 "𝔽⌾(a⊸/): Incompatible result elements" HasMsg (10270) { Repl (𝕨/) 𝕩}_res _mod _eqvar 10 01
"⌾: Incompatible result elements in structural Under" HasMsg (10270) {(3˘Repl)(𝕨/) 𝕩}_res _mod _eqvar 10301
125 {Repl(𝕨) 𝕩}_res _eqvar 1001 125 {Repl(𝕨) 𝕩}_res _eqvar 1001
"𝔽⌾(a⊸⊏): Incompatible result elements" HasMsg 144 {Repl(𝕨) 𝕩}_res _mod _eqvar 1001 "𝔽⌾(a⊸⊏): Incompatible result elements" HasMsg 144 { Repl (𝕨) 𝕩}_res _mod _eqvar 10 01
"𝔽⌾(a⊸⊏): Incompatible result elements" HasMsg 144 {(3˘Repl)(𝕨) 𝕩}_res _mod _eqvar 10301
; ;
𝕨𝕊1: 𝕨𝕊1:
"⌾: Incompatible result elements in structural Under" HasMsg 122 {Repl(𝕨¨) 𝕩}_res _mod 010 "⌾: Incompatible result elements in structural Under" HasMsg 122 {Repl(𝕨¨) 𝕩}_res _mod 010