From c66d2056bc25abaeef188e4709806e9fd30283f4 Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Mon, 7 Nov 1994 03:40:52 +0000 Subject: [PATCH] Implemented full ABS. --- monitor.c | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/monitor.c b/monitor.c index a419008..e16bbeb 100644 --- a/monitor.c +++ b/monitor.c @@ -278,8 +278,12 @@ value cupl_abs(value right) die("ABS is only defined for scalar arguments\n"); else { - make_scalar(&result, 0); - result.elements[0] = abs(right.elements[0]); + value result; + int n; + + result = copy_value(right); + for (n = 0; n < right.width * right.depth; n++) + result.elements[n] = fabs(right.elements[n]); return(result); } } -- 2.43.0