You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
51 lines
637 B
51 lines
637 B
//
|
|
// This file is part of the math library for Linux and is
|
|
// covered by the GNU General Public license version 2, or
|
|
// any later version.
|
|
//
|
|
// Copyright 1992 by H.J. Lu
|
|
//
|
|
.file "cosh.s"
|
|
.data
|
|
.align 2
|
|
LCW1:
|
|
.word 0
|
|
LCW2:
|
|
.word 0
|
|
|
|
.text
|
|
.align 2
|
|
LC2:
|
|
.double 0d5.0000000000000000000000e-01
|
|
|
|
.align 2
|
|
.globl _cosh
|
|
_cosh:
|
|
fldl 4(%esp)
|
|
fldl2e
|
|
fmulp %st,%st(1)
|
|
fst %st(1)
|
|
fstcw LCW1
|
|
fstcw LCW2
|
|
fwait
|
|
andw $0xf3ff,LCW1
|
|
fldcw LCW1
|
|
frndint
|
|
fldcw LCW2
|
|
fst %st(2)
|
|
fsubrp %st,%st(1)
|
|
f2xm1
|
|
fld1
|
|
faddp %st,%st(1)
|
|
fscale
|
|
fst %st(1)
|
|
|
|
fld1
|
|
fdivp %st,%st(1)
|
|
faddp %st,%st(1)
|
|
|
|
fldl LC2
|
|
fmulp %st,%st(1)
|
|
|
|
ret
|