The R Project SVN R

Rev

Rev 19885 | Rev 36820 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 19885 Rev 21069
Line 36... Line 36...
36 
#endif
 36 
#endif
37 
 
 37 
 
38 
#ifdef WIN32
 38 
#ifdef WIN32
39 
/* earlier Windows headers did not include rint */
 39 
/* earlier Windows headers did not include rint */
40 
#if __MINGW32_MAJOR_VERSION < 2
 40 
#if __MINGW32_MAJOR_VERSION < 2
- 
 
 41 
static __inline__ double rint (double x)
- 
 
 42 
{
- 
 
 43 
    double retval;
- 
 
 44 
    __asm__ ("frndint;": "=t" (retval) : "0" (x));
41 
#define USE_BUILTIN_RINT
 45 
    return retval;
- 
 
 46 
}
42 
#endif
 47 
#endif
43 
#endif
 48 
#endif
44 
 
 49 
 
45 
#ifdef USE_BUILTIN_RINT
 50 
#ifdef USE_BUILTIN_RINT
46 
#define R_rint private_rint
 51 
#define R_rint private_rint