In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2bf3fd6f1717d4ad025e9e2c4b0a3d54db9d9cee?hp=e64e4e046f94ead9bf3ab016f056daf1e01ec312>
- Log ----------------------------------------------------------------- commit 2bf3fd6f1717d4ad025e9e2c4b0a3d54db9d9cee Author: Jarkko Hietaniemi <[email protected]> Date: Tue Sep 2 18:53:18 2014 -0400 POSIX math: define the isless et al if necessary and feasible. ----------------------------------------------------------------------- Summary of changes: ext/POSIX/POSIX.xs | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 2b42a17..3708b3e 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -254,6 +254,21 @@ # define c99_trunc trunc # endif +# if !defined(isunordered) && defined(Perl_isnan) +# define isunordered(x, y) (Perl_isnan(x) || Perl-isnan(y)) +# elsif defined(HAS_UNORDERED) +# define isunordered(x, y) unordered(x, y) +# endif + +# if !defined(isgreater) && defined(isunordered) +# define isgreater(x, y) (!isunordered((x), (y)) && (x) > (y)) +# define isgreaterequal(x, y) (!isunordered((x), (y)) && (x) >= (y)) +# define isless(x, y) (!isunordered((x), (y)) && (x) < (y)) +# define islessequal(x, y) (!isunordered((x), (y)) && (x) <= (y)) +# define islessgreater(x, y) (!isunordered((x), (y)) && \ + ((x) > (y) || (y) > (x))) +# endif + /* Check both the Configure symbol and the macro-ness (like C99 promises). */ # if defined(HAS_FPCLASSIFY) && defined(fpclassify) # define c99_fpclassify fpclassify -- Perl5 Master Repository
