xref: /openbsd-src/gnu/llvm/compiler-rt/lib/builtins/i386/floatundidf.S (revision 3cab2bb3f667058bece8e38b12449a63a9d73c4b)
1*3cab2bb3Spatrick//===-- floatundidf.S - Implement __floatundidf for i386 ------------------===//
2*3cab2bb3Spatrick//
3*3cab2bb3Spatrick// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4*3cab2bb3Spatrick// See https://llvm.org/LICENSE.txt for license information.
5*3cab2bb3Spatrick// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
6*3cab2bb3Spatrick//
7*3cab2bb3Spatrick//===----------------------------------------------------------------------===//
8*3cab2bb3Spatrick//
9*3cab2bb3Spatrick// This file implements __floatundidf for the compiler_rt library.
10*3cab2bb3Spatrick//
11*3cab2bb3Spatrick//===----------------------------------------------------------------------===//
12*3cab2bb3Spatrick
13*3cab2bb3Spatrick#include "../assembly.h"
14*3cab2bb3Spatrick
15*3cab2bb3Spatrick// double __floatundidf(du_int a);
16*3cab2bb3Spatrick
17*3cab2bb3Spatrick#ifdef __i386__
18*3cab2bb3Spatrick
19*3cab2bb3SpatrickCONST_SECTION
20*3cab2bb3Spatrick
21*3cab2bb3Spatrick	.balign 16
22*3cab2bb3Spatricktwop52:
23*3cab2bb3Spatrick	.quad 0x4330000000000000
24*3cab2bb3Spatrick
25*3cab2bb3Spatrick	.balign 16
26*3cab2bb3Spatricktwop84_plus_twop52:
27*3cab2bb3Spatrick	.quad 0x4530000000100000
28*3cab2bb3Spatrick
29*3cab2bb3Spatrick	.balign 16
30*3cab2bb3Spatricktwop84:
31*3cab2bb3Spatrick	.quad 0x4530000000000000
32*3cab2bb3Spatrick
33*3cab2bb3Spatrick#define REL_ADDR(_a)	(_a)-0b(%eax)
34*3cab2bb3Spatrick
35*3cab2bb3Spatrick.text
36*3cab2bb3Spatrick.balign 4
37*3cab2bb3SpatrickDEFINE_COMPILERRT_FUNCTION(__floatundidf)
38*3cab2bb3Spatrick	movss	8(%esp),						%xmm1 // high 32 bits of a
39*3cab2bb3Spatrick	movss	4(%esp),						%xmm0 // low 32 bits of a
40*3cab2bb3Spatrick	calll	0f
41*3cab2bb3Spatrick0:	popl	%eax
42*3cab2bb3Spatrick	orpd	REL_ADDR(twop84),				%xmm1 // 0x1p84 + a_hi (no rounding occurs)
43*3cab2bb3Spatrick	subsd	REL_ADDR(twop84_plus_twop52),	%xmm1 // a_hi - 0x1p52 (no rounding occurs)
44*3cab2bb3Spatrick	orpd	REL_ADDR(twop52),				%xmm0 // 0x1p52 + a_lo (no rounding occurs)
45*3cab2bb3Spatrick	addsd	%xmm1,							%xmm0 // a_hi + a_lo   (round happens here)
46*3cab2bb3Spatrick	movsd	%xmm0,						   4(%esp)
47*3cab2bb3Spatrick	fldl   4(%esp)
48*3cab2bb3Spatrick	ret
49*3cab2bb3SpatrickEND_COMPILERRT_FUNCTION(__floatundidf)
50*3cab2bb3Spatrick
51*3cab2bb3Spatrick#endif // __i386__
52*3cab2bb3Spatrick
53*3cab2bb3SpatrickNO_EXEC_STACK_DIRECTIVE
54*3cab2bb3Spatrick
55