__quad.s revision 0ec5755428223b8105e488e8fddc19de4db26521
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License, Version 1.0 only
* (the "License"). You may not use this file except in compliance
* with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright 2005 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
/*
* These are functions corresponding to the inlines in __quad.il
* They are compiled as functions only when building sparc libc with gcc.
* Someone may want to make them into gcc inlines (__inline__ + __asm__).
*/
#pragma ident "%Z%%M% %I% %E% SMI"
#include <sys/asm_linkage.h>
ENTRY_NP(__quad_getfsrp)
retl
st %fsr,[%o0]
SET_SIZE(__quad_getfsrp)
ENTRY_NP(__quad_setfsrp)
retl
ld [%o0],%fsr
SET_SIZE(__quad_setfsrp)
ENTRY_NP(__quad_dp_sqrt)
ldd [%o0],%f0
fsqrtd %f0,%f0
retl
nop
SET_SIZE(__quad_dp_sqrt)
ENTRY_NP(__quad_faddq)
ldd [%o0],%f0
ldd [%o0+8],%f2
ldd [%o1],%f4
ldd [%o1+8],%f6
faddq %f0,%f4,%f8
std %f8,[%o2]
retl
std %f10,[%o2+8]
SET_SIZE(__quad_faddq)
ENTRY_NP(__quad_fsubq)
ldd [%o0],%f0
ldd [%o0+8],%f2
ldd [%o1],%f4
ldd [%o1+8],%f6
fsubq %f0,%f4,%f8
std %f8,[%o2]
retl
std %f10,[%o2+8]
SET_SIZE(__quad_fsubq)
ENTRY_NP(__quad_fmulq)
ldd [%o0],%f0
ldd [%o0+8],%f2
ldd [%o1],%f4
ldd [%o1+8],%f6
fmulq %f0,%f4,%f8
std %f8,[%o2]
retl
std %f10,[%o2+8]
SET_SIZE(__quad_fmulq)
ENTRY_NP(__quad_fdivq)
ldd [%o0],%f0
ldd [%o0+8],%f2
ldd [%o1],%f4
ldd [%o1+8],%f6
fdivq %f0,%f4,%f8
std %f8,[%o2]
retl
std %f10,[%o2+8]
SET_SIZE(__quad_fdivq)
ENTRY_NP(__quad_fsqrtq)
ldd [%o0],%f0
ldd [%o0+8],%f2
fsqrtq %f0,%f4
std %f4,[%o1]
retl
std %f6,[%o1+8]
SET_SIZE(__quad_fsqrtq)
ENTRY_NP(__quad_fcmpq)
ldd [%o0],%f0
ldd [%o0+8],%f2
ldd [%o1],%f4
ldd [%o1+8],%f6
fcmpq %f0,%f4
retl
st %fsr,[%o2]
SET_SIZE(__quad_fcmpq)
ENTRY_NP(__quad_fcmpeq)
ldd [%o0],%f0
ldd [%o0+8],%f2
ldd [%o1],%f4
ldd [%o1+8],%f6
fcmpeq %f0,%f4
retl
st %fsr,[%o2]
SET_SIZE(__quad_fcmpeq)
ENTRY_NP(__quad_fstoq)
ld [%o0],%f0
fstoq %f0,%f4
std %f4,[%o1]
retl
std %f6,[%o1+8]
SET_SIZE(__quad_fstoq)
ENTRY_NP(__quad_fdtoq)
ldd [%o0],%f0
fdtoq %f0,%f4
std %f4,[%o1]
retl
std %f6,[%o1+8]
SET_SIZE(__quad_fdtoq)
ENTRY_NP(__quad_fqtoi)
ldd [%o0],%f0
ldd [%o0+8],%f2
fqtoi %f0,%f4
retl
st %f4,[%o1]
SET_SIZE(__quad_fqtoi)
ENTRY_NP(__quad_fqtos)
ldd [%o0],%f0
ldd [%o0+8],%f2
fqtos %f0,%f4
retl
st %f4,[%o1]
SET_SIZE(__quad_fqtos)
ENTRY_NP(__quad_fqtod)
ldd [%o0],%f0
ldd [%o0+8],%f2
fqtod %f0,%f4
retl
std %f4,[%o1]
SET_SIZE(__quad_fqtod)
#if defined(__sparcv9)
ENTRY_NP(__quad_fqtox)
ldd [%o0],%f0
ldd [%o0+8],%f2
fqtox %f0,%f4
retl
std %f4,[%o1]
SET_SIZE(__quad_fqtox)
#endif