Skip to content
This repository was archived by the owner on Feb 8, 2024. It is now read-only.

core.stdc.math: full support for MSVCRT 2013+ #13

Merged
redstar merged 5 commits into from
Oct 20, 2014
Merged

core.stdc.math: full support for MSVCRT 2013+ #13

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
aa78568
core.stdc.math: full support for MSVCRT 2013+
kinke Oct 18, 2014
d8fb753
Remove ldc.longdouble as it conflicts with MSVCRT 2013+ and is obsole…
kinke Oct 18, 2014
eec0d99
core.stdc.fenv: get rid of linking error when using MSVC 2013+
kinke Oct 18, 2014
5b6283f
core.math: proper support for MSVCRT 2013+
kinke Oct 18, 2014
566a556
core.math: use LLVM fabs intrinsic
kinke Oct 19, 2014
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
26 changes: 4 additions & 22 deletions src/core/math.d
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -77,9 +77,7 @@ real sin(real x) @safe pure nothrow; /* intrinsic */
*/
version (LDC)
{
// FIXME: stdc.llroundl not available under Windows
version (Windows) long rndtol(real x) @safe pure nothrow { assert(0); }
else long rndtol(real x) @safe pure nothrow { return stdc.llroundl(x); }
long rndtol(real x) @safe pure nothrow { return stdc.llroundl(x); }
}
else
long rndtol(real x) @safe pure nothrow; /* intrinsic */
Expand Down Expand Up @@ -108,9 +106,9 @@ extern (C) real rndtonl(real x);
{
version (LDC)
{
extern(D) float sqrt(float x) { return llvm_sqrt(x); }
extern(D) float sqrt(float x) { return llvm_sqrt(x); }
extern(D) double sqrt(double x) { return llvm_sqrt(x); }
extern(D) real sqrt(real x) { return llvm_sqrt(x); }
extern(D) real sqrt(real x) { return llvm_sqrt(x); }
}
else
{
Expand Down Expand Up @@ -172,21 +170,7 @@ unittest {
*/
version (LDC)
{
@trusted pure nothrow real fabs(real x)
{
version (D_InlineAsm_X86)
{
asm
{
fld x;
fabs;
}
}
else
{
return stdc.fabsl(x);
}
}
real fabs(real x) @safe pure nothrow { return llvm_fabs(x); }
}
else
real fabs(real x) @safe pure nothrow; /* intrinsic */
Expand All @@ -208,8 +192,6 @@ version (LDC)

version(HAS_INTRINSIC_RINT)
real rint(real x) @safe pure nothrow { return llvm_rint(x); }
else version (Windows) // FIXME: stdc.rintl not available under Windows
real rint(real x) @safe pure nothrow { assert(0); }
else
real rint(real x) @safe pure nothrow { return stdc.rintl(x); }
}
Expand Down
8 changes: 8 additions & 0 deletions src/core/stdc/fenv.d
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -195,8 +195,16 @@ enum

version( Windows )
{
version( Win64 ) // requires MSVCRT >= 2013
{
private extern __gshared fenv_t _Fenv0;
fenv_t* FE_DFL_ENV = &_Fenv0;
}
else
{
private extern __gshared fenv_t _FE_DFL_ENV;
fenv_t* FE_DFL_ENV = &_FE_DFL_ENV;
}
}
else version( linux )
{
Expand Down
Loading