| Line 1... |
Line 1... |
| 1 |
/*
|
1 |
/*
|
| 2 |
* R : A Computer Language for Statistical Data Analysis
|
2 |
* R : A Computer Language for Statistical Data Analysis
|
| 3 |
* Copyright (C) 1995, 1996, 1997 Robert Gentleman and Ross Ihaka
|
3 |
* Copyright (C) 1995, 1996, 1997 Robert Gentleman and Ross Ihaka
|
| 4 |
* Copyright (C) 2000-2017 The R Core Team
|
4 |
* Copyright (C) 2000-2018 The R Core Team
|
| 5 |
* Copyright (C) 2005 The R Foundation
|
5 |
* Copyright (C) 2005 The R Foundation
|
| 6 |
*
|
6 |
*
|
| 7 |
* This program is free software; you can redistribute it and/or modify
|
7 |
* This program is free software; you can redistribute it and/or modify
|
| 8 |
* it under the terms of the GNU General Public License as published by
|
8 |
* it under the terms of the GNU General Public License as published by
|
| 9 |
* the Free Software Foundation; either version 2 of the License, or
|
9 |
* the Free Software Foundation; either version 2 of the License, or
|
| Line 24... |
Line 24... |
| 24 |
|
24 |
|
| 25 |
/* GCC has problems with header files on e.g. Solaris.
|
25 |
/* GCC has problems with header files on e.g. Solaris.
|
| 26 |
That OS defines the imaginary type, but GCC does not.
|
26 |
That OS defines the imaginary type, but GCC does not.
|
| 27 |
Probably needed elsewhere, e.g. AIX, HP-UX (PR#15083)
|
27 |
Probably needed elsewhere, e.g. AIX, HP-UX (PR#15083)
|
| 28 |
And use on Win32/64 suppresses warnings.
|
28 |
And use on Win32/64 suppresses warnings.
|
| 29 |
The warning is also seen on macOS 10.5, but not later.
|
29 |
The warning was also seen on macOS 10.5, but not later.
|
| 30 |
*/
|
30 |
*/
|
| 31 |
#if defined(__GNUC__) && (defined(__sun__) || defined(__hpux__) || defined(Win32))
|
31 |
#if defined(__GNUC__) && (defined(__sun__) || defined(__hpux__) || defined(Win32))
|
| 32 |
# undef I
|
32 |
# undef I
|
| 33 |
# define I (__extension__ 1.0iF)
|
33 |
# define I (__extension__ 1.0iF)
|
| 34 |
#endif
|
34 |
#endif
|
The R Project SVN
R