From 9e58764466b54add144f6a808656f0963c1202d8 Mon Sep 17 00:00:00 2001
From: Martynas Venckus <martynas@cvs.openbsd.org>
Date: Sat, 13 Sep 2008 21:25:41 +0000
Subject: remove z_abs.  ok millert@

---
 lib/libm/arch/vax/n_cabs.S   | 10 +---------
 lib/libm/noieee_src/n_cabs.c |  8 +-------
 2 files changed, 2 insertions(+), 16 deletions(-)

(limited to 'lib/libm')

diff --git a/lib/libm/arch/vax/n_cabs.S b/lib/libm/arch/vax/n_cabs.S
index 78acf5f9826..02f01ae8277 100644
--- a/lib/libm/arch/vax/n_cabs.S
+++ b/lib/libm/arch/vax/n_cabs.S
@@ -1,4 +1,4 @@
-/*	$OpenBSD: n_cabs.S,v 1.3 2008/05/21 20:37:10 miod Exp $	*/
+/*	$OpenBSD: n_cabs.S,v 1.4 2008/09/13 21:25:40 martynas Exp $	*/
 /*	$NetBSD: n_cabs.S,v 1.1 1995/10/10 23:40:26 ragge Exp $	*/
 /*
  * Copyright (c) 1985, 1993
@@ -49,14 +49,6 @@ ALTENTRY(hypot)
 ENTRY(cabs, 0x8000|R2|R3|R4|R5|R6)	# enable floating overflow
 	movq	4(ap),r0	# r0:1 = x
 	movq	12(ap),r2	# r2:3 = y
-	jmp	cabs2
-/*	entry for Fortran use, call by:   d = abs(z) */
-ENTRY(z_abs, 0x8000|R2|R3|R4|R5|R6)	# enable floating overflow
-	movl	4(ap),r2	# indirect addressing is necessary here
-	movq	(r2)+,r0	# r0:1 = x
-	movq	(r2),r2		# r2:3 = y
-
-cabs2:
 	bicw3	$0x7f,r0,r4	# r4 has signed biased exp of x
 	cmpw	$0x8000,r4
 	jeql	return		# x is a reserved operand, so return it
diff --git a/lib/libm/noieee_src/n_cabs.c b/lib/libm/noieee_src/n_cabs.c
index d3dc5964cbb..db0326c5271 100644
--- a/lib/libm/noieee_src/n_cabs.c
+++ b/lib/libm/noieee_src/n_cabs.c
@@ -1,4 +1,4 @@
-/*	$OpenBSD: n_cabs.c,v 1.10 2008/07/17 15:36:28 martynas Exp $	*/
+/*	$OpenBSD: n_cabs.c,v 1.11 2008/09/13 21:25:40 martynas Exp $	*/
 /*	$NetBSD: n_cabs.c,v 1.1 1995/10/10 23:36:39 ragge Exp $	*/
 /*
  * Copyright (c) 1985, 1993
@@ -177,12 +177,6 @@ cabs(struct complex z)
 	return hypot(z.x,z.y);
 }
 
-double
-z_abs(struct complex *z)
-{
-	return hypot(z->x,z->y);
-}
-
 /* A faster but less accurate version of cabs(x,y) */
 #if 0
 double
-- 
cgit v1.2.3