avoid UB __shl{neative,x}
This commit is contained in:
parent
7aaa240ab1
commit
fd58b87e61
@ -176,6 +176,8 @@ def sum_accumulator{DE==i64, unr, VT=[k]SE==i32 if hasarch{'X86_64'}} = { # TODO
|
||||
def {accl, _, accl_tup, accl_vec} = acc_impl{mask_ident{+,0}, +, unr, VT, SE, 0}
|
||||
def {acch, _, acch_tup, acch_vec} = acc_impl{mask_ident{+,0}, +, unr, VT, SE, 0}
|
||||
|
||||
def __shl{a:T, b if issigned{T}} = T ~~ (ty_u{a} << b)
|
||||
|
||||
extend perv2{__shr}
|
||||
def me{'acc', ...M, v} = match (v) {
|
||||
{v:T if primtype{T} and M{0}==0} => acc += promote{DE, v}
|
||||
|
||||
@ -533,6 +533,10 @@ b←1↓1∾a←"hello" ⋄ b ⌽⎊'e' ⥊⟜1⍟2 5 ⋄ a ≡○•Hash b %% 1
|
||||
!"𝔽´𝕩: 𝕩 must be a list (3‿3 ≡ ≢𝕩)" % +´↕3‿3
|
||||
!"𝕨𝔽´𝕩: 𝕩 must be a list (3‿3 ≡ ≢𝕩)" % 2+´↕3‿3
|
||||
!"𝔽´𝕩: Identity not found" % •internal.Keep´⟨⟩
|
||||
%USE eqvar ⋄ +´_eqvar 1e3⥊1e2 %% 1e5
|
||||
%USE eqvar ⋄ +´_eqvar 1e3⥊↕100 %% 4950e1
|
||||
%USE eqvar ⋄ +´_eqvar 1e4⥊-↕100 %% ¯4950e2
|
||||
%USE eqvar ⋄ +´_eqvar 1e4⥊-1e9 %% ¯1e13
|
||||
+⌜´↕0 %% <0
|
||||
×⌜´↕0 %% <1
|
||||
+⌜⌜⌜´↕0 %% <<<0
|
||||
|
||||
Loading…
Reference in New Issue
Block a user