--- src/lib/msun/i387/Attic/s_floor.S	2003/06/17 04:26:52	1.2
+++ src/lib/msun/i387/Attic/s_floor.S	2004/12/29 11:40:18	1.3
@@ -1,44 +1,17 @@
 /*
- * Copyright (c) 1993,94 Winning Strategies, Inc.
- * All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- * 1. Redistributions of source code must retain the above copyright
- *    notice, this list of conditions and the following disclaimer.
- * 2. Redistributions in binary form must reproduce the above copyright
- *    notice, this list of conditions and the following disclaimer in the
- *    documentation and/or other materials provided with the distribution.
- * 3. All advertising materials mentioning features or use of this software
- *    must display the following acknowledgement:
- *      This product includes software developed by Winning Strategies, Inc.
- * 4. The name of the author may not be used to endorse or promote products
- *    derived from this software without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
- * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
- * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
- * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
- * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
- * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
- * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
- * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
- * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
- * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
-
-/*
- * Written by:
- *	J.T. Conklin (jtc@wimsey.com), Winning Strategies, Inc.
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
  */
 
 #include <machine/asm.h>
 
-RCSID("$FreeBSD: src/lib/msun/i387/s_floor.S,v 1.7 1999/08/28 00:06:12 peter Exp $")
-RCSID("$DragonFly: src/lib/msun/i387/s_floor.S,v 1.1 2003/06/16 04:54:01 dillon Exp $")
+#if 0
+RCSID("$NetBSD: s_floor.S,v 1.7 2002/03/26 15:17:37 fvdl Exp $")
+#endif
+RCSID("$DragonFly$")
 
 ENTRY(floor)
+#ifdef __i386__
 	pushl	%ebp
 	movl	%esp,%ebp
 	subl	$8,%esp
@@ -56,4 +29,18 @@ ENTRY(floor)
 	fldcw	-4(%ebp)		/* restore original control word */
 
 	leave
+#else
+	movsd	%xmm0, -8(%rsp)
+	fstcw	-12(%rsp)
+	movw	-12(%rsp),%dx
+	orw	$0x0400,%dx
+	andw	$0xf7ff,%dx
+	movw	%dx,-16(%rsp)
+	fldcw	-16(%rsp)
+	fldl	-8(%rsp)
+	frndint
+	fldcw	-12(%rsp)
+	fstpl	-8(%rsp)
+	movsd	-8(%rsp),%xmm0
+#endif
 	ret