libphobos: Merge upstream druntime 109f0f2e

Backports more extern(C) bindings and platform ports.

Reviewed-on: https://github.com/dlang/druntime/pull/2569

From-SVN: r270490
This commit is contained in:
Iain Buclaw 2019-04-22 13:46:13 +00:00
parent 16a51cf549
commit eb5f748a81
12 changed files with 277 additions and 143 deletions

View File

@ -1,4 +1,4 @@
4b2674b36b1f6aac75db2a5aa38d67d4be55a987
109f0f2e11aaaddd2b158117928e10c3c4688870
The first line of this file holds the git revision number of the last
merge done from the dlang/druntime repository.

View File

@ -464,10 +464,14 @@ extern (C) bool runModuleUnitTests()
import core.sys.freebsd.execinfo;
else version (NetBSD)
import core.sys.netbsd.execinfo;
else version (DragonFlyBSD)
import core.sys.dragonflybsd.execinfo;
else version (Windows)
import core.sys.windows.stacktrace;
else version (Solaris)
import core.sys.solaris.execinfo;
else version (CRuntime_UClibc)
import core.sys.linux.execinfo;
static if ( __traits( compiles, new LibBacktrace(0) ) )
{
@ -591,10 +595,14 @@ Throwable.TraceInfo defaultTraceHandler( void* ptr = null )
import core.sys.freebsd.execinfo;
else version (NetBSD)
import core.sys.netbsd.execinfo;
else version (DragonFlyBSD)
import core.sys.dragonflybsd.execinfo;
else version (Windows)
import core.sys.windows.stacktrace;
else version (Solaris)
import core.sys.solaris.execinfo;
else version (CRuntime_UClibc)
import core.sys.linux.execinfo;
// avoid recursive GC calls in finalizer, trace handlers should be made @nogc instead
import core.memory : gc_inFinalizer;
@ -709,6 +717,8 @@ Throwable.TraceInfo defaultTraceHandler( void* ptr = null )
version (linux) enum enableDwarf = true;
else version (FreeBSD) enum enableDwarf = true;
else version (DragonFlyBSD) enum enableDwarf = true;
else version (Darwin) enum enableDwarf = true;
else enum enableDwarf = false;
static if (enableDwarf)
@ -832,6 +842,18 @@ Throwable.TraceInfo defaultTraceHandler( void* ptr = null )
symEnd = eptr - buf.ptr;
}
}
else version (DragonFlyBSD)
{
// format is: 0x00000000 <_D6module4funcAFZv+0x78> at module
auto bptr = cast(char*) memchr( buf.ptr, '<', buf.length );
auto eptr = cast(char*) memchr( buf.ptr, '+', buf.length );
if ( bptr++ && eptr )
{
symBeg = bptr - buf.ptr;
symEnd = eptr - buf.ptr;
}
}
else version (Solaris)
{
// format is object'symbol+offset [pc]
@ -896,7 +918,7 @@ Throwable.TraceInfo defaultTraceHandler( void* ptr = null )
{
static enum FIRSTFRAME = 0;
}
import core.sys.windows.windows : CONTEXT;
import core.sys.windows.winnt : CONTEXT;
auto s = new StackTrace(FIRSTFRAME, cast(CONTEXT*)ptr);
return s;
}

View File

@ -2040,6 +2040,8 @@ version (CRuntime_Microsoft) // fully supported since MSVCRT 12 (VS 2013) only
else version (FreeBSD)
{
version (none) // < 8-CURRENT
{
extern (D)
{
real acosl(real x) { return acos(x); }
real asinl(real x) { return asin(x); }
@ -2072,9 +2074,9 @@ else version (FreeBSD)
real remainderl(real x, real y) { return remainder(x, y); }
real remquol(real x, real y, int* quo) { return remquo(x, y, quo); }
pure real copysignl(real x, real y) { return copysign(x, y); }
// pure double nan(char* tagp);
// pure float nanf(char* tagp);
// pure real nanl(char* tagp);
//pure double nan(char* tagp);
//pure float nanf(char* tagp);
//pure real nanl(char* tagp);
real nextafterl(real x, real y) { return nextafter(x, y); }
real nexttowardl(real x, real y) { return nexttoward(x, y); }
real fdiml(real x, real y) { return fdim(x, y); }
@ -2082,6 +2084,7 @@ else version (FreeBSD)
pure real fminl(real x, real y) { return fmin(x, y); }
pure real fmal(real x, real y, real z) { return fma(x, y, z); }
}
}
else
{
///
@ -2205,49 +2208,49 @@ else version (FreeBSD)
///
float acoshf(float x);
///
real acoshl(real x) { return acosh(x); }
extern(D) real acoshl(real x) { return acosh(x); }
///
pure double asinh(double x);
///
pure float asinhf(float x);
///
pure real asinhl(real x) { return asinh(x); }
extern(D) pure real asinhl(real x) { return asinh(x); }
///
double atanh(double x);
///
float atanhf(float x);
///
real atanhl(real x) { return atanh(x); }
extern(D) real atanhl(real x) { return atanh(x); }
///
double cosh(double x);
///
float coshf(float x);
///
real coshl(real x) { return cosh(x); }
extern(D) real coshl(real x) { return cosh(x); }
///
double sinh(double x);
///
float sinhf(float x);
///
real sinhl(real x) { return sinh(x); }
extern(D) real sinhl(real x) { return sinh(x); }
///
pure double tanh(double x);
///
pure float tanhf(float x);
///
pure real tanhl(real x) { return tanh(x); }
extern(D) pure real tanhl(real x) { return tanh(x); }
///
double exp(double x);
///
float expf(float x);
///
real expl(real x) { return exp(x); }
extern(D) real expl(real x) { return exp(x); }
///
double exp2(double x);
@ -2259,7 +2262,7 @@ else version (FreeBSD)
///
float expm1f(float x);
///
real expm1l(real x) { return expm1(x); }
extern(D) real expm1l(real x) { return expm1(x); }
///
pure double frexp(double value, int* exp);
@ -2281,29 +2284,29 @@ else version (FreeBSD)
///
float logf(float x);
///
real logl(real x) { return log(x); }
extern(D) real logl(real x) { return log(x); }
///
double log10(double x);
///
float log10f(float x);
///
real log10l(real x) { return log10(x); }
extern(D) real log10l(real x) { return log10(x); }
///
double log1p(double x);
///
float log1pf(float x);
///
real log1pl(real x) { return log1p(x); }
extern(D) real log1pl(real x) { return log1p(x); }
private enum real ONE_LN2 = 1 / 0x1.62e42fefa39ef358p-1L;
///
double log2(double x) { return log(x) * ONE_LN2; }
extern(D) double log2(double x) { return log(x) * ONE_LN2; }
///
float log2f(float x) { return logf(x) * ONE_LN2; }
extern(D) float log2f(float x) { return logf(x) * ONE_LN2; }
///
real log2l(real x) { return logl(x) * ONE_LN2; }
extern(D) real log2l(real x) { return logl(x) * ONE_LN2; }
///
double logb(double x);
@ -2330,7 +2333,7 @@ else version (FreeBSD)
///
pure float cbrtf(float x);
///
pure real cbrtl(real x) { return cbrt(x); }
extern(D) pure real cbrtl(real x) { return cbrt(x); }
///
pure double fabs(double x);
@ -2347,7 +2350,7 @@ else version (FreeBSD)
///
float powf(float x, float y);
///
real powl(real x, real y) { return pow(x, y); }
extern(D) real powl(real x, real y) { return pow(x, y); }
///
double sqrt(double x);
@ -2359,28 +2362,28 @@ else version (FreeBSD)
///
pure float erff(float x);
///
pure real erfl(real x) { return erf(x); }
extern(D) pure real erfl(real x) { return erf(x); }
///
double erfc(double x);
///
float erfcf(float x);
///
real erfcl(real x) { return erfc(x); }
extern(D) real erfcl(real x) { return erfc(x); }
///
double lgamma(double x);
///
float lgammaf(float x);
///
real lgammal(real x) { return lgamma(x); }
extern(D) real lgammal(real x) { return lgamma(x); }
///
double tgamma(double x);
///
float tgammaf(float x);
///
real tgammal(real x) { return tgamma(x); }
extern(D) real tgammal(real x) { return tgamma(x); }
///
pure double ceil(double x);
@ -2412,7 +2415,7 @@ else version (FreeBSD)
///
long llrintf(float x);
///
long llrintl(real x) { return llrint(x); }
extern(D) long llrintl(real x) { return llrint(x); }
///
pure double round(double x);
@ -2532,13 +2535,13 @@ else version (NetBSD)
///
pure real rintl(real x);
///
c_long lrintl(real x) { return cast(c_long)rintl(x); }
extern(D) c_long lrintl(real x) { return cast(c_long)rintl(x); }
///
pure real roundl(real x);
///
c_long lroundl(real x) { return cast(c_long)roundl(x);}
extern(D) c_long lroundl(real x) { return cast(c_long)roundl(x);}
///
long llroundl(real x) { return cast(long)roundl(x);}
extern(D) long llroundl(real x) { return cast(long)roundl(x);}
///
pure real truncl(real x);
///
@ -2558,7 +2561,7 @@ else version (NetBSD)
///
real nextafterl(real x, real y);
///
real nexttowardl(real x, real y) { return nexttoward(cast(double) x, cast(double) y); }
extern(D) real nexttowardl(real x, real y) { return nexttoward(cast(double) x, cast(double) y); }
///
real fdiml(real x, real y);
///
@ -2740,13 +2743,13 @@ else version (NetBSD)
///
float log1pf(float x);
///
real log1pl(real x) { return log1p(cast(double) x); }
extern(D) real log1pl(real x) { return log1p(cast(double) x); }
private enum real ONE_LN2 = 1 / 0x1.62e42fefa39ef358p-1L;
///
double log2(double x) { return log(x) * ONE_LN2; }
extern(D) double log2(double x) { return log(x) * ONE_LN2; }
///
float log2f(float x) { return logf(x) * ONE_LN2; }
extern(D) float log2f(float x) { return logf(x) * ONE_LN2; }
///
real log2l(real x) { return logl(x) * ONE_LN2; }
@ -2804,7 +2807,7 @@ else version (NetBSD)
///
pure float erff(float x);
///
pure real erfl(real x) { return erf(cast(double) x); }
extern(D) pure real erfl(real x) { return erf(cast(double) x); }
///
double erfc(double x);
@ -2857,7 +2860,7 @@ else version (NetBSD)
///
long llrintf(float x);
///
long llrintl(real x) { return cast(long)rintl(x); }
extern(D) long llrintl(real x) { return cast(long)rintl(x); }
///
pure double round(double x);
@ -3988,399 +3991,399 @@ else version (CRuntime_UClibc)
///
float acosf(float x);
///
real acosl(real x) { return acos(cast(double) x); }
extern(D) real acosl(real x) { return acos(cast(double) x); }
///
double asin(double x);
///
float asinf(float x);
///
real asinl(real x) { return asin(cast(double) x); }
extern(D) real asinl(real x) { return asin(cast(double) x); }
///
pure double atan(double x);
///
pure float atanf(float x);
///
pure real atanl(real x) { return atan(cast(double) x); }
extern(D) pure real atanl(real x) { return atan(cast(double) x); }
///
double atan2(double y, double x);
///
float atan2f(float y, float x);
///
real atan2l(real y, real x) { return atan2(cast(double) x, cast(double) y); }
extern(D) real atan2l(real y, real x) { return atan2(cast(double) x, cast(double) y); }
///
pure double cos(double x);
///
pure float cosf(float x);
///
pure real cosl(real x) { return cos(cast(double) x); }
extern(D) pure real cosl(real x) { return cos(cast(double) x); }
///
pure double sin(double x);
///
pure float sinf(float x);
///
pure real sinl(real x) { return sin(cast(double) x); }
extern(D) pure real sinl(real x) { return sin(cast(double) x); }
///
pure double tan(double x);
///
pure float tanf(float x);
///
pure real tanl(real x) { return tan(cast(double) x); }
extern(D) pure real tanl(real x) { return tan(cast(double) x); }
///
double acosh(double x);
///
float acoshf(float x);
///
real acoshl(real x) { return acosh(cast(double) x); }
extern(D) real acoshl(real x) { return acosh(cast(double) x); }
///
pure double asinh(double x);
///
pure float asinhf(float x);
///
pure real asinhl(real x) { return asinh(cast(double) x); }
extern(D) pure real asinhl(real x) { return asinh(cast(double) x); }
///
double atanh(double x);
///
float atanhf(float x);
///
real atanhl(real x) { return atanh(cast(double) x); }
extern(D) real atanhl(real x) { return atanh(cast(double) x); }
///
double cosh(double x);
///
float coshf(float x);
///
real coshl(real x) { return cosh(cast(double) x); }
extern(D) real coshl(real x) { return cosh(cast(double) x); }
///
double sinh(double x);
///
float sinhf(float x);
///
real sinhl(real x) { return sinh(cast(double) x); }
extern(D) real sinhl(real x) { return sinh(cast(double) x); }
///
double tanh(double x);
///
float tanhf(float x);
///
real tanhl(real x) { return tanh(cast(double) x); }
extern(D) real tanhl(real x) { return tanh(cast(double) x); }
///
double exp(double x);
///
float expf(float x);
///
real expl(real x) { return exp(cast(double) x); }
extern(D) real expl(real x) { return exp(cast(double) x); }
///
double exp2(double x);
///
float exp2f(float x);
///
real exp2l(real x) { return exp2(cast(double) x); }
extern(D) real exp2l(real x) { return exp2(cast(double) x); }
///
double expm1(double x);
///
float expm1f(float x);
///
real expm1l(real x) { return expm1(cast(double) x); }
extern(D) real expm1l(real x) { return expm1(cast(double) x); }
///
pure double frexp(double value, int* exp);
///
pure float frexpf(float value, int* exp);
///
pure real frexpl(real value, int* exp) { return frexp(cast(double) value, exp); }
extern(D) pure real frexpl(real value, int* exp) { return frexp(cast(double) value, exp); }
///
int ilogb(double x);
///
int ilogbf(float x);
///
int ilogbl(real x) { return ilogb(cast(double) x); }
extern(D) int ilogbl(real x) { return ilogb(cast(double) x); }
///
double ldexp(double x, int exp);
///
float ldexpf(float x, int exp);
///
real ldexpl(real x, int exp) { return ldexp(cast(double) x, exp); }
extern(D) real ldexpl(real x, int exp) { return ldexp(cast(double) x, exp); }
///
double log(double x);
///
float logf(float x);
///
real logl(real x) { return log(cast(double) x); }
extern(D) real logl(real x) { return log(cast(double) x); }
///
double log10(double x);
///
float log10f(float x);
///
real log10l(real x) { return log10(cast(double) x); }
extern(D) real log10l(real x) { return log10(cast(double) x); }
///
double log1p(double x);
///
float log1pf(float x);
///
real log1pl(real x) { return log1p(cast(double) x); }
extern(D) real log1pl(real x) { return log1p(cast(double) x); }
///
double log2(double x);
///
float log2f(float x);
///
real log2l(real x) { return log2(cast(double) x); }
extern(D) real log2l(real x) { return log2(cast(double) x); }
///
double logb(double x);
///
float logbf(float x);
///
real logbl(real x) { return logb(cast(double) x); }
extern(D) real logbl(real x) { return logb(cast(double) x); }
///
pure double modf(double value, double* iptr);
///
pure float modff(float value, float* iptr);
///
pure real modfl(real value, real *iptr) { return modf(cast(double) value, cast(double*) iptr); }
extern(D) pure real modfl(real value, real *iptr) { return modf(cast(double) value, cast(double*) iptr); }
///
double scalbn(double x, int n);
///
float scalbnf(float x, int n);
///
real scalbnl(real x, int n) { return scalbln(cast(double) x, n); }
extern(D) real scalbnl(real x, int n) { return scalbln(cast(double) x, n); }
///
double scalbln(double x, c_long n);
///
float scalblnf(float x, c_long n);
///
real scalblnl(real x, c_long n) { return scalbln(cast(double) x, n); }
extern(D) real scalblnl(real x, c_long n) { return scalbln(cast(double) x, n); }
///
pure double cbrt(double x);
///
pure float cbrtf(float x);
///
pure real cbrtl(real x) { return cbrt(cast(double) x); }
extern(D) pure real cbrtl(real x) { return cbrt(cast(double) x); }
///
pure double fabs(double x);
///
pure float fabsf(float x);
///
pure real fabsl(real x) { return fabs(cast(double) x); }
extern(D) pure real fabsl(real x) { return fabs(cast(double) x); }
///
double hypot(double x, double y);
///
float hypotf(float x, float y);
///
real hypotl(real x, real y) { return hypot(cast(double) x, cast(double) y); }
extern(D) real hypotl(real x, real y) { return hypot(cast(double) x, cast(double) y); }
///
double pow(double x, double y);
///
float powf(float x, float y);
///
real powl(real x, real y) { return pow(cast(double) x, cast(double) y); }
extern(D) real powl(real x, real y) { return pow(cast(double) x, cast(double) y); }
///
double sqrt(double x);
///
float sqrtf(float x);
///
real sqrtl(real x) { return sqrt(cast(double) x); }
extern(D) real sqrtl(real x) { return sqrt(cast(double) x); }
///
pure double erf(double x);
///
pure float erff(float x);
///
pure real erfl(real x) { return erf(cast(double) x); }
extern(D) pure real erfl(real x) { return erf(cast(double) x); }
///
double erfc(double x);
///
float erfcf(float x);
///
real erfcl(real x) { return erfc(cast(double) x); }
extern(D) real erfcl(real x) { return erfc(cast(double) x); }
///
double lgamma(double x);
///
float lgammaf(float x);
///
real lgammal(real x) { return lgamma(cast(double) x); }
extern(D) real lgammal(real x) { return lgamma(cast(double) x); }
///
double tgamma(double x);
///
float tgammaf(float x);
///
real tgammal(real x) { return tgamma(cast(double) x); }
extern(D) real tgammal(real x) { return tgamma(cast(double) x); }
///
pure double ceil(double x);
///
pure float ceilf(float x);
///
pure real ceill(real x) { return ceil(cast(double) x); }
extern(D) pure real ceill(real x) { return ceil(cast(double) x); }
///
pure double floor(double x);
///
pure float floorf(float x);
///
pure real floorl(real x) { return floor(cast(double) x); }
extern(D) pure real floorl(real x) { return floor(cast(double) x); }
///
pure double nearbyint(double x);
///
pure float nearbyintf(float x);
///
pure real nearbyintl(real x) { return nearbyint(cast(double) x); }
extern(D) pure real nearbyintl(real x) { return nearbyint(cast(double) x); }
///
pure double rint(double x);
///
pure float rintf(float x);
///
pure real rintl(real x) { return rint(cast(double) x); }
extern(D) pure real rintl(real x) { return rint(cast(double) x); }
///
c_long lrint(double x);
///
c_long lrintf(float x);
///
c_long lrintl(real x) { return lrint(cast(double) x); }
extern(D) c_long lrintl(real x) { return lrint(cast(double) x); }
///
long llrint(double x);
///
long llrintf(float x);
///
long llrintl(real x) { return llrint(cast(double) x); }
extern(D) long llrintl(real x) { return llrint(cast(double) x); }
///
pure double round(double x);
///
pure float roundf(float x);
///
pure real roundl(real x) { return round(cast(double) x); }
extern(D) pure real roundl(real x) { return round(cast(double) x); }
///
c_long lround(double x);
///
c_long lroundf(float x);
///
c_long lroundl(real x) { return lround(cast(double) x); }
extern(D) c_long lroundl(real x) { return lround(cast(double) x); }
///
long llround(double x);
///
long llroundf(float x);
///
long llroundl(real x) { return llround(cast(double) x); }
extern(D) long llroundl(real x) { return llround(cast(double) x); }
///
pure double trunc(double x);
///
pure float truncf(float x);
///
pure real truncl(real x) { return trunc(cast(double) x); }
extern(D) pure real truncl(real x) { return trunc(cast(double) x); }
///
double fmod(double x, double y);
///
float fmodf(float x, float y);
///
real fmodl(real x, real y) { return fmod(cast(double) x, cast(double) y); }
extern(D) real fmodl(real x, real y) { return fmod(cast(double) x, cast(double) y); }
///
double remainder(double x, double y);
///
float remainderf(float x, float y);
///
real remainderl(real x, real y) { return remainder(cast(double) x, cast(double) y); }
extern(D) real remainderl(real x, real y) { return remainder(cast(double) x, cast(double) y); }
///
double remquo(double x, double y, int* quo);
///
float remquof(float x, float y, int* quo);
///
real remquol(real x, real y, int* quo) { return remquo(cast(double) x, cast(double) y, quo); }
extern(D) real remquol(real x, real y, int* quo) { return remquo(cast(double) x, cast(double) y, quo); }
///
pure double copysign(double x, double y);
///
pure float copysignf(float x, float y);
///
pure real copysignl(real x, real y) { return copysign(cast(double) x, cast(double) y); }
extern(D) pure real copysignl(real x, real y) { return copysign(cast(double) x, cast(double) y); }
///
pure double nan(char* tagp);
///
pure float nanf(char* tagp);
///
pure real nanl(char* tagp) { return nan(tagp); }
extern(D) pure real nanl(char* tagp) { return nan(tagp); }
///
double nextafter(double x, double y);
///
float nextafterf(float x, float y);
///
real nextafterl(real x, real y) { return nextafter(cast(double) x, cast(double) y); }
extern(D) real nextafterl(real x, real y) { return nextafter(cast(double) x, cast(double) y); }
///
double nexttoward(double x, real y);
///
float nexttowardf(float x, real y);
///
real nexttowardl(real x, real y) { return nexttoward(cast(double) x, cast(double) y); }
extern(D) real nexttowardl(real x, real y) { return nexttoward(cast(double) x, cast(double) y); }
///
double fdim(double x, double y);
///
float fdimf(float x, float y);
///
real fdiml(real x, real y) { return fdim(cast(double) x, cast(double) y); }
extern(D) real fdiml(real x, real y) { return fdim(cast(double) x, cast(double) y); }
///
pure double fmax(double x, double y);
///
pure float fmaxf(float x, float y);
///
pure real fmaxl(real x, real y) { return fmax(cast(double) x, cast(double) y); }
extern(D) pure real fmaxl(real x, real y) { return fmax(cast(double) x, cast(double) y); }
///
pure double fmin(double x, double y);
///
pure float fminf(float x, float y);
///
pure real fminl(real x, real y) { return fmin(cast(double) x, cast(double) y); }
extern(D) pure real fminl(real x, real y) { return fmin(cast(double) x, cast(double) y); }
///
pure double fma(double x, double y, double z);
///
pure float fmaf(float x, float y, float z);
///
pure real fmal(real x, real y, real z) { return fma(cast(double) x, cast(double) y, cast(double) z); }
extern(D) pure real fmal(real x, real y, real z) { return fma(cast(double) x, cast(double) y, cast(double) z); }
}
else
{

View File

@ -120,6 +120,13 @@ version (CRuntime_Glibc)
enum F_SETLK = 6;
enum F_SETLKW = 7;
}
else version (SystemZ)
{
static assert(off_t.sizeof == 8);
enum F_GETLK = 5;
enum F_SETLK = 6;
enum F_SETLKW = 7;
}
else
static if ( __USE_FILE_OFFSET64 )
{

View File

@ -239,7 +239,8 @@ else version (Darwin)
// POSIX_SPAWN_SETSCHEDPARAM = 0x10, // not supported
// POSIX_SPAWN_SETSCHEDULER = 0x20, // ditto
POSIX_SPAWN_SETEXEC = 0x40,
POSIX_SPAWN_START_SUSPENDED = 0x80
POSIX_SPAWN_START_SUSPENDED = 0x80,
POSIX_SPAWN_CLOEXEC_DEFAULT = 0x4000
}
alias posix_spawnattr_t = void*;
alias posix_spawn_file_actions_t = void*;
@ -288,6 +289,8 @@ else version (NetBSD)
uint len;
posix_spawn_file_actions_entry_t* fae;
}
alias posix_spawnattr_t = posix_spawnattr;
alias posix_spawn_file_actions_t = posix_spawn_file_actions;
}
else version (OpenBSD)
{

View File

@ -799,12 +799,12 @@ version (CRuntime_Glibc)
alias __ino_t = c_ulong;
alias __ino64_t = ulong;
alias __mode_t = uint;
alias __nlink_t = uint;
alias __nlink_t = ulong;
alias __uid_t = uint;
alias __gid_t = uint;
alias __off_t = c_long;
alias __off64_t = long;
alias __blksize_t = int;
alias __blksize_t = c_long;
alias __blkcnt_t = c_long;
alias __blkcnt64_t = long;
alias __timespec = timespec;

View File

@ -1187,7 +1187,7 @@ class Thread
}
else
{
// NOTE: pthread_setschedprio is not implemented on Darwin or FreeBSD, so use
// NOTE: pthread_setschedprio is not implemented on Darwin, FreeBSD or DragonFlyBSD, so use
// the more complicated get/set sequence below.
int policy;
sched_param param;
@ -3202,8 +3202,11 @@ extern (C) @nogc nothrow
version (CRuntime_Glibc) int pthread_getattr_np(pthread_t thread, pthread_attr_t* attr);
version (FreeBSD) int pthread_attr_get_np(pthread_t thread, pthread_attr_t* attr);
version (NetBSD) int pthread_attr_get_np(pthread_t thread, pthread_attr_t* attr);
version (DragonFlyBSD) int pthread_attr_get_np(pthread_t thread, pthread_attr_t* attr);
version (Solaris) int thr_stksegment(stack_t* stk);
version (CRuntime_Bionic) int pthread_getattr_np(pthread_t thid, pthread_attr_t* attr);
version (CRuntime_Musl) int pthread_getattr_np(pthread_t, pthread_attr_t*);
version (CRuntime_UClibc) int pthread_getattr_np(pthread_t thread, pthread_attr_t* attr);
}
@ -3292,6 +3295,19 @@ private void* getStackBottom() nothrow @nogc
addr += size;
return addr;
}
else version (DragonFlyBSD)
{
pthread_attr_t attr;
void* addr; size_t size;
pthread_attr_init(&attr);
pthread_attr_get_np(pthread_self(), &attr);
pthread_attr_getstack(&attr, &addr, &size);
pthread_attr_destroy(&attr);
version (StackGrowsDown)
addr += size;
return addr;
}
else version (Solaris)
{
stack_t stk;
@ -3311,6 +3327,30 @@ private void* getStackBottom() nothrow @nogc
addr += size;
return addr;
}
else version (CRuntime_Musl)
{
pthread_attr_t attr;
void* addr; size_t size;
pthread_getattr_np(pthread_self(), &attr);
pthread_attr_getstack(&attr, &addr, &size);
pthread_attr_destroy(&attr);
version (StackGrowsDown)
addr += size;
return addr;
}
else version (CRuntime_UClibc)
{
pthread_attr_t attr;
void* addr; size_t size;
pthread_getattr_np(pthread_self(), &attr);
pthread_attr_getstack(&attr, &addr, &size);
pthread_attr_destroy(&attr);
version (StackGrowsDown)
addr += size;
return addr;
}
else
static assert(false, "Platform not supported.");
}
@ -4569,8 +4609,10 @@ private:
version (Posix) import core.sys.posix.sys.mman; // mmap
version (FreeBSD) import core.sys.freebsd.sys.mman : MAP_ANON;
version (NetBSD) import core.sys.netbsd.sys.mman : MAP_ANON;
version (DragonFlyBSD) import core.sys.dragonflybsd.sys.mman : MAP_ANON;
version (CRuntime_Glibc) import core.sys.linux.sys.mman : MAP_ANON;
version (Darwin) import core.sys.darwin.sys.mman : MAP_ANON;
version (CRuntime_UClibc) import core.sys.linux.sys.mman : MAP_ANON;
static if ( __traits( compiles, mmap ) )
{
@ -5612,6 +5654,27 @@ version (FreeBSD) unittest
thr.join();
}
version (DragonFlyBSD) unittest
{
static void loop()
{
pthread_attr_t attr;
pthread_attr_init(&attr);
auto thr = pthread_self();
foreach (i; 0 .. 50)
pthread_attr_get_np(thr, &attr);
pthread_attr_destroy(&attr);
}
auto thr = new Thread(&loop).start();
foreach (i; 0 .. 50)
{
thread_suspendAll();
thread_resumeAll();
}
thr.join();
}
unittest
{
// use >PAGESIZE to avoid stack overflow (e.g. in an syscall)

View File

@ -272,7 +272,7 @@ extern (C) int _aApplyRwc1(in wchar[] aa, dg_t dg)
if (d & ~0x7F)
{
char[4] buf;
char[4] buf = void;
auto b = toUTF8(buf, d);
foreach (char c2; b)
@ -348,7 +348,7 @@ extern (C) int _aApplyRdc1(in dchar[] aa, dg_t dg)
if (d & ~0x7F)
{
char[4] buf;
char[4] buf = void;
auto b = toUTF8(buf, d);
foreach (char c2; b)
@ -741,7 +741,7 @@ extern (C) int _aApplyRwc2(in wchar[] aa, dg2_t dg)
if (d & ~0x7F)
{
char[4] buf;
char[4] buf = void;
auto b = toUTF8(buf, d);
foreach (char c2; b)
@ -819,7 +819,7 @@ extern (C) int _aApplyRdc2(in dchar[] aa, dg2_t dg)
if (d & ~0x7F)
{
char[4] buf;
char[4] buf = void;
auto b = toUTF8(buf, d);
foreach (char c2; b)

View File

@ -115,7 +115,7 @@ string rt_envvarsOption(string opt, scope rt_configCallBack dg) @nogc nothrow
if (opt.length >= 32)
assert(0);
char[40] var;
char[40] var = void;
var[0 .. 4] = "DRT_";
foreach (i, c; opt)
var[4 + i] = cast(char) toupper(c);

View File

@ -42,6 +42,10 @@ version (NetBSD)
{
import core.stdc.fenv;
}
version (DragonFlyBSD)
{
import core.stdc.fenv;
}
extern (C) void _d_monitor_staticctor();
extern (C) void _d_monitor_staticdtor();

View File

@ -193,7 +193,8 @@ else version (Windows)
{
pragma(lib, "snn.lib");
}
import core.sys.windows.windows;
import core.sys.windows.winbase /+: CRITICAL_SECTION, DeleteCriticalSection,
EnterCriticalSection, InitializeCriticalSection, LeaveCriticalSection+/;
alias Mutex = CRITICAL_SECTION;
@ -206,6 +207,7 @@ else version (Posix)
{
import core.sys.posix.pthread;
@nogc:
alias Mutex = pthread_mutex_t;
__gshared pthread_mutexattr_t gattr;
@ -244,17 +246,17 @@ struct Monitor
private:
@property ref shared(Monitor*) monitor(Object h) pure nothrow
@property ref shared(Monitor*) monitor(Object h) pure nothrow @nogc
{
return *cast(shared Monitor**)&h.__monitor;
}
private shared(Monitor)* getMonitor(Object h) pure
private shared(Monitor)* getMonitor(Object h) pure @nogc
{
return atomicLoad!(MemoryOrder.acq)(h.monitor);
}
void setMonitor(Object h, shared(Monitor)* m) pure
void setMonitor(Object h, shared(Monitor)* m) pure @nogc
{
atomicStore!(MemoryOrder.rel)(h.monitor, m);
}
@ -296,7 +298,7 @@ shared(Monitor)* ensureMonitor(Object h)
}
}
void deleteMonitor(Monitor* m)
void deleteMonitor(Monitor* m) @nogc
{
destroyMutex(&m.mtx);
free(m);

View File

@ -75,6 +75,21 @@ else version (FreeBSD)
return a;
}
}
else version (DragonFlyBSD)
{
alias extern (C) int function(scope void *, scope const void *, scope const void *) Cmp;
extern (C) void qsort_r(scope void *base, size_t nmemb, size_t size, scope void *thunk, Cmp cmp);
extern (C) void[] _adSort(return scope void[] a, TypeInfo ti)
{
extern (C) int cmp(scope void* ti, scope const void* p1, scope const void* p2)
{
return (cast(TypeInfo)ti).compare(p1, p2);
}
qsort_r(a.ptr, a.length, ti.tsize, cast(void*)ti, &cmp);
return a;
}
}
else version (Darwin)
{
alias extern (C) int function(scope void *, scope const void *, scope const void *) Cmp;
@ -90,6 +105,21 @@ else version (Darwin)
return a;
}
}
else version (CRuntime_UClibc)
{
alias extern (C) int function(scope const void *, scope const void *, scope void *) __compar_d_fn_t;
extern (C) void qsort_r(scope void *base, size_t nmemb, size_t size, __compar_d_fn_t cmp, scope void *arg);
extern (C) void[] _adSort(return scope void[] a, TypeInfo ti)
{
extern (C) int cmp(scope const void* p1, scope const void* p2, scope void* ti)
{
return (cast(TypeInfo)ti).compare(p1, p2);
}
qsort_r(a.ptr, a.length, ti.tsize, &cmp, cast(void*)ti);
return a;
}
}
else
{
private TypeInfo tiglobal;