import the original hp sources for the spmath library w/

the a bsd-like hp licensing on 'em.
w/ many thanks to:
Mike Hibler <mike@fast.cs.utah.edu>
James Loveluck <loveluck@ri.silicomp.fr>
Patrick Roudaud <patrick@enserg.fr>

1 files changed, 105 insertions, 0 deletions

diff --git a/sys/arch/hppa/spmath/divsfr.c b/sys/arch/hppa/spmath/divsfr.c
new file mode 100644
index 00000000000..d74ff9456b8
--- /dev/null
+++ b/sys/arch/hppa/spmath/divsfr.c
@@ -0,0 +1,105 @@
+/*
+ * Copyright 1996 1995 by Open Software Foundation, Inc.   
+ *              All Rights Reserved 
+ *  
+ * Permission to use, copy, modify, and distribute this software and 
+ * its documentation for any purpose and without fee is hereby granted, 
+ * provided that the above copyright notice appears in all copies and 
+ * that both the copyright notice and this permission notice appear in 
+ * supporting documentation. 
+ *  
+ * OSF DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE 
+ * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS 
+ * FOR A PARTICULAR PURPOSE. 
+ *  
+ * IN NO EVENT SHALL OSF BE LIABLE FOR ANY SPECIAL, INDIRECT, OR 
+ * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM 
+ * LOSS OF USE, DATA OR PROFITS, WHETHER IN ACTION OF CONTRACT, 
+ * NEGLIGENCE, OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION 
+ * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
+ * 
+ */
+/*
+ * pmk1.1
+ */
+/*
+ * (c) Copyright 1986 HEWLETT-PACKARD COMPANY
+ *
+ * To anyone who acknowledges that this file is provided "AS IS" 
+ * without any express or implied warranty:
+ *     permission to use, copy, modify, and distribute this file 
+ * for any purpose is hereby granted without fee, provided that 
+ * the above copyright notice and this notice appears in all 
+ * copies, and that the name of Hewlett-Packard Company not be 
+ * used in advertising or publicity pertaining to distribution 
+ * of the software without specific, written prior permission.  
+ * Hewlett-Packard Company makes no representations about the 
+ * suitability of this software for any purpose.
+ */
+/* $Source: /cvs/OpenBSD/src/sys/arch/hppa/spmath/divsfr.c,v $
+ * $Revision: 1.1 $	$Author: mickey $
+ * $State: Exp $   	$Locker:  $
+ * $Date: 1998/06/23 20:33:55 $
+ */
+
+
+#include "../spmath/md.h"
+
+VOID divsfr(opnd1,opnd2,result)
+
+int opnd1, opnd2;
+struct mdsfu_register *result;
+{
+	int sign, op1_sign;
+
+	/* check divisor for zero */
+	if (opnd2 == 0) {
+		overflow = TRUE;
+		return;
+	}
+
+	/* get sign of result */
+	sign = opnd1 ^ opnd2;
+
+	/* get absolute value of operands */
+	if (opnd1 < 0) {
+		opnd1 = -opnd1;
+		op1_sign = TRUE;
+	}
+	else op1_sign = FALSE;
+	if (opnd2 < 0) opnd2 = -opnd2;
+
+	/* 
+	 * check for overflow 
+	 *
+	 * if abs(opnd1) < 0, then opnd1 = -2**31
+	 * and abs(opnd1) >= abs(opnd2) always
+	 */
+	if (opnd1 >= opnd2 || opnd1 < 0) {
+		/* check for opnd2 = -2**31 */
+		if (opnd2 < 0 && opnd1 != opnd2) {
+			result_hi = 0;		/* remainder = 0 */
+			result_lo = opnd1 << 1;
+		}
+		else {
+			overflow = TRUE;
+			return;
+		}
+	}
+	else {
+		/* do the divide */
+		divu(opnd1,0,opnd2,result);
+	}
+
+	/* check for overflow */
+	if (result_lo < 0) {
+		overflow = TRUE;
+		return;
+	}
+	overflow = FALSE;
+
+	/* return appropriately signed remainder and result */
+	if (op1_sign) result_hi = -result_hi;
+	if (sign<0) result_lo = -result_lo;
+	return;
+}