def mul_cls

bend-collections-laws-crypto@1.0.0.0 · src/math/f64.bend:354

import Base
import bend-collections-laws-crypto@1.0.0.0/src/math/u64.bend as W

354def mul_cls(+s: Bool, +ea: Nat, +fa: W.U64, +eb: Nat, +fb: W.U64, top: Bool) -> F64:
355  match top:
356    case True{}:
357      inf_or_nan(s, Bool.or(Bool.or(nz(fa), Bool.and(Nat.is_eq(eb, 2047n), nz(fb))), fin_zero(eb, fb)))
358    case False{}:
359      mul_b(s, ea, fa, eb, fb, Nat.is_eq(eb, 2047n))