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