projects / dragonfly.git / blame
| Commit | Line | Data |
|---|---|---|
| b34b60bc JS |
1 | /* |
| 2 | * Written by J.T. Conklin <jtc@NetBSD.org>. | |
| 3 | * Public domain. | |
| 4 | * | |
| 74dfd0cf | 5 | * $NetBSD: s_scalbnf.S,v 1.8 2010/04/23 19:17:07 drochner Exp $ |
| b34b60bc JS |
6 | */ |
| 7 | ||
| 8 | #include <machine/asm.h> | |
| 9 | ||
| b34b60bc | 10 | ENTRY(scalbnf) |
| b168675f PA |
11 | #ifdef __x86_64__ |
| 12 | movl %edi,-8(%rsp) | |
| 13 | fildl -8(%rsp) | |
| 14 | movss %xmm0,-4(%rsp) | |
| 15 | flds -4(%rsp) | |
| 16 | fscale | |
| 17 | fstps -4(%rsp) | |
| 18 | movss -4(%rsp),%xmm0 | |
| 19 | fstp %st(0) | |
| 20 | #else | |
| 21 | fildl 8(%esp) | |
| 22 | flds 4(%esp) | |
| b34b60bc | 23 | fscale |
| b168675f PA |
24 | fstp %st(1) /* clean up stack */ |
| 25 | #endif | |
| b34b60bc | 26 | ret |
| d04e8698 | 27 | END(scalbnf) |
| 70e34eb2 JM |
28 | |
| 29 | .section .note.GNU-stack,"",%progbits |