Unified · Split
| @@ -694,9 +694,7 @@ Math_norm1(vm_registers_t &r, vm_t &vm) · 693 unmodified lines | |||
| 694 | void | 694 | void |
| 695 | Math_norm2(vm_registers_t &r, vm_t &vm) | 695 | Math_norm2(vm_registers_t &r, vm_t &vm) |
| 696 | { | 696 | { |
| 697 | // [SPEC] This function is defined as: norm2(x) = sqrt(dot(x, x)) | 697 | // Defined as: norm2(x) = sqrt(dot(x, x)) |
| 698 | // The Inferno implementation (libmath/blas.c) doesn't appear to take | ||
| 699 | // the square root of the resulting dot product. | ||
| 700 | auto &fp = r.stack.peek_frame()->base<F_Math_norm2>(); | 698 | auto &fp = r.stack.peek_frame()->base<F_Math_norm2>(); |
| 701 | 699 | ||
| 702 | auto xs = vm_alloc_t::from_allocation<vm_array_t>(fp.x); | 700 | auto xs = vm_alloc_t::from_allocation<vm_array_t>(fp.x); |