From 659c4b9601a634cd50919970684ee46143183238 Mon Sep 17 00:00:00 2001 From: David Mitchell Date: Sat, 16 Nov 2013 00:01:32 +0000 Subject: Revert "make perl core quiet under -Wfloat-equal" A suggested way of avoiding the the warning on nv1 != nv2 by replacing it with (nv1 < nv2 || nv1 > nv2), has too many issues with NaN. [perl #120538]. I haven't found any other way of selectively disabling the warning, so for now I'm just reverting the whole commit. This reverts commit c279c4550ce59702722d0921739b1a1b92701b0d. --- pp_sort.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pp_sort.c') diff --git a/pp_sort.c b/pp_sort.c index bac92f9902..c8fe08e753 100644 --- a/pp_sort.c +++ b/pp_sort.c @@ -1931,7 +1931,7 @@ S_sv_i_ncmp(pTHX_ SV *const a, SV *const b) ? amagic_call(left, right, meth, 0) \ : NULL; -#define SORT_NORMAL_RETURN_VALUE(val) (((val) > 0) ? 1 : ((val < 0) ? -1 : 0)) +#define SORT_NORMAL_RETURN_VALUE(val) (((val) > 0) ? 1 : ((val) ? -1 : 0)) static I32 S_amagic_ncmp(pTHX_ SV *const a, SV *const b) -- cgit v1.2.1