From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 9508 invoked by alias); 7 Nov 2014 15:31:10 -0000 Mailing-List: contact libffi-discuss-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: libffi-discuss-owner@sourceware.org Received: (qmail 9415 invoked by uid 89); 7 Nov 2014 15:31:09 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-2.4 required=5.0 tests=AWL,BAYES_00,FREEMAIL_ENVFROM_END_DIGIT,FREEMAIL_FROM,RCVD_IN_DNSWL_LOW,SPF_PASS autolearn=ham version=3.3.2 X-HELO: mail-wi0-f180.google.com Received: from mail-wi0-f180.google.com (HELO mail-wi0-f180.google.com) (209.85.212.180) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with (AES128-SHA encrypted) ESMTPS; Fri, 07 Nov 2014 15:31:08 +0000 Received: by mail-wi0-f180.google.com with SMTP id hi2so4875696wib.7 for ; Fri, 07 Nov 2014 07:31:04 -0800 (PST) X-Received: by 10.181.8.72 with SMTP id di8mr15462043wid.1.1415374264321; Fri, 07 Nov 2014 07:31:04 -0800 (PST) Received: from pike.twiddle.home.com ([87.111.149.167]) by mx.google.com with ESMTPSA id p1sm12186731wjy.22.2014.11.07.07.31.03 for (version=TLSv1.2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Fri, 07 Nov 2014 07:31:03 -0800 (PST) From: Richard Henderson To: libffi-discuss@sourceware.org Subject: [PATCH 08/13] testsuite: Fix return_complex2 vs excessive precision Date: Fri, 07 Nov 2014 15:31:00 -0000 Message-Id: <1415374240-1792-9-git-send-email-rth@twiddle.net> In-Reply-To: <1415374240-1792-1-git-send-email-rth@twiddle.net> References: <1415374240-1792-1-git-send-email-rth@twiddle.net> X-SW-Source: 2014/txt/msg00198.txt.bz2 Use the previously computed rc2 to validate, rather than recomputing a floating point result with excess precision. --- testsuite/libffi.call/return_complex2.inc | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/testsuite/libffi.call/return_complex2.inc b/testsuite/libffi.call/return_complex2.inc index dad4a0f..265170b 100644 --- a/testsuite/libffi.call/return_complex2.inc +++ b/testsuite/libffi.call/return_complex2.inc @@ -2,10 +2,14 @@ #include "ffitest.h" #include -static _Complex T_C_TYPE return_c(_Complex T_C_TYPE c1, _Complex T_C_TYPE c2, unsigned int in3, _Complex T_C_TYPE c4) +_Complex T_C_TYPE +return_c(_Complex T_C_TYPE c1, _Complex T_C_TYPE c2, + unsigned int in3, _Complex T_C_TYPE c4) { - return c1 + c2 + in3 + c4; + volatile _Complex T_C_TYPE r = c1 + c2 + in3 + c4; + return r; } + int main (void) { ffi_cif cif; @@ -35,6 +39,6 @@ int main (void) printf ("%f,%fi vs %f,%fi\n", T_CONV creal (rc), T_CONV cimag (rc), T_CONV creal (rc2), T_CONV cimag (rc2)); - CHECK(rc == c1 + c2 + in3 + c4); + CHECK(rc == rc2); exit(0); } -- 1.9.3