zig/lib/libc/mingw/math/arm/truncf.S
Andrew Kelley 49d1a4c562 move lib dirs to lib subdir
also start prefering NtDll API. so far:
 * NtQueryInformationFile
 * NtClose

adds a performance workaround for windows unicode conversion. but that
should probably be removed before merging
2019-07-15 17:54:50 -04:00

29 lines
762 B
ArmAsm

/**
* This file has no copyright assigned and is placed in the Public Domain.
* This file is part of the mingw-w64 runtime package.
* No warranty is given; refer to the file DISCLAIMER.PD within this package.
*/
#include <_mingw_mac.h>
.file "truncf.S"
.text
.p2align 4,,15
.globl __MINGW_USYMBOL(truncf)
.def __MINGW_USYMBOL(truncf); .scl 2; .type 32; .endef
__MINGW_USYMBOL(truncf):
vmov r2, r3, d0
lsr r3, r3, #20
bic r3, r3, #0x800
movw r2, #0x7ff
cmp r2, r3 /* Check for INF/NAN, just return the input in those cases */
it eq
bxeq lr
vmrs r1, fpscr
orr r0, r1, #0x00c00000 /* Round towards Zero */
vmsr fpscr, r0
vcvt.s32.f32 s0, s0
vcvt.f32.s32 s0, s0
vmsr fpscr, r1
bx lr