repo.or.cz
/
glibc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Mon Dec 2 15:32:15 1996 Ulrich Drepper <drepper@cygnus.com>
[glibc.git]
/
sysdeps
/
libm-i387
/
s_copysignl.S
blob
37e34fe1b41f2d28558f154119c1e728232fa1dc
1
/*
2
* Written by J.T. Conklin <jtc@netbsd.org>.
3
* Changes for long double by Ulrich Drepper <drepper@cygnus.com>
4
* Public domain.
5
*/
6
7
#include <machine/asm.h>
8
9
RCSID("$NetBSD: $")
10
11
ENTRY(__copysignl)
12
movl 24(%esp),%edx
13
movl 12(%esp),%eax
14
andl $0x8000,%edx
15
andl $0x7fff,%eax
16
orl %edx,%eax
17
movl %eax,12(%esp)
18
fldt 4(%esp)
19
ret
20
PSEUDO_END (__copysignl)
21
weak_alias (__copysignl, copysignl)