search for: have_long_doubl

...> double on ppc64. > --- ./src/main/arithmetic.c.orig 2019-12-12 18:30:12.416334062 +0000 > +++ ./src/main/arithmetic.c 2019-12-12 18:30:44.966334062 +0000 > @@ -179,7 +179,10 @@ void attribute_hidden InitArithmetic() > #endif > } > -#if HAVE_LONG_DOUBLE && (SIZEOF_LONG_DOUBLE > SIZEOF_DOUBLE) > +/* PowerPC 64 (when gcc has -mlong-double-128) breaks here because > + * of issues constant folding 128bit IBM long doubles. > + */ > +#if HAVE_LONG_DOUBLE && (SIZEOF_LONG_DOUBLE > SIZEOF_DOUBLE) &&amp...

...; --- ./src/main/arithmetic.c.orig 2019-12-12 > 18:30:12.416334062 +0000 > > +++ ./src/main/arithmetic.c 2019-12-12 18:30:44.966334062 +0000 > > @@ -179,7 +179,10 @@ void attribute_hidden InitArithmetic() > > #endif > > } > > > -#if HAVE_LONG_DOUBLE && (SIZEOF_LONG_DOUBLE > SIZEOF_DOUBLE) > > +/* PowerPC 64 (when gcc has -mlong-double-128) breaks here because > > + * of issues constant folding 128bit IBM long doubles. > > + */ > > +#if HAVE_LONG_DOUBLE && (SIZEOF_LONG_DOUBLE > SIZE...

...is easy enough, do not try to assign a value to a static long double on ppc64. --- ./src/main/arithmetic.c.orig 2019-12-12 18:30:12.416334062 +0000 +++ ./src/main/arithmetic.c 2019-12-12 18:30:44.966334062 +0000 @@ -179,7 +179,10 @@ void attribute_hidden InitArithmetic() #endif } -#if HAVE_LONG_DOUBLE && (SIZEOF_LONG_DOUBLE > SIZEOF_DOUBLE) +/* PowerPC 64 (when gcc has -mlong-double-128) breaks here because + * of issues constant folding 128bit IBM long doubles. + */ +#if HAVE_LONG_DOUBLE && (SIZEOF_LONG_DOUBLE > SIZEOF_DOUBLE) && !__PPC64__ static LDOUBLE q_1_eps...

...es to use long double also for the PPC 64 in this case: $ svn diff -c77587 Index: src/main/arithmetic.c =================================================================== --- src/main/arithmetic.c (Revision 77586) +++ src/main/arithmetic.c (Revision 77587) @@ -176,8 +176,14 @@ #endif } + #if HAVE_LONG_DOUBLE && (SIZEOF_LONG_DOUBLE > SIZEOF_DOUBLE) +# ifdef __PPC64__ + // PowerPC 64 (when gcc has -mlong-double-128) fails constant folding with LDOUBLE +# define q_1_eps (1 / LDBL_EPSILON) +# else static LDOUBLE q_1_eps = 1 / LDBL_EPSILON; +# endif #else static double q_1_eps = 1 / DBL_EPS...

...t; Index: src/main/arithmetic.c >> =================================================================== >> --- src/main/arithmetic.c (Revision 77586) >> +++ src/main/arithmetic.c (Revision 77587) >> @@ -176,8 +176,14 @@ >> #endif >> } > >> + >> #if HAVE_LONG_DOUBLE && (SIZEOF_LONG_DOUBLE > SIZEOF_DOUBLE) >> +# ifdef __PPC64__ >> + // PowerPC 64 (when gcc has -mlong-double-128) fails constant folding with LDOUBLE >> +# define q_1_eps (1 / LDBL_EPSILON) >> +# else >> static LDOUBLE q_1_eps = 1 / LDBL_EPSILON; >>...

...1 | #define R_SOCKLEN_T socklen_t | #define HAVE_STACK_T 1 | #define HAVE_INTPTR_T 1 | #define HAVE_UINTPTR_T 1 | #define R_INLINE inline | #define SIZEOF_INT 4 | #define INT_32_BITS 1 | #define SIZEOF_LONG 8 | #define SIZEOF_LONG_LONG 8 | #define SIZEOF_DOUBLE 8 | #define SIZEOF_SIZE_T 8 | #define HAVE_LONG_DOUBLE 1 | #define SIZEOF_LONG_DOUBLE 16 | /* end confdefs.h. */ | #define F77_DUMMY_MAIN _main | #ifdef F77_DUMMY_MAIN | | # ifdef __cplusplus | extern "C" | # endif | int F77_DUMMY_MAIN() { return 1; } | | #endif | int | main () | { | | ; | return 0; | } configure:23698: result...

...> Index: src/main/arithmetic.c > =================================================================== > --- src/main/arithmetic.c (Revision 77586) > +++ src/main/arithmetic.c (Revision 77587) > @@ -176,8 +176,14 @@ > #endif > } > + > #if HAVE_LONG_DOUBLE && (SIZEOF_LONG_DOUBLE > SIZEOF_DOUBLE) > +# ifdef __PPC64__ > + // PowerPC 64 (when gcc has -mlong-double-128) fails constant folding with LDOUBLE > +# define q_1_eps (1 / LDBL_EPSILON) > +# else > static LDOUBLE q_1_eps = 1 / LDBL_EPSILON; >...

This patch ports 5 new applications to the stubdom makefile structure for inclusion into stubdom domains. While these are required for vtpm-stubdom and vtpmmgrdom they could be used with other stubdom applications. -libgmp 4.3.2 -openssl 1.0.0a -polarssl 0.12.1 -berlios tpm_emulator 0.6.1 -vtpm_manager (from the tools directory) Signed off by: Matthew Fioravante

...0.00 9.84 > z <- x; z[length(z)/2] <- NA_real_ > stopifnot(typeof(z) == "double") > system.time(sum3(z, narm=FALSE)) user system elapsed 4.49 0.00 4.50 This might even be what the following comment refers to: /* Required by C99 but might be slow */ #ifdef HAVE_LONG_DOUBLE # define LDOUBLE long double #else # define LDOUBLE double #endif So now I should rephrase my question: Is there away to avoid this penalty when using 'long double'? Is this something the compiler can be clever about, or is the only solution to not use 'long double'? /Henrik On...

I'm observing that base::sum(x, na.rm=FALSE) for typeof(x) == "double" is much more time consuming when there are missing values versus when there are not. I'm observing this on both Window and Linux, but it's quite surprising to me. Currently, my main suspect is settings in on how R was built. The second suspect is my brain. I hope that someone can clarify the below

...INET_ATON 1 #define HAVE_INET_NTOA 1 #define HAVE_INET_NTOP 1 #define HAVE_INT64_T 1 #define HAVE_INTXX_T 1 #define HAVE_IN_ADDR_T 1 #define HAVE_LASTLOG_H 1 #define HAVE_LIBGEN_H 1 #define HAVE_LIBZ 1 #define HAVE_LIMITS_H 1 #define HAVE_LOGIN 1 #define HAVE_LOGOUT 1 #define HAVE_LOGWTMP 1 #define HAVE_LONG_DOUBLE 1 #define HAVE_LONG_LONG 1 #define HAVE_MEMMOVE 1 #define HAVE_MKDTEMP 1 #define HAVE_MMAP 1 #define HAVE_MODE_T 1 #define HAVE_NANOSLEEP 1 #define HAVE_NETDB_H 1 #define HAVE_OPENPTY 1 #define HAVE_OPENSSL 1 #define HAVE_PATHS_H 1 #define HAVE_PID_IN_UTMP 1 #define HAVE_PID_T 1 #define HAVE_PROC_...