From nobody Mon Apr 29 04:34:59 2024 Delivered-To: importer@patchew.org Received-SPF: pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) client-ip=66.175.222.12; envelope-from=bounce+27952+41736+1787277+3901457@groups.io; helo=web01.groups.io; Authentication-Results: mx.zohomail.com; dkim=pass; spf=pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) smtp.mailfrom=bounce+27952+41736+1787277+3901457@groups.io; dmarc=fail(p=none dis=none) header.from=linaro.org ARC-Seal: i=1; a=rsa-sha256; t=1559307010; cv=none; d=zoho.com; s=zohoarc; b=HVZva8DwMsA382P8/6+BBD1SLSafhV20cfTzwvDwG62kuEODHNrSizncpdjH4261OnrkGU7xDxVYIMU6z0DCFgLSKkYABhHqezx5eDFIryNK3pGGmEcWi8qZsoVsnVrY0EH2vxsO74MPA9JousTuaudtqB6X5uv1mgCdWdX9cfw= ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=zoho.com; s=zohoarc; t=1559307010; h=Content-Transfer-Encoding:Cc:Date:From:In-Reply-To:List-Id:List-Unsubscribe:MIME-Version:Message-ID:Reply-To:References:Sender:Subject:To:ARC-Authentication-Results; bh=aOR4Tu6w/jxemsMpZFyFAomL8OX+w2wof7VqAjg3DPc=; b=Gq6qDGb/4MBgNSGE8227rtH2grVFOsDiwg/kidKTl69A372feZbP6kyAyYjvrrqmpVEfWACdN5tRZDjVfg8kkzXdSu4xKUrgz40ak5UUHHbDVSizP6rpSB9yxs8iiNULNxAReEg7nhEmsediRPZXBBupok1DPRammyvsib/Mgmw= ARC-Authentication-Results: i=1; mx.zoho.com; dkim=pass; spf=pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) smtp.mailfrom=bounce+27952+41736+1787277+3901457@groups.io; dmarc=fail header.from= (p=none dis=none) header.from= Received: from web01.groups.io (web01.groups.io [66.175.222.12]) by mx.zohomail.com with SMTPS id 1559307010951405.087968204724; Fri, 31 May 2019 05:50:10 -0700 (PDT) Return-Path: X-Received: from mail-wr1-f65.google.com (mail-wr1-f65.google.com [209.85.221.65]) by groups.io with SMTP; Fri, 31 May 2019 05:50:09 -0700 X-Received: by mail-wr1-f65.google.com with SMTP id x4so6469284wrt.6 for ; Fri, 31 May 2019 05:50:08 -0700 (PDT) X-Gm-Message-State: APjAAAWl8IYkgH3O3c4dWvJB4d2fnllkvsAGATrI2QOjkCpnytDp514f CTecjwPJqDLG+bT1A3WfaLfEFPwL/Ys= X-Google-Smtp-Source: APXvYqxYyHFpyVGmM0VAa84SrV8RTG1FQN17WZ6cHMSip77tn1QnEU2tAvVL0SyHRCjl8oe3q5gP8g== X-Received: by 2002:adf:e311:: with SMTP id b17mr6594217wrj.11.1559307006887; Fri, 31 May 2019 05:50:06 -0700 (PDT) X-Received: from sudo.home ([2a01:cb1d:112:6f00:c225:e9ff:fe2e:ea8]) by smtp.gmail.com with ESMTPSA id b9sm6385076wma.29.2019.05.31.05.50.04 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Fri, 31 May 2019 05:50:05 -0700 (PDT) From: "Ard Biesheuvel" To: devel@edk2.groups.io Cc: Ard Biesheuvel , Laszlo Ersek , "Gao, Liming" , "Wang, Jian J" , Leif Lindholm , Michael D Kinney Subject: [edk2-devel] [PATCH v3 1/7] ArmPkg: import Berkeley Softfloat library as git submodule Date: Fri, 31 May 2019 14:49:52 +0200 Message-Id: <20190531124958.8421-2-ard.biesheuvel@linaro.org> In-Reply-To: <20190531124958.8421-1-ard.biesheuvel@linaro.org> References: <20190531124958.8421-1-ard.biesheuvel@linaro.org> MIME-Version: 1.0 Precedence: Bulk List-Unsubscribe: Sender: devel@edk2.groups.io List-Id: Mailing-List: list devel@edk2.groups.io; contact devel+owner@edk2.groups.io Reply-To: devel@edk2.groups.io,ard.biesheuvel@linaro.org Content-Transfer-Encoding: quoted-printable DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=groups.io; q=dns/txt; s=20140610; t=1559307010; bh=RBr/72++lRvsd3d0qMwjnN7pewli71DWDmqxiUpeQEo=; h=Cc:Date:From:Reply-To:Subject:To; b=EBhkBPkABTkY58YqyYHpnGH5BTHi/fClr/3FjeuddVadkWid4xxkcol1p3Y3iYL/9qa XXxho01lmi6593bY0CuyRV9wlM6b6OBIb9bsnu/6MwuNwrhPJt8w1GydnLBDDe4ggVXCo Z/8cNR5Xs5Cri/RHX243T+/BH1wJbeSbRnk= X-ZohoMail-DKIM: pass (identity @groups.io) Content-Type: text/plain; charset="utf-8" In preparation of bringing ArmSoftFloatLib up to date in order to provide some missing routines, import the Berkely SoftFloat library into the tree as a git submodule. Ref: https://bugzilla.tianocore.org/show_bug.cgi?id=3D1845 Acked-by: Jian J Wang Acked-by: Laszlo Ersek Signed-off-by: Ard Biesheuvel --- .gitmodules | 3 +++ ArmPkg/Library/ArmSoftFloatLib/berkeley-softfloat-3 | 1 + 2 files changed, 4 insertions(+) diff --git a/.gitmodules b/.gitmodules index e4ae0c1c1626..508f0c182872 100644 --- a/.gitmodules +++ b/.gitmodules @@ -1,3 +1,6 @@ [submodule "CryptoPkg/Library/OpensslLib/openssl"] path =3D CryptoPkg/Library/OpensslLib/openssl url =3D https://github.com/openssl/openssl +[submodule "SoftFloat"] + path =3D ArmPkg/Library/ArmSoftFloatLib/berkeley-softfloat-3 + url =3D https://github.com/ucb-bar/berkeley-softfloat-3.git diff --git a/ArmPkg/Library/ArmSoftFloatLib/berkeley-softfloat-3 b/ArmPkg/L= ibrary/ArmSoftFloatLib/berkeley-softfloat-3 new file mode 160000 index 000000000000..b64af41c3276 --- /dev/null +++ b/ArmPkg/Library/ArmSoftFloatLib/berkeley-softfloat-3 @@ -0,0 +1 @@ +Subproject commit b64af41c3276f97f0e181920400ee056b9c88037 --=20 2.20.1 -=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D- Groups.io Links: You receive all messages sent to this group. View/Reply Online (#41736): https://edk2.groups.io/g/devel/message/41736 Mute This Topic: https://groups.io/mt/31879988/1787277 Group Owner: devel+owner@edk2.groups.io Unsubscribe: https://edk2.groups.io/g/devel/unsub [importer@patchew.org] -=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D- From nobody Mon Apr 29 04:34:59 2024 Delivered-To: importer@patchew.org Received-SPF: pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) client-ip=66.175.222.12; envelope-from=bounce+27952+41737+1787277+3901457@groups.io; helo=web01.groups.io; Authentication-Results: mx.zohomail.com; dkim=pass; spf=pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) smtp.mailfrom=bounce+27952+41737+1787277+3901457@groups.io; dmarc=fail(p=none dis=none) header.from=linaro.org ARC-Seal: i=1; a=rsa-sha256; t=1559307015; cv=none; d=zoho.com; s=zohoarc; b=LkZe2PLc6rimaEgjEewm5aYTSikcesWByjd4TQCXkqN9h7geTgPo1CMFg+oEzWex21SwnEAYmW0oX7efWKnVyP/5/mwM/mrbGrOkoVG2GObuGoiC59SVqq7C7F6exQoro6cHTYvTMbHuWXw2Y+GKOtf8OzT2qe6lpuWRswsVo/0= ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=zoho.com; s=zohoarc; t=1559307015; h=Content-Transfer-Encoding:Cc:Date:From:In-Reply-To:List-Id:List-Unsubscribe:MIME-Version:Message-ID:Reply-To:References:Sender:Subject:To:ARC-Authentication-Results; bh=K3Qp+zX3B07SfOekPdepdoDzRFj2fL/XqQfkmmoX2iM=; b=lNZkHnWhJk0/+doqh5GNwQwxKVEYjMAToPwfJs88W/BZOuK8YeAo34KVA4Jq6lteXQA8ztnHIBXTTKmQt0xygriyglxTbaoQ0LHBXTqicoSBa36BdWA/3/sL5B1Nrt8p0/2reRR76VP1VgcPJEYXitGFomzRnPNxIYEpBKB0vO4= ARC-Authentication-Results: i=1; mx.zoho.com; dkim=pass; spf=pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) smtp.mailfrom=bounce+27952+41737+1787277+3901457@groups.io; dmarc=fail header.from= (p=none dis=none) header.from= Received: from web01.groups.io (web01.groups.io [66.175.222.12]) by mx.zohomail.com with SMTPS id 1559307015453552.9865652852272; Fri, 31 May 2019 05:50:15 -0700 (PDT) Return-Path: X-Received: from mail-wr1-f68.google.com (mail-wr1-f68.google.com [209.85.221.68]) by groups.io with SMTP; Fri, 31 May 2019 05:50:10 -0700 X-Received: by mail-wr1-f68.google.com with SMTP id w13so6429609wru.11 for ; Fri, 31 May 2019 05:50:10 -0700 (PDT) X-Gm-Message-State: APjAAAWSXo9DfpSaBQ9TovPb8lbGDeJGomOpq4ci+VCm8ZggfibZchMX XJ9Nu/zTap+w1BSj9ZWLepOQnkToUpE= X-Google-Smtp-Source: APXvYqzoASN35gPc72WjcgS6KShGQ1BYa/+hzrqWiCfQ21SCaep5bu+i0itXAZ/gFYpdfBXiGNI2Rw== X-Received: by 2002:adf:cd11:: with SMTP id w17mr6308716wrm.83.1559307008688; Fri, 31 May 2019 05:50:08 -0700 (PDT) X-Received: from sudo.home ([2a01:cb1d:112:6f00:c225:e9ff:fe2e:ea8]) by smtp.gmail.com with ESMTPSA id b9sm6385076wma.29.2019.05.31.05.50.06 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Fri, 31 May 2019 05:50:07 -0700 (PDT) From: "Ard Biesheuvel" To: devel@edk2.groups.io Cc: Ard Biesheuvel , Laszlo Ersek , "Gao, Liming" , "Wang, Jian J" , Leif Lindholm , Michael D Kinney Subject: [edk2-devel] [PATCH v3 2/7] ArmPkg/ArmSoftFloatLib: switch to new version of softfloat library Date: Fri, 31 May 2019 14:49:53 +0200 Message-Id: <20190531124958.8421-3-ard.biesheuvel@linaro.org> In-Reply-To: <20190531124958.8421-1-ard.biesheuvel@linaro.org> References: <20190531124958.8421-1-ard.biesheuvel@linaro.org> MIME-Version: 1.0 Precedence: Bulk List-Unsubscribe: Sender: devel@edk2.groups.io List-Id: Mailing-List: list devel@edk2.groups.io; contact devel+owner@edk2.groups.io Reply-To: devel@edk2.groups.io,ard.biesheuvel@linaro.org Content-Transfer-Encoding: quoted-printable DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=groups.io; q=dns/txt; s=20140610; t=1559307015; bh=7F0ocXZFfzfhWHXPsbrZKJEykO5v/xCu44QEQyuEHxs=; h=Cc:Date:From:Reply-To:Subject:To; b=WNeTtHoLtybUzd9Bz+TYApB7L/ghz1Q3IzUOjgwdB1/frf/XtQnDGaHUjvjaeKyiCQA 6umx81vs2nOPTOJAjfRKpSthNv3C0jJS44FZ5ThptMFxB9V78mHesS0W3YUzeBM6pi/4l ZcLNA0RQeSVk6YnwoODsGoKHbiVQ9CKroSY= X-ZohoMail-DKIM: pass (identity @groups.io) Content-Type: text/plain; charset="utf-8" Update the INF description and the top level .c files in order to switch to the new version of the SoftFloat library imported as a Git submodule in the previous patch. Note that we no longer use the code that travelled a long way from the 2002 version of the softfloat library via NetBsd and the StdLib package. Instead, we are using the upstream version unmodified, with the glue .c file adopted from the OP-TEE project. This approach is much cleaner and much more maintainable. Ref: https://bugzilla.tianocore.org/show_bug.cgi?id=3D1845 Acked-by: Jian J Wang Acked-by: Laszlo Ersek Signed-off-by: Ard Biesheuvel Reviewed-by: Leif Lindholm --- ArmPkg/Library/ArmSoftFloatLib/ArmSoftFloatLib.c | 283 +++++++++++++++++= +++ ArmPkg/Library/ArmSoftFloatLib/ArmSoftFloatLib.inf | 83 ++++-- ArmPkg/Library/ArmSoftFloatLib/platform.h | 11 + 3 files changed, 358 insertions(+), 19 deletions(-) diff --git a/ArmPkg/Library/ArmSoftFloatLib/ArmSoftFloatLib.c b/ArmPkg/Libr= ary/ArmSoftFloatLib/ArmSoftFloatLib.c new file mode 100644 index 000000000000..42bed7700c99 --- /dev/null +++ b/ArmPkg/Library/ArmSoftFloatLib/ArmSoftFloatLib.c @@ -0,0 +1,283 @@ +/* + * Copyright (c) 2015 - 2019, Linaro Limited + * + * SPDX-License-Identifier: BSD-2-Clause-Patent + */ + +#include "platform.h" +#include + +/* + * On ARM32 EABI defines both a soft-float ABI and a hard-float ABI, + * hard-float is basically a super set of soft-float. Hard-float requires + * all the support routines provided for soft-float, but the compiler may + * choose to optimize to not use some of them. + * + * The AEABI functions uses soft-float calling convention even if the + * functions are compiled for hard-float. So where float and double would + * have been expected we use aeabi_float_t and aeabi_double_t respectively + * instead. + */ +typedef uint32_t aeabi_float_t; +typedef uint64_t aeabi_double_t; + +/* + * Helpers to convert between float32 and aeabi_float_t, and float64 and + * aeabi_double_t used by the AEABI functions below. + */ +static aeabi_float_t f32_to_f(float32_t val) +{ + return val.v; +} + +static float32_t f32_from_f(aeabi_float_t val) +{ + float32_t res; + + res.v =3D val; + + return res; +} + +static aeabi_double_t f64_to_d(float64_t val) +{ + return val.v; +} + +static float64_t f64_from_d(aeabi_double_t val) +{ + float64_t res; + + res.v =3D val; + + return res; +} + +/* + * From ARM Run-time ABI for ARM Architecture + * ARM IHI 0043D, current through ABI release 2.09 + * + * 4.1.2 The floating-point helper functions + */ + +/* + * Table 2, Standard aeabi_double_t precision floating-point arithmetic he= lper + * functions + */ + +aeabi_double_t __aeabi_dadd(aeabi_double_t a, aeabi_double_t b) +{ + return f64_to_d(f64_add(f64_from_d(a), f64_from_d(b))); +} + +aeabi_double_t __aeabi_ddiv(aeabi_double_t a, aeabi_double_t b) +{ + return f64_to_d(f64_div(f64_from_d(a), f64_from_d(b))); +} + +aeabi_double_t __aeabi_dmul(aeabi_double_t a, aeabi_double_t b) +{ + return f64_to_d(f64_mul(f64_from_d(a), f64_from_d(b))); +} + + +aeabi_double_t __aeabi_drsub(aeabi_double_t a, aeabi_double_t b) +{ + return f64_to_d(f64_sub(f64_from_d(b), f64_from_d(a))); +} + +aeabi_double_t __aeabi_dsub(aeabi_double_t a, aeabi_double_t b) +{ + return f64_to_d(f64_sub(f64_from_d(a), f64_from_d(b))); +} + +/* + * Table 3, double precision floating-point comparison helper functions + */ + +int __aeabi_dcmpeq(aeabi_double_t a, aeabi_double_t b) +{ + return f64_eq(f64_from_d(a), f64_from_d(b)); +} + +int __aeabi_dcmplt(aeabi_double_t a, aeabi_double_t b) +{ + return f64_lt(f64_from_d(a), f64_from_d(b)); +} + +int __aeabi_dcmple(aeabi_double_t a, aeabi_double_t b) +{ + return f64_le(f64_from_d(a), f64_from_d(b)); +} + +int __aeabi_dcmpge(aeabi_double_t a, aeabi_double_t b) +{ + return f64_le(f64_from_d(b), f64_from_d(a)); +} + +int __aeabi_dcmpgt(aeabi_double_t a, aeabi_double_t b) +{ + return f64_lt(f64_from_d(b), f64_from_d(a)); +} + +/* + * Table 4, Standard single precision floating-point arithmetic helper + * functions + */ + +aeabi_float_t __aeabi_fadd(aeabi_float_t a, aeabi_float_t b) +{ + return f32_to_f(f32_add(f32_from_f(a), f32_from_f(b))); +} + +aeabi_float_t __aeabi_fdiv(aeabi_float_t a, aeabi_float_t b) +{ + return f32_to_f(f32_div(f32_from_f(a), f32_from_f(b))); +} + +aeabi_float_t __aeabi_fmul(aeabi_float_t a, aeabi_float_t b) +{ + return f32_to_f(f32_mul(f32_from_f(a), f32_from_f(b))); +} + +aeabi_float_t __aeabi_frsub(aeabi_float_t a, aeabi_float_t b) +{ + return f32_to_f(f32_sub(f32_from_f(b), f32_from_f(a))); +} + +aeabi_float_t __aeabi_fsub(aeabi_float_t a, aeabi_float_t b) +{ + return f32_to_f(f32_sub(f32_from_f(a), f32_from_f(b))); +} + +/* + * Table 5, Standard single precision floating-point comparison helper + * functions + */ + +int __aeabi_fcmpeq(aeabi_float_t a, aeabi_float_t b) +{ + return f32_eq(f32_from_f(a), f32_from_f(b)); +} + +int __aeabi_fcmplt(aeabi_float_t a, aeabi_float_t b) +{ + return f32_lt(f32_from_f(a), f32_from_f(b)); +} + +int __aeabi_fcmple(aeabi_float_t a, aeabi_float_t b) +{ + return f32_le(f32_from_f(a), f32_from_f(b)); +} + +int __aeabi_fcmpge(aeabi_float_t a, aeabi_float_t b) +{ + return f32_le(f32_from_f(b), f32_from_f(a)); +} + +int __aeabi_fcmpgt(aeabi_float_t a, aeabi_float_t b) +{ + return f32_lt(f32_from_f(b), f32_from_f(a)); +} + +/* + * Table 6, Standard floating-point to integer conversions + */ + +int __aeabi_d2iz(aeabi_double_t a) +{ + return f64_to_i32_r_minMag(f64_from_d(a), false); +} + +unsigned __aeabi_d2uiz(aeabi_double_t a) +{ + return f64_to_ui32_r_minMag(f64_from_d(a), false); +} + +long long __aeabi_d2lz(aeabi_double_t a) +{ + return f64_to_i64_r_minMag(f64_from_d(a), false); +} + +unsigned long long __aeabi_d2ulz(aeabi_double_t a) +{ + return f64_to_ui64_r_minMag(f64_from_d(a), false); +} + +int __aeabi_f2iz(aeabi_float_t a) +{ + return f32_to_i32_r_minMag(f32_from_f(a), false); +} + +unsigned __aeabi_f2uiz(aeabi_float_t a) +{ + return f32_to_ui32_r_minMag(f32_from_f(a), false); +} + +long long __aeabi_f2lz(aeabi_float_t a) +{ + return f32_to_i64_r_minMag(f32_from_f(a), false); +} + +unsigned long long __aeabi_f2ulz(aeabi_float_t a) +{ + return f32_to_ui64_r_minMag(f32_from_f(a), false); +} + +/* + * Table 7, Standard conversions between floating types + */ + +aeabi_float_t __aeabi_d2f(aeabi_double_t a) +{ + return f32_to_f(f64_to_f32(f64_from_d(a))); +} + +aeabi_double_t __aeabi_f2d(aeabi_float_t a) +{ + return f64_to_d(f32_to_f64(f32_from_f(a))); +} + +/* + * Table 8, Standard integer to floating-point conversions + */ + +aeabi_double_t __aeabi_i2d(int a) +{ + return f64_to_d(i32_to_f64(a)); +} + +aeabi_double_t __aeabi_ui2d(unsigned a) +{ + return f64_to_d(ui32_to_f64(a)); +} + +aeabi_double_t __aeabi_l2d(long long a) +{ + return f64_to_d(i64_to_f64(a)); +} + +aeabi_double_t __aeabi_ul2d(unsigned long long a) +{ + return f64_to_d(ui64_to_f64(a)); +} + +aeabi_float_t __aeabi_i2f(int a) +{ + return f32_to_f(i32_to_f32(a)); +} + +aeabi_float_t __aeabi_ui2f(unsigned a) +{ + return f32_to_f(ui32_to_f32(a)); +} + +aeabi_float_t __aeabi_l2f(long long a) +{ + return f32_to_f(i64_to_f32(a)); +} + +aeabi_float_t __aeabi_ul2f(unsigned long long a) +{ + return f32_to_f(ui64_to_f32(a)); +} diff --git a/ArmPkg/Library/ArmSoftFloatLib/ArmSoftFloatLib.inf b/ArmPkg/Li= brary/ArmSoftFloatLib/ArmSoftFloatLib.inf index cbb49f49ade6..4d0c94df83db 100644 --- a/ArmPkg/Library/ArmSoftFloatLib/ArmSoftFloatLib.inf +++ b/ArmPkg/Library/ArmSoftFloatLib/ArmSoftFloatLib.inf @@ -2,7 +2,7 @@ # ARM Software floating point Library. # # Copyright (c) 2014, ARM Ltd. All rights reserved. -# Copyright (c) 2015, Linaro Ltd. All rights reserved. +# Copyright (c) 2015 - 2019, Linaro Ltd. All rights reserved. # # SPDX-License-Identifier: BSD-2-Clause-Patent # @@ -10,7 +10,7 @@ ## =20 [Defines] - INF_VERSION =3D 0x00010005 + INF_VERSION =3D 0x0001001B BASE_NAME =3D ArmSoftFloatLib FILE_GUID =3D a485f921-749e-41a0-9f91-62f09a38721c MODULE_TYPE =3D BASE @@ -22,26 +22,71 @@ # =20 [Sources] - bits32/softfloat.c - Arm/__aeabi_dcmpeq.c - Arm/__aeabi_fcmpeq.c - Arm/__aeabi_dcmpge.c - Arm/__aeabi_fcmpge.c - Arm/__aeabi_dcmpgt.c - Arm/__aeabi_fcmpgt.c - Arm/__aeabi_dcmple.c - Arm/__aeabi_fcmple.c - Arm/__aeabi_dcmplt.c - Arm/__aeabi_fcmplt.c - Arm/__aeabi_dcmpun.c - Arm/__aeabi_fcmpun.c + berkeley-softfloat-3/source/ARM-VFPv2/s_propagateNaNF64UI.c + berkeley-softfloat-3/source/ARM-VFPv2/softfloat_raiseFlags.c + berkeley-softfloat-3/source/ARM-VFPv2/specialize.h + berkeley-softfloat-3/source/f32_add.c + berkeley-softfloat-3/source/f32_div.c + berkeley-softfloat-3/source/f32_eq.c + berkeley-softfloat-3/source/f32_le.c + berkeley-softfloat-3/source/f32_lt.c + berkeley-softfloat-3/source/f32_mul.c + berkeley-softfloat-3/source/f32_sub.c + berkeley-softfloat-3/source/f32_to_f64.c + berkeley-softfloat-3/source/f32_to_i32_r_minMag.c + berkeley-softfloat-3/source/f32_to_i64_r_minMag.c + berkeley-softfloat-3/source/f32_to_ui32_r_minMag.c + berkeley-softfloat-3/source/f32_to_ui64_r_minMag.c + berkeley-softfloat-3/source/f64_add.c + berkeley-softfloat-3/source/f64_div.c + berkeley-softfloat-3/source/f64_eq.c + berkeley-softfloat-3/source/f64_le.c + berkeley-softfloat-3/source/f64_lt.c + berkeley-softfloat-3/source/f64_mul.c + berkeley-softfloat-3/source/f64_sub.c + berkeley-softfloat-3/source/f64_to_f32.c + berkeley-softfloat-3/source/f64_to_i32_r_minMag.c + berkeley-softfloat-3/source/f64_to_i64_r_minMag.c + berkeley-softfloat-3/source/f64_to_ui32_r_minMag.c + berkeley-softfloat-3/source/f64_to_ui64_r_minMag.c + berkeley-softfloat-3/source/i32_to_f32.c + berkeley-softfloat-3/source/i32_to_f64.c + berkeley-softfloat-3/source/i64_to_f32.c + berkeley-softfloat-3/source/i64_to_f64.c + berkeley-softfloat-3/source/include/internals.h + berkeley-softfloat-3/source/include/opts-GCC.h + berkeley-softfloat-3/source/include/primitiveTypes.h + berkeley-softfloat-3/source/include/primitives.h + berkeley-softfloat-3/source/include/softfloat.h + berkeley-softfloat-3/source/include/softfloat_types.h + berkeley-softfloat-3/source/s_addMagsF32.c + berkeley-softfloat-3/source/s_addMagsF64.c + berkeley-softfloat-3/source/s_countLeadingZeros32.c + berkeley-softfloat-3/source/s_countLeadingZeros64.c + berkeley-softfloat-3/source/s_countLeadingZeros8.c + berkeley-softfloat-3/source/s_mul64To128.c + berkeley-softfloat-3/source/s_normRoundPackToF32.c + berkeley-softfloat-3/source/s_normRoundPackToF64.c + berkeley-softfloat-3/source/s_normSubnormalF32Sig.c + berkeley-softfloat-3/source/s_normSubnormalF64Sig.c + berkeley-softfloat-3/source/s_roundPackToF32.c + berkeley-softfloat-3/source/s_roundPackToF64.c + berkeley-softfloat-3/source/s_shiftRightJam32.c + berkeley-softfloat-3/source/s_shiftRightJam64.c + berkeley-softfloat-3/source/s_shortShiftRightJam64.c + berkeley-softfloat-3/source/s_subMagsF32.c + berkeley-softfloat-3/source/s_subMagsF64.c + berkeley-softfloat-3/source/softfloat_state.c + berkeley-softfloat-3/source/ui32_to_f32.c + berkeley-softfloat-3/source/ui32_to_f64.c + berkeley-softfloat-3/source/ui64_to_f32.c + berkeley-softfloat-3/source/ui64_to_f64.c =20 - Arm/__aeabi_cdcmp.asm | RVCT - Arm/__aeabi_cfcmp.asm | RVCT + ArmSoftFloatLib.c + platform.h =20 [Packages] MdePkg/MdePkg.dec =20 [BuildOptions] - GCC:*_*_*_CC_FLAGS =3D -DSOFTFLOAT_FOR_GCC -Wno-enum-compare -fno-lto - RVCT:*_*_*_CC_FLAGS =3D -DSOFTFLOAT_FOR_GCC + GCC:*_*_*_CC_FLAGS =3D -fno-lto -ffreestanding -Wno-unused-label diff --git a/ArmPkg/Library/ArmSoftFloatLib/platform.h b/ArmPkg/Library/Arm= SoftFloatLib/platform.h new file mode 100644 index 000000000000..31e843463a38 --- /dev/null +++ b/ArmPkg/Library/ArmSoftFloatLib/platform.h @@ -0,0 +1,11 @@ +/* + * Copyright (c) 2019, Linaro Limited + * + * SPDX-License-Identifier: BSD-2-Clause-Patent + */ + +#define LITTLEENDIAN 1 +#define INLINE inline __attribute__((always_inline)) +#define SOFTFLOAT_BUILTIN_CLZ 1 +#define SOFTFLOAT_FAST_INT64 +#include "opts-GCC.h" --=20 2.20.1 -=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D- Groups.io Links: You receive all messages sent to this group. View/Reply Online (#41737): https://edk2.groups.io/g/devel/message/41737 Mute This Topic: https://groups.io/mt/31879989/1787277 Group Owner: devel+owner@edk2.groups.io Unsubscribe: https://edk2.groups.io/g/devel/unsub [importer@patchew.org] -=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D- From nobody Mon Apr 29 04:34:59 2024 Delivered-To: importer@patchew.org Received-SPF: pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) client-ip=66.175.222.12; envelope-from=bounce+27952+41739+1787277+3901457@groups.io; helo=web01.groups.io; Authentication-Results: mx.zohomail.com; dkim=pass; spf=pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) smtp.mailfrom=bounce+27952+41739+1787277+3901457@groups.io; dmarc=fail(p=none dis=none) header.from=linaro.org ARC-Seal: i=1; a=rsa-sha256; t=1559307017; cv=none; d=zoho.com; s=zohoarc; b=OmjCBoybDwgbKKLakpogkkTdZZPr6eTZzDZxEYDoy4NseX+6EmbTkQ1Za2OJb4TQ8eakJozjpoRNrxj/AjvNQlmnMwMZ2epBXRPdH5Ny8wF3q85vfAciYXo9kiXRcGsX5mM+wA6E3cFDDwrzCPENyDljS+FvLypdNSKFoAn4/DA= ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=zoho.com; s=zohoarc; t=1559307017; h=Content-Transfer-Encoding:Cc:Date:From:In-Reply-To:List-Id:List-Unsubscribe:MIME-Version:Message-ID:Reply-To:References:Sender:Subject:To:ARC-Authentication-Results; bh=dQgYJ/GsOcORvgG9uCuyAi7bqtnbxD4W81OSLIVTwcA=; b=MpsqxCeBwKr9XO3CPbDbhm4zsjHq3d+0CwiXbRnRn7brbjjEDBME8R32YEPrR+P4spp9TfpewKVk2xYFEvI1kOAC0IYYfpLbWSBbsubzzvI1D5Y7fYnEB71loDfHP23+L6rQZb1B8FpuC5/5psiNpBb9LMqbnMh0UBGMpCCzJm0= ARC-Authentication-Results: i=1; mx.zoho.com; dkim=pass; spf=pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) smtp.mailfrom=bounce+27952+41739+1787277+3901457@groups.io; dmarc=fail header.from= (p=none dis=none) header.from= Received: from web01.groups.io (web01.groups.io [66.175.222.12]) by mx.zohomail.com with SMTPS id 1559307017938223.7565003815106; Fri, 31 May 2019 05:50:17 -0700 (PDT) Return-Path: X-Received: from mail-wm1-f68.google.com (mail-wm1-f68.google.com [209.85.128.68]) by groups.io with SMTP; Fri, 31 May 2019 05:50:16 -0700 X-Received: by mail-wm1-f68.google.com with SMTP id v19so7558411wmh.0 for ; Fri, 31 May 2019 05:50:15 -0700 (PDT) X-Gm-Message-State: APjAAAU5+gWrqFpOWwYxuosEOJ4Had1Rvv6ZyQ69ew93TfZmBhIpQgjd H2dId5TKqahgOZuZ4QfB0wsjkPjtGn8= X-Google-Smtp-Source: APXvYqzvej73PMp4n3d5HPkKEOIgnpS/siNB68V/TTW1CjDgOUX4G5Re66tED5Y7OmOwVOnsNtW+sA== X-Received: by 2002:a1c:1bc5:: with SMTP id b188mr5567707wmb.174.1559307011442; Fri, 31 May 2019 05:50:11 -0700 (PDT) X-Received: from sudo.home ([2a01:cb1d:112:6f00:c225:e9ff:fe2e:ea8]) by smtp.gmail.com with ESMTPSA id b9sm6385076wma.29.2019.05.31.05.50.08 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Fri, 31 May 2019 05:50:10 -0700 (PDT) From: "Ard Biesheuvel" To: devel@edk2.groups.io Cc: Ard Biesheuvel , Laszlo Ersek , "Gao, Liming" , "Wang, Jian J" , Leif Lindholm , Michael D Kinney Subject: [edk2-devel] [PATCH v3 3/7] ArmPkg/ArmSoftFloatLib: remove source files that are no longer used Date: Fri, 31 May 2019 14:49:54 +0200 Message-Id: <20190531124958.8421-4-ard.biesheuvel@linaro.org> In-Reply-To: <20190531124958.8421-1-ard.biesheuvel@linaro.org> References: <20190531124958.8421-1-ard.biesheuvel@linaro.org> MIME-Version: 1.0 Precedence: Bulk List-Unsubscribe: Sender: devel@edk2.groups.io List-Id: Mailing-List: list devel@edk2.groups.io; contact devel+owner@edk2.groups.io Reply-To: devel@edk2.groups.io,ard.biesheuvel@linaro.org Content-Transfer-Encoding: quoted-printable DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=groups.io; q=dns/txt; s=20140610; t=1559307016; bh=h43t0YLWJqo+YYz4lmfvvRAkjPdSzxQ3AnZAGPd491o=; h=Cc:Date:From:Reply-To:Subject:To; b=NEVzLk4L9AmFEBE++Qzx/Oag1PGazASD9QuARhHMdjS9GX8qiV2QV8+WUg3T3YXxMi6 Bjbo1dWz5Pi7MsmYHHCFrzTRXxtomVq/G3MyNYGTdGL8/VvtoWojF0Apztrxca7XHSi/G ZkGR+f5JL39x2aKrx3XiynB0re0QMjp5eu8= X-ZohoMail-DKIM: pass (identity @groups.io) Content-Type: text/plain; charset="utf-8" Now that we have switched to a new version of the SoftFloat code, remove the source files that make up the old implementation, and are no longer referenced. Ref: https://bugzilla.tianocore.org/show_bug.cgi?id=3D1845 Acked-by: Jian J Wang Acked-by: Laszlo Ersek Signed-off-by: Ard Biesheuvel --- ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_cdcmp.asm | 41 - ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_cfcmp.asm | 37 - ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_dcmpeq.c | 30 - ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_dcmpge.c | 28 - ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_dcmpgt.c | 30 - ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_dcmple.c | 30 - ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_dcmplt.c | 30 - ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_dcmpun.c | 35 - ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_fcmpeq.c | 30 - ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_fcmpge.c | 30 - ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_fcmpgt.c | 30 - ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_fcmple.c | 30 - ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_fcmplt.c | 30 - ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_fcmpun.c | 35 - ArmPkg/Library/ArmSoftFloatLib/Arm/softfloat.h | 345 --- ArmPkg/Library/ArmSoftFloatLib/arm-gcc.h | 108 - ArmPkg/Library/ArmSoftFloatLib/bits32/softfloat-macros | 648 ------ ArmPkg/Library/ArmSoftFloatLib/bits32/softfloat.c | 2354 ------------= -------- ArmPkg/Library/ArmSoftFloatLib/milieu.h | 38 - ArmPkg/Library/ArmSoftFloatLib/softfloat-for-gcc.h | 242 -- ArmPkg/Library/ArmSoftFloatLib/softfloat-specialize | 525 ----- 21 files changed, 4706 deletions(-) diff --git a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_cdcmp.asm b/ArmPkg/= Library/ArmSoftFloatLib/Arm/__aeabi_cdcmp.asm deleted file mode 100644 index 47ec383f8053..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_cdcmp.asm +++ /dev/null @@ -1,41 +0,0 @@ -//------------------------------------------------------------------------= ------ -// -// Copyright (c) 2015, Linaro Limited. All rights reserved. -// -// SPDX-License-Identifier: BSD-2-Clause-Patent -// -//------------------------------------------------------------------------= ------ - - EXPORT __aeabi_cdrcmple - EXPORT __aeabi_cdcmpeq - EXPORT __aeabi_cdcmple - IMPORT _softfloat_float64_eq - IMPORT _softfloat_float64_lt - - AREA __aeabi_cdcmp, CODE, READONLY - PRESERVE8 - -__aeabi_cdrcmple - MOV IP, R0 - MOV R0, R2 - MOV R2, IP - - MOV IP, R1 - MOV R1, R3 - MOV R3, IP - -__aeabi_cdcmpeq -__aeabi_cdcmple - PUSH {R0 - R3, IP, LR} - BL _softfloat_float64_eq - SUB IP, R0, #1 - CMP IP, #0 // sets C and Z if R0 =3D=3D 1 - POPEQ {R0 - R3, IP, PC} - - LDM SP, {R0 - R3} - BL _softfloat_float64_lt - SUB IP, R0, #1 - CMP IP, #1 // sets C if R0 =3D=3D 0 - POP {R0 - R3, IP, PC} - - END diff --git a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_cfcmp.asm b/ArmPkg/= Library/ArmSoftFloatLib/Arm/__aeabi_cfcmp.asm deleted file mode 100644 index df005a2d6b04..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_cfcmp.asm +++ /dev/null @@ -1,37 +0,0 @@ -//------------------------------------------------------------------------= ------ -// -// Copyright (c) 2015, Linaro Limited. All rights reserved. -// -// SPDX-License-Identifier: BSD-2-Clause-Patent -// -//------------------------------------------------------------------------= ------ - - EXPORT __aeabi_cfrcmple - EXPORT __aeabi_cfcmpeq - EXPORT __aeabi_cfcmple - IMPORT _softfloat_float32_eq - IMPORT _softfloat_float32_lt - - AREA __aeabi_cfcmp, CODE, READONLY - PRESERVE8 - -__aeabi_cfrcmple - MOV IP, R0 - MOV R0, R1 - MOV R1, IP - -__aeabi_cfcmpeq -__aeabi_cfcmple - PUSH {R0 - R3, IP, LR} - BL _softfloat_float32_eq - SUB IP, R0, #1 - CMP IP, #0 // sets C and Z if R0 =3D=3D 1 - POPEQ {R0 - R3, IP, PC} - - LDM SP, {R0 - R1} - BL _softfloat_float32_lt - SUB IP, R0, #1 - CMP IP, #1 // sets C if R0 =3D=3D 0 - POP {R0 - R3, IP, PC} - - END diff --git a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_dcmpeq.c b/ArmPkg/L= ibrary/ArmSoftFloatLib/Arm/__aeabi_dcmpeq.c deleted file mode 100644 index 31942ac9e346..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_dcmpeq.c +++ /dev/null @@ -1,30 +0,0 @@ -/* $NetBSD: __aeabi_dcmpeq.c,v 1.1 2013/04/16 10:37:39 matt Exp $ */ - -/** @file -* -* Copyright (c) 2013 - 2014, ARM Limited. All rights reserved. -* -* SPDX-License-Identifier: BSD-2-Clause-Patent -* -**/ - -/* - * Written by Ben Harris, 2000. This file is in the Public Domain. - */ - -#if defined(LIBC_SCCS) && !defined(lint) -__RCSID("$NetBSD: __aeabi_dcmpeq.c,v 1.1 2013/04/16 10:37:39 matt Exp $"); -#endif /* LIBC_SCCS and not lint */ - -#include "softfloat-for-gcc.h" -#include "milieu.h" -#include "softfloat.h" - -int __aeabi_dcmpeq(float64, float64); - -int -__aeabi_dcmpeq(float64 a, float64 b) -{ - - return float64_eq(a, b); -} diff --git a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_dcmpge.c b/ArmPkg/L= ibrary/ArmSoftFloatLib/Arm/__aeabi_dcmpge.c deleted file mode 100644 index d95371258aa8..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_dcmpge.c +++ /dev/null @@ -1,28 +0,0 @@ -/* $NetBSD: __aeabi_dcmpge.c,v 1.2 2013/04/16 13:38:34 matt Exp $ */ -/** @file -* -* Copyright (c) 2013 - 2014, ARM Limited. All rights reserved. -* -* SPDX-License-Identifier: BSD-2-Clause-Patent -* -**/ -/* - * Written by Ben Harris, 2000. This file is in the Public Domain. - */ - -#include "softfloat-for-gcc.h" -#include "milieu.h" -#include "softfloat.h" - -#if defined(LIBC_SCCS) && !defined(lint) -__RCSID("$NetBSD: __aeabi_dcmpge.c,v 1.2 2013/04/16 13:38:34 matt Exp $"); -#endif /* LIBC_SCCS and not lint */ - -int __aeabi_dcmpge(float64, float64); - -int -__aeabi_dcmpge(float64 a, float64 b) -{ - - return !float64_lt(a, b) && float64_eq(a, a) && float64_eq(b, b); -} diff --git a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_dcmpgt.c b/ArmPkg/L= ibrary/ArmSoftFloatLib/Arm/__aeabi_dcmpgt.c deleted file mode 100644 index d5a092b99721..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_dcmpgt.c +++ /dev/null @@ -1,30 +0,0 @@ -/* $NetBSD: __aeabi_dcmpgt.c,v 1.2 2013/04/16 13:38:34 matt Exp $ */ - -/** @file -* -* Copyright (c) 2013 - 2014, ARM Limited. All rights reserved. -* -* SPDX-License-Identifier: BSD-2-Clause-Patent -* -**/ - -/* - * Written by Ben Harris, 2000. This file is in the Public Domain. - */ - -#include "softfloat-for-gcc.h" -#include "milieu.h" -#include "softfloat.h" - -#if defined(LIBC_SCCS) && !defined(lint) -__RCSID("$NetBSD: __aeabi_dcmpgt.c,v 1.2 2013/04/16 13:38:34 matt Exp $"); -#endif /* LIBC_SCCS and not lint */ - -int __aeabi_dcmpgt(float64, float64); - -int -__aeabi_dcmpgt(float64 a, float64 b) -{ - - return !float64_le(a, b) && float64_eq(a, a) && float64_eq(b, b); -} diff --git a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_dcmple.c b/ArmPkg/L= ibrary/ArmSoftFloatLib/Arm/__aeabi_dcmple.c deleted file mode 100644 index 20939dd0b229..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_dcmple.c +++ /dev/null @@ -1,30 +0,0 @@ -/* $NetBSD: __aeabi_dcmple.c,v 1.1 2013/04/16 10:37:39 matt Exp $ */ - -/** @file -* -* Copyright (c) 2013 - 2014, ARM Limited. All rights reserved. -* -* SPDX-License-Identifier: BSD-2-Clause-Patent -* -**/ - -/* - * Written by Ben Harris, 2000. This file is in the Public Domain. - */ - -#include "softfloat-for-gcc.h" -#include "milieu.h" -#include "softfloat.h" - -#if defined(LIBC_SCCS) && !defined(lint) -__RCSID("$NetBSD: __aeabi_dcmple.c,v 1.1 2013/04/16 10:37:39 matt Exp $"); -#endif /* LIBC_SCCS and not lint */ - -int __aeabi_dcmple(float64, float64); - -int -__aeabi_dcmple(float64 a, float64 b) -{ - - return float64_le(a, b); -} diff --git a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_dcmplt.c b/ArmPkg/L= ibrary/ArmSoftFloatLib/Arm/__aeabi_dcmplt.c deleted file mode 100644 index d3ef1b7b32e5..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_dcmplt.c +++ /dev/null @@ -1,30 +0,0 @@ -/* $NetBSD: __aeabi_dcmplt.c,v 1.1 2013/04/16 10:37:39 matt Exp $ */ - -/** @file -* -* Copyright (c) 2013 - 2014, ARM Limited. All rights reserved. -* -* SPDX-License-Identifier: BSD-2-Clause-Patent -* -**/ - -/* - * Written by Ben Harris, 2000. This file is in the Public Domain. - */ - -#include "softfloat-for-gcc.h" -#include "milieu.h" -#include "softfloat.h" - -#if defined(LIBC_SCCS) && !defined(lint) -__RCSID("$NetBSD: __aeabi_dcmplt.c,v 1.1 2013/04/16 10:37:39 matt Exp $"); -#endif /* LIBC_SCCS and not lint */ - -int __aeabi_dcmplt(float64, float64); - -int -__aeabi_dcmplt(float64 a, float64 b) -{ - - return float64_lt(a, b); -} diff --git a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_dcmpun.c b/ArmPkg/L= ibrary/ArmSoftFloatLib/Arm/__aeabi_dcmpun.c deleted file mode 100644 index 0e0bc57e2fb8..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_dcmpun.c +++ /dev/null @@ -1,35 +0,0 @@ -/* $NetBSD: __aeabi_dcmpun.c,v 1.1 2013/04/16 10:37:39 matt Exp $ */ - -/** @file -* -* Copyright (c) 2013 - 2014, ARM Limited. All rights reserved. -* -* SPDX-License-Identifier: BSD-2-Clause-Patent -* -**/ - -/* - * Written by Richard Earnshaw, 2003. This file is in the Public Domain. - */ - -#include "softfloat-for-gcc.h" -#include "milieu.h" -#include "softfloat.h" - -#if defined(LIBC_SCCS) && !defined(lint) -__RCSID("$NetBSD: __aeabi_dcmpun.c,v 1.1 2013/04/16 10:37:39 matt Exp $"); -#endif /* LIBC_SCCS and not lint */ - -int __aeabi_dcmpun(float64, float64); - -int -__aeabi_dcmpun(float64 a, float64 b) -{ - /* - * The comparison is unordered if either input is a NaN. - * Test for this by comparing each operand with itself. - * We must perform both comparisons to correctly check for - * signalling NaNs. - */ - return !float64_eq(a, a) || !float64_eq(b, b); -} diff --git a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_fcmpeq.c b/ArmPkg/L= ibrary/ArmSoftFloatLib/Arm/__aeabi_fcmpeq.c deleted file mode 100644 index 1a210b934dda..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_fcmpeq.c +++ /dev/null @@ -1,30 +0,0 @@ -/* $NetBSD: __aeabi_fcmpeq.c,v 1.1 2013/04/16 10:37:39 matt Exp $ */ - -/** @file -* -* Copyright (c) 2013 - 2014, ARM Limited. All rights reserved. -* -* SPDX-License-Identifier: BSD-2-Clause-Patent -* -**/ - -/* - * Written by Ben Harris, 2000. This file is in the Public Domain. - */ - -#if defined(LIBC_SCCS) && !defined(lint) -__RCSID("$NetBSD: __aeabi_fcmpeq.c,v 1.1 2013/04/16 10:37:39 matt Exp $"); -#endif /* LIBC_SCCS and not lint */ - -#include "softfloat-for-gcc.h" -#include "milieu.h" -#include "softfloat.h" - -int __aeabi_fcmpeq(float32, float32); - -int -__aeabi_fcmpeq(float32 a, float32 b) -{ - - return float32_eq(a, b); -} diff --git a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_fcmpge.c b/ArmPkg/L= ibrary/ArmSoftFloatLib/Arm/__aeabi_fcmpge.c deleted file mode 100644 index 5c99f4d16e54..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_fcmpge.c +++ /dev/null @@ -1,30 +0,0 @@ -/* $NetBSD: __aeabi_fcmpge.c,v 1.2 2013/04/16 13:38:34 matt Exp $ */ - -/** @file -* -* Copyright (c) 2013 - 2014, ARM Limited. All rights reserved. -* -* SPDX-License-Identifier: BSD-2-Clause-Patent -* -**/ - -/* - * Written by Ben Harris, 2000. This file is in the Public Domain. - */ - -#include "softfloat-for-gcc.h" -#include "milieu.h" -#include "softfloat.h" - -#if defined(LIBC_SCCS) && !defined(lint) -__RCSID("$NetBSD: __aeabi_fcmpge.c,v 1.2 2013/04/16 13:38:34 matt Exp $"); -#endif /* LIBC_SCCS and not lint */ - -int __aeabi_fcmpge(float32, float32); - -int -__aeabi_fcmpge(float32 a, float32 b) -{ - - return !float32_lt(a, b) && float32_eq(a, a) && float32_eq(b, b); -} diff --git a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_fcmpgt.c b/ArmPkg/L= ibrary/ArmSoftFloatLib/Arm/__aeabi_fcmpgt.c deleted file mode 100644 index 7e4a225a6af7..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_fcmpgt.c +++ /dev/null @@ -1,30 +0,0 @@ -/* $NetBSD: __aeabi_fcmpgt.c,v 1.2 2013/04/16 13:38:34 matt Exp $ */ - -/** @file -* -* Copyright (c) 2013 - 2014, ARM Limited. All rights reserved. -* -* SPDX-License-Identifier: BSD-2-Clause-Patent -* -**/ - -/* - * Written by Ben Harris, 2000. This file is in the Public Domain. - */ - -#include "softfloat-for-gcc.h" -#include "milieu.h" -#include "softfloat.h" - -#if defined(LIBC_SCCS) && !defined(lint) -__RCSID("$NetBSD: __aeabi_fcmpgt.c,v 1.2 2013/04/16 13:38:34 matt Exp $"); -#endif /* LIBC_SCCS and not lint */ - -int __aeabi_fcmpgt(float32, float32); - -int -__aeabi_fcmpgt(float32 a, float32 b) -{ - - return !float32_le(a, b) && float32_eq(a, a) && float32_eq(b, b); -} diff --git a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_fcmple.c b/ArmPkg/L= ibrary/ArmSoftFloatLib/Arm/__aeabi_fcmple.c deleted file mode 100644 index 97fb070cb8d5..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_fcmple.c +++ /dev/null @@ -1,30 +0,0 @@ -/* $NetBSD: __aeabi_fcmple.c,v 1.1 2013/04/16 10:37:39 matt Exp $ */ - -/** @file -* -* Copyright (c) 2013 - 2014, ARM Limited. All rights reserved. -* -* SPDX-License-Identifier: BSD-2-Clause-Patent -* -**/ - -/* - * Written by Ben Harris, 2000. This file is in the Public Domain. - */ - -#include "softfloat-for-gcc.h" -#include "milieu.h" -#include "softfloat.h" - -#if defined(LIBC_SCCS) && !defined(lint) -__RCSID("$NetBSD: __aeabi_fcmple.c,v 1.1 2013/04/16 10:37:39 matt Exp $"); -#endif /* LIBC_SCCS and not lint */ - -int __aeabi_fcmple(float32, float32); - -int -__aeabi_fcmple(float32 a, float32 b) -{ - - return float32_le(a, b); -} diff --git a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_fcmplt.c b/ArmPkg/L= ibrary/ArmSoftFloatLib/Arm/__aeabi_fcmplt.c deleted file mode 100644 index 53585f0b8205..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_fcmplt.c +++ /dev/null @@ -1,30 +0,0 @@ -/* $NetBSD: __aeabi_fcmplt.c,v 1.1 2013/04/16 10:37:39 matt Exp $ */ - -/** @file -* -* Copyright (c) 2013 - 2014, ARM Limited. All rights reserved. -* -* SPDX-License-Identifier: BSD-2-Clause-Patent -* -**/ - -/* - * Written by Ben Harris, 2000. This file is in the Public Domain. - */ - -#include "softfloat-for-gcc.h" -#include "milieu.h" -#include "softfloat.h" - -#if defined(LIBC_SCCS) && !defined(lint) -__RCSID("$NetBSD: __aeabi_fcmplt.c,v 1.1 2013/04/16 10:37:39 matt Exp $"); -#endif /* LIBC_SCCS and not lint */ - -int __aeabi_fcmplt(float32, float32); - -int -__aeabi_fcmplt(float32 a, float32 b) -{ - - return float32_lt(a, b); -} diff --git a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_fcmpun.c b/ArmPkg/L= ibrary/ArmSoftFloatLib/Arm/__aeabi_fcmpun.c deleted file mode 100644 index d5e43e319e69..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/Arm/__aeabi_fcmpun.c +++ /dev/null @@ -1,35 +0,0 @@ -/* $NetBSD: __aeabi_fcmpun.c,v 1.1 2013/04/16 10:37:39 matt Exp $ */ - -/** @file -* -* Copyright (c) 2013 - 2014, ARM Limited. All rights reserved. -* -* SPDX-License-Identifier: BSD-2-Clause-Patent -* -**/ - -/* - * Written by Richard Earnshaw, 2003. This file is in the Public Domain. - */ - -#include "softfloat-for-gcc.h" -#include "milieu.h" -#include "softfloat.h" - -#if defined(LIBC_SCCS) && !defined(lint) -__RCSID("$NetBSD: __aeabi_fcmpun.c,v 1.1 2013/04/16 10:37:39 matt Exp $"); -#endif /* LIBC_SCCS and not lint */ - -int __aeabi_fcmpun(float32, float32); - -int -__aeabi_fcmpun(float32 a, float32 b) -{ - /* - * The comparison is unordered if either input is a NaN. - * Test for this by comparing each operand with itself. - * We must perform both comparisons to correctly check for - * signalling NaNs. - */ - return !float32_eq(a, a) || !float32_eq(b, b); -} diff --git a/ArmPkg/Library/ArmSoftFloatLib/Arm/softfloat.h b/ArmPkg/Librar= y/ArmSoftFloatLib/Arm/softfloat.h deleted file mode 100644 index a9004f672385..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/Arm/softfloat.h +++ /dev/null @@ -1,345 +0,0 @@ -/* $NetBSD: softfloat.h,v 1.10 2013/04/24 18:04:46 matt Exp $ */ - -/* This is a derivative work. */ - -/* -=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D - -This C header file is part of the SoftFloat IEC/IEEE Floating-point -Arithmetic Package, Release 2a. - -Written by John R. Hauser. This work was made possible in part by the -International Computer Science Institute, located at Suite 600, 1947 Center -Street, Berkeley, California 94704. Funding was partially provided by the -National Science Foundation under grant MIP-9311980. The original version -of this code was written as part of a project to build a fixed-point vector -processor in collaboration with the University of California at Berkeley, -overseen by Profs. Nelson Morgan and John Wawrzynek. More information -is available through the Web page `http://HTTP.CS.Berkeley.EDU/~jhauser/ -arithmetic/SoftFloat.html'. - -THIS SOFTWARE IS DISTRIBUTED AS IS, FOR FREE. Although reasonable effort -has been made to avoid it, THIS SOFTWARE MAY CONTAIN FAULTS THAT WILL AT -TIMES RESULT IN INCORRECT BEHAVIOR. USE OF THIS SOFTWARE IS RESTRICTED TO -PERSONS AND ORGANIZATIONS WHO CAN AND WILL TAKE FULL RESPONSIBILITY FOR ANY -AND ALL LOSSES, COSTS, OR OTHER PROBLEMS ARISING FROM ITS USE. - -Derivative works are acceptable, even for commercial purposes, so long as -(1) they include prominent notice that the work is derivative, and (2) they -include prominent notice akin to these four paragraphs for those parts of -this code that are retained. - -=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D -*/ - -/* ---------------------------------------------------------------------------= ----- -The macro `FLOATX80' must be defined to enable the extended double-precisi= on -floating-point format `floatx80'. If this macro is not defined, the -`floatx80' type will not be defined, and none of the functions that either -input or output the `floatx80' type will be defined. The same applies to -the `FLOAT128' macro and the quadruple-precision format `float128'. ---------------------------------------------------------------------------= ----- -*/ -/* #define FLOATX80 */ -/* #define FLOAT128 */ - -#define FE_INVALID 0x01 /* invalid operation exception */ -#define FE_DIVBYZERO 0x02 /* divide-by-zero exception */ -#define FE_OVERFLOW 0x04 /* overflow exception */ -#define FE_UNDERFLOW 0x08 /* underflow exception */ -#define FE_INEXACT 0x10 /* imprecise (loss of precision; "inexact"= ) */ - -#define FE_ALL_EXCEPT 0x1f - -#define FE_TONEAREST 0 /* round to nearest representable number */ -#define FE_UPWARD 1 /* round toward positive infinity */ -#define FE_DOWNWARD 2 /* round toward negative infinity */ -#define FE_TOWARDZERO 3 /* round to zero (truncate) */ - -typedef int fp_except; - -/* Bit defines for fp_except */ - -#define FP_X_INV FE_INVALID /* invalid operation exception */ -#define FP_X_DZ FE_DIVBYZERO /* divide-by-zero exception */ -#define FP_X_OFL FE_OVERFLOW /* overflow exception */ -#define FP_X_UFL FE_UNDERFLOW /* underflow exception */ -#define FP_X_IMP FE_INEXACT /* imprecise (prec. loss; "inexact") */ - -/* Rounding modes */ - -typedef enum { - FP_RN=3DFE_TONEAREST, /* round to nearest representable number */ - FP_RP=3DFE_UPWARD, /* round toward positive infinity */ - FP_RM=3DFE_DOWNWARD, /* round toward negative infinity */ - FP_RZ=3DFE_TOWARDZERO /* round to zero (truncate) */ -} fp_rnd; - -/* ---------------------------------------------------------------------------= ----- -Software IEC/IEEE floating-point types. ---------------------------------------------------------------------------= ----- -*/ -typedef unsigned int float32; -typedef unsigned long long float64; -#ifdef FLOATX80 -typedef struct { - unsigned short high; - unsigned long long low; -} floatx80; -#endif -#ifdef FLOAT128 -typedef struct { - unsigned long long high, low; -} float128; -#endif - -/* ---------------------------------------------------------------------------= ----- -Software IEC/IEEE floating-point underflow tininess-detection mode. ---------------------------------------------------------------------------= ----- -*/ -#ifndef SOFTFLOAT_FOR_GCC -extern int float_detect_tininess; -#endif -enum { - float_tininess_after_rounding =3D 0, - float_tininess_before_rounding =3D 1 -}; - -/* ---------------------------------------------------------------------------= ----- -Software IEC/IEEE floating-point rounding mode. ---------------------------------------------------------------------------= ----- -*/ -extern fp_rnd float_rounding_mode; -#define float_round_nearest_even FP_RN -#define float_round_to_zero FP_RZ -#define float_round_down FP_RM -#define float_round_up FP_RP - -/* ---------------------------------------------------------------------------= ----- -Software IEC/IEEE floating-point exception flags. ---------------------------------------------------------------------------= ----- -*/ -extern fp_except float_exception_flags; -extern fp_except float_exception_mask; -enum { - float_flag_inexact =3D FP_X_IMP, - float_flag_underflow =3D FP_X_UFL, - float_flag_overflow =3D FP_X_OFL, - float_flag_divbyzero =3D FP_X_DZ, - float_flag_invalid =3D FP_X_INV -}; - -/* ---------------------------------------------------------------------------= ----- -Routine to raise any or all of the software IEC/IEEE floating-point -exception flags. ---------------------------------------------------------------------------= ----- -*/ -void float_raise( fp_except ); - -/* ---------------------------------------------------------------------------= ----- -Software IEC/IEEE integer-to-floating-point conversion routines. ---------------------------------------------------------------------------= ----- -*/ -float32 int32_to_float32( int32 ); -float32 uint32_to_float32( uint32 ); -float64 int32_to_float64( int32 ); -float64 uint32_to_float64( uint32 ); -#ifdef FLOATX80 -floatx80 int32_to_floatx80( int32 ); -floatx80 uint32_to_floatx80( uint32 ); -#endif -#ifdef FLOAT128 -float128 int32_to_float128( int32 ); -float128 uint32_to_float128( uint32 ); -#endif -#ifndef SOFTFLOAT_FOR_GCC /* __floatdi?f is in libgcc2.c */ -float32 int64_to_float32( long long ); -float64 int64_to_float64( long long ); -#ifdef FLOATX80 -floatx80 int64_to_floatx80( long long ); -#endif -#ifdef FLOAT128 -float128 int64_to_float128( long long ); -#endif -#endif - -/* ---------------------------------------------------------------------------= ----- -Software IEC/IEEE single-precision conversion routines. ---------------------------------------------------------------------------= ----- -*/ -int float32_to_int32( float32 ); -int float32_to_int32_round_to_zero( float32 ); -#if defined(SOFTFLOAT_FOR_GCC) && defined(SOFTFLOAT_NEED_FIXUNS) -unsigned int float32_to_uint32_round_to_zero( float32 ); -#endif -#ifndef SOFTFLOAT_FOR_GCC /* __fix?fdi provided by libgcc2.c */ -long long float32_to_int64( float32 ); -long long float32_to_int64_round_to_zero( float32 ); -#endif -float64 float32_to_float64( float32 ); -#ifdef FLOATX80 -floatx80 float32_to_floatx80( float32 ); -#endif -#ifdef FLOAT128 -float128 float32_to_float128( float32 ); -#endif - -/* ---------------------------------------------------------------------------= ----- -Software IEC/IEEE single-precision operations. ---------------------------------------------------------------------------= ----- -*/ -float32 float32_round_to_int( float32 ); -float32 float32_add( float32, float32 ); -float32 float32_sub( float32, float32 ); -float32 float32_mul( float32, float32 ); -float32 float32_div( float32, float32 ); -float32 float32_rem( float32, float32 ); -float32 float32_sqrt( float32 ); -int float32_eq( float32, float32 ); -int float32_le( float32, float32 ); -int float32_lt( float32, float32 ); -int float32_eq_signaling( float32, float32 ); -int float32_le_quiet( float32, float32 ); -int float32_lt_quiet( float32, float32 ); -#ifndef SOFTFLOAT_FOR_GCC -int float32_is_signaling_nan( float32 ); -#endif - -/* ---------------------------------------------------------------------------= ----- -Software IEC/IEEE double-precision conversion routines. ---------------------------------------------------------------------------= ----- -*/ -int float64_to_int32( float64 ); -int float64_to_int32_round_to_zero( float64 ); -#if defined(SOFTFLOAT_FOR_GCC) && defined(SOFTFLOAT_NEED_FIXUNS) -unsigned int float64_to_uint32_round_to_zero( float64 ); -#endif -#ifndef SOFTFLOAT_FOR_GCC /* __fix?fdi provided by libgcc2.c */ -long long float64_to_int64( float64 ); -long long float64_to_int64_round_to_zero( float64 ); -#endif -float32 float64_to_float32( float64 ); -#ifdef FLOATX80 -floatx80 float64_to_floatx80( float64 ); -#endif -#ifdef FLOAT128 -float128 float64_to_float128( float64 ); -#endif - -/* ---------------------------------------------------------------------------= ----- -Software IEC/IEEE double-precision operations. ---------------------------------------------------------------------------= ----- -*/ -float64 float64_round_to_int( float64 ); -float64 float64_add( float64, float64 ); -float64 float64_sub( float64, float64 ); -float64 float64_mul( float64, float64 ); -float64 float64_div( float64, float64 ); -float64 float64_rem( float64, float64 ); -float64 float64_sqrt( float64 ); -int float64_eq( float64, float64 ); -int float64_le( float64, float64 ); -int float64_lt( float64, float64 ); -int float64_eq_signaling( float64, float64 ); -int float64_le_quiet( float64, float64 ); -int float64_lt_quiet( float64, float64 ); -#ifndef SOFTFLOAT_FOR_GCC -int float64_is_signaling_nan( float64 ); -#endif - -#ifdef FLOATX80 - -/* ---------------------------------------------------------------------------= ----- -Software IEC/IEEE extended double-precision conversion routines. ---------------------------------------------------------------------------= ----- -*/ -int floatx80_to_int32( floatx80 ); -int floatx80_to_int32_round_to_zero( floatx80 ); -long long floatx80_to_int64( floatx80 ); -long long floatx80_to_int64_round_to_zero( floatx80 ); -float32 floatx80_to_float32( floatx80 ); -float64 floatx80_to_float64( floatx80 ); -#ifdef FLOAT128 -float128 floatx80_to_float128( floatx80 ); -#endif - -/* ---------------------------------------------------------------------------= ----- -Software IEC/IEEE extended double-precision rounding precision. Valid -values are 32, 64, and 80. ---------------------------------------------------------------------------= ----- -*/ -extern int floatx80_rounding_precision; - -/* ---------------------------------------------------------------------------= ----- -Software IEC/IEEE extended double-precision operations. ---------------------------------------------------------------------------= ----- -*/ -floatx80 floatx80_round_to_int( floatx80 ); -floatx80 floatx80_add( floatx80, floatx80 ); -floatx80 floatx80_sub( floatx80, floatx80 ); -floatx80 floatx80_mul( floatx80, floatx80 ); -floatx80 floatx80_div( floatx80, floatx80 ); -floatx80 floatx80_rem( floatx80, floatx80 ); -floatx80 floatx80_sqrt( floatx80 ); -int floatx80_eq( floatx80, floatx80 ); -int floatx80_le( floatx80, floatx80 ); -int floatx80_lt( floatx80, floatx80 ); -int floatx80_eq_signaling( floatx80, floatx80 ); -int floatx80_le_quiet( floatx80, floatx80 ); -int floatx80_lt_quiet( floatx80, floatx80 ); -int floatx80_is_signaling_nan( floatx80 ); - -#endif - -#ifdef FLOAT128 - -/* ---------------------------------------------------------------------------= ----- -Software IEC/IEEE quadruple-precision conversion routines. ---------------------------------------------------------------------------= ----- -*/ -int float128_to_int32( float128 ); -int float128_to_int32_round_to_zero( float128 ); -long long float128_to_int64( float128 ); -long long float128_to_int64_round_to_zero( float128 ); -float32 float128_to_float32( float128 ); -float64 float128_to_float64( float128 ); -#ifdef FLOATX80 -floatx80 float128_to_floatx80( float128 ); -#endif - -/* ---------------------------------------------------------------------------= ----- -Software IEC/IEEE quadruple-precision operations. ---------------------------------------------------------------------------= ----- -*/ -float128 float128_round_to_int( float128 ); -float128 float128_add( float128, float128 ); -float128 float128_sub( float128, float128 ); -float128 float128_mul( float128, float128 ); -float128 float128_div( float128, float128 ); -float128 float128_rem( float128, float128 ); -float128 float128_sqrt( float128 ); -int float128_eq( float128, float128 ); -int float128_le( float128, float128 ); -int float128_lt( float128, float128 ); -int float128_eq_signaling( float128, float128 ); -int float128_le_quiet( float128, float128 ); -int float128_lt_quiet( float128, float128 ); -int float128_is_signaling_nan( float128 ); - -#endif diff --git a/ArmPkg/Library/ArmSoftFloatLib/arm-gcc.h b/ArmPkg/Library/ArmS= oftFloatLib/arm-gcc.h deleted file mode 100644 index 67962518e013..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/arm-gcc.h +++ /dev/null @@ -1,108 +0,0 @@ -/** @file - - Copyright (c) 2014, ARM Limited. All rights reserved. - - SPDX-License-Identifier: BSD-2-Clause-Patent - -**/ - -/* $NetBSD: arm-gcc.h,v 1.4 2013/01/26 07:08:14 matt Exp $ */ - -/* ---------------------------------------------------------------------------= ----- -One of the macros `BIGENDIAN' or `LITTLEENDIAN' must be defined. ---------------------------------------------------------------------------= ----- -*/ -#ifdef __ARMEB__ -#define BIGENDIAN -#else -#define LITTLEENDIAN -#endif - -/* ---------------------------------------------------------------------------= ----- -The macro `BITS64' can be defined to indicate that 64-bit integer types are -supported by the compiler. ---------------------------------------------------------------------------= ----- -*/ -#define BITS64 - -/* ---------------------------------------------------------------------------= ----- -Each of the following `typedef's defines the most convenient type that hol= ds -integers of at least as many bits as specified. For example, `uint8' shou= ld -be the most convenient type that can hold unsigned integers of as many as -8 bits. The `flag' type must be able to hold either a 0 or 1. For most -implementations of C, `flag', `uint8', and `int8' should all be `typedef'ed -to the same as `int'. ---------------------------------------------------------------------------= ----- -*/ -typedef int flag; -typedef int uint8; -typedef int int8; -typedef int uint16; -typedef int int16; -typedef unsigned int uint32; -typedef signed int int32; -#ifdef BITS64 -typedef unsigned long long int uint64; -typedef signed long long int int64; -#endif - -/* ---------------------------------------------------------------------------= ----- -Each of the following `typedef's defines a type that holds integers -of _exactly_ the number of bits specified. For instance, for most -implementation of C, `bits16' and `sbits16' should be `typedef'ed to -`unsigned short int' and `signed short int' (or `short int'), respectively. ---------------------------------------------------------------------------= ----- -*/ -typedef unsigned char bits8; -typedef signed char sbits8; -typedef unsigned short int bits16; -typedef signed short int sbits16; -typedef unsigned int bits32; -typedef signed int sbits32; -#ifdef BITS64 -typedef unsigned long long int bits64; -typedef signed long long int sbits64; -#endif - -#ifdef BITS64 -/* ---------------------------------------------------------------------------= ----- -The `LIT64' macro takes as its argument a textual integer literal and -if necessary ``marks'' the literal as having a 64-bit integer type. -For example, the GNU C Compiler (`gcc') requires that 64-bit literals be -appended with the letters `LL' standing for `long long', which is `gcc's -name for the 64-bit integer type. Some compilers may allow `LIT64' to be -defined as the identity macro: `#define LIT64( a ) a'. ---------------------------------------------------------------------------= ----- -*/ -#define LIT64( a ) a##ULL -#endif - -/* ---------------------------------------------------------------------------= ----- -The macro `INLINE' can be used before functions that should be inlined. If -a compiler does not support explicit inlining, this macro should be defined -to be `static'. ---------------------------------------------------------------------------= ----- -*/ -#define INLINE static inline - -/* ---------------------------------------------------------------------------= ----- -The ARM FPA is odd in that it stores doubles high-order word first, no mat= ter -what the endianness of the CPU. VFP is sane. ---------------------------------------------------------------------------= ----- -*/ -#if defined(SOFTFLOAT_FOR_GCC) -#if defined(__VFP_FP__) || defined(__ARMEB__) -#define FLOAT64_DEMANGLE(a) (a) -#define FLOAT64_MANGLE(a) (a) -#else -#define FLOAT64_DEMANGLE(a) (((a) << 32) | ((a) >> 32)) -#define FLOAT64_MANGLE(a) FLOAT64_DEMANGLE(a) -#endif -#endif diff --git a/ArmPkg/Library/ArmSoftFloatLib/bits32/softfloat-macros b/ArmPk= g/Library/ArmSoftFloatLib/bits32/softfloat-macros deleted file mode 100644 index 8e1f2d8b9abe..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/bits32/softfloat-macros +++ /dev/null @@ -1,648 +0,0 @@ - -/* -=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D - -This C source fragment is part of the SoftFloat IEC/IEEE Floating-point -Arithmetic Package, Release 2a. - -Written by John R. Hauser. This work was made possible in part by the -International Computer Science Institute, located at Suite 600, 1947 Center -Street, Berkeley, California 94704. Funding was partially provided by the -National Science Foundation under grant MIP-9311980. The original version -of this code was written as part of a project to build a fixed-point vector -processor in collaboration with the University of California at Berkeley, -overseen by Profs. Nelson Morgan and John Wawrzynek. More information -is available through the Web page `http://HTTP.CS.Berkeley.EDU/~jhauser/ -arithmetic/SoftFloat.html'. - -THIS SOFTWARE IS DISTRIBUTED AS IS, FOR FREE. Although reasonable effort -has been made to avoid it, THIS SOFTWARE MAY CONTAIN FAULTS THAT WILL AT -TIMES RESULT IN INCORRECT BEHAVIOR. USE OF THIS SOFTWARE IS RESTRICTED TO -PERSONS AND ORGANIZATIONS WHO CAN AND WILL TAKE FULL RESPONSIBILITY FOR ANY -AND ALL LOSSES, COSTS, OR OTHER PROBLEMS ARISING FROM ITS USE. - -Derivative works are acceptable, even for commercial purposes, so long as -(1) they include prominent notice that the work is derivative, and (2) they -include prominent notice akin to these four paragraphs for those parts of -this code that are retained. - -=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D -*/ - -/* ---------------------------------------------------------------------------= ----- -Shifts `a' right by the number of bits given in `count'. If any nonzero -bits are shifted off, they are ``jammed'' into the least significant bit of -the result by setting the least significant bit to 1. The value of `count' -can be arbitrarily large; in particular, if `count' is greater than 32, the -result will be either 0 or 1, depending on whether `a' is zero or nonzero. -The result is stored in the location pointed to by `zPtr'. ---------------------------------------------------------------------------= ----- -*/ -INLINE void shift32RightJamming( bits32 a, int16 count, bits32 *zPtr ) -{ - bits32 z; - - if ( count =3D=3D 0 ) { - z =3D a; - } - else if ( count < 32 ) { - z =3D ( a>>count ) | ( ( a<<( ( - count ) & 31 ) ) !=3D 0 ); - } - else { - z =3D ( a !=3D 0 ); - } - *zPtr =3D z; - -} - -/* ---------------------------------------------------------------------------= ----- -Shifts the 64-bit value formed by concatenating `a0' and `a1' right by the -number of bits given in `count'. Any bits shifted off are lost. The value -of `count' can be arbitrarily large; in particular, if `count' is greater -than 64, the result will be 0. The result is broken into two 32-bit pieces -which are stored at the locations pointed to by `z0Ptr' and `z1Ptr'. ---------------------------------------------------------------------------= ----- -*/ -INLINE void - shift64Right( - bits32 a0, bits32 a1, int16 count, bits32 *z0Ptr, bits32 *z1Ptr ) -{ - bits32 z0, z1; - int8 negCount =3D ( - count ) & 31; - - if ( count =3D=3D 0 ) { - z1 =3D a1; - z0 =3D a0; - } - else if ( count < 32 ) { - z1 =3D ( a0<>count ); - z0 =3D a0>>count; - } - else { - z1 =3D ( count < 64 ) ? ( a0>>( count & 31 ) ) : 0; - z0 =3D 0; - } - *z1Ptr =3D z1; - *z0Ptr =3D z0; - -} - -/* ---------------------------------------------------------------------------= ----- -Shifts the 64-bit value formed by concatenating `a0' and `a1' right by the -number of bits given in `count'. If any nonzero bits are shifted off, they -are ``jammed'' into the least significant bit of the result by setting the -least significant bit to 1. The value of `count' can be arbitrarily large; -in particular, if `count' is greater than 64, the result will be either 0 -or 1, depending on whether the concatenation of `a0' and `a1' is zero or -nonzero. The result is broken into two 32-bit pieces which are stored at -the locations pointed to by `z0Ptr' and `z1Ptr'. ---------------------------------------------------------------------------= ----- -*/ -INLINE void - shift64RightJamming( - bits32 a0, bits32 a1, int16 count, bits32 *z0Ptr, bits32 *z1Ptr ) -{ - bits32 z0, z1; - int8 negCount =3D ( - count ) & 31; - - if ( count =3D=3D 0 ) { - z1 =3D a1; - z0 =3D a0; - } - else if ( count < 32 ) { - z1 =3D ( a0<>count ) | ( ( a1<>count; - } - else { - if ( count =3D=3D 32 ) { - z1 =3D a0 | ( a1 !=3D 0 ); - } - else if ( count < 64 ) { - z1 =3D ( a0>>( count & 31 ) ) | ( ( ( a0<>count ); - z0 =3D a0>>count; - } - else { - if ( count =3D=3D 32 ) { - z2 =3D a1; - z1 =3D a0; - } - else { - a2 |=3D a1; - if ( count < 64 ) { - z2 =3D a0<>( count & 31 ); - } - else { - z2 =3D ( count =3D=3D 64 ) ? a0 : ( a0 !=3D 0 ); - z1 =3D 0; - } - } - z0 =3D 0; - } - z2 |=3D ( a2 !=3D 0 ); - } - *z2Ptr =3D z2; - *z1Ptr =3D z1; - *z0Ptr =3D z0; - -} - -/* ---------------------------------------------------------------------------= ----- -Shifts the 64-bit value formed by concatenating `a0' and `a1' left by the -number of bits given in `count'. Any bits shifted off are lost. The value -of `count' must be less than 32. The result is broken into two 32-bit -pieces which are stored at the locations pointed to by `z0Ptr' and `z1Ptr'. ---------------------------------------------------------------------------= ----- -*/ -INLINE void - shortShift64Left( - bits32 a0, bits32 a1, int16 count, bits32 *z0Ptr, bits32 *z1Ptr ) -{ - - *z1Ptr =3D a1<>( ( - count ) & 31= ) ); - -} - -/* ---------------------------------------------------------------------------= ----- -Shifts the 96-bit value formed by concatenating `a0', `a1', and `a2' left -by the number of bits given in `count'. Any bits shifted off are lost. -The value of `count' must be less than 32. The result is broken into three -32-bit pieces which are stored at the locations pointed to by `z0Ptr', -`z1Ptr', and `z2Ptr'. ---------------------------------------------------------------------------= ----- -*/ -INLINE void - shortShift96Left( - bits32 a0, - bits32 a1, - bits32 a2, - int16 count, - bits32 *z0Ptr, - bits32 *z1Ptr, - bits32 *z2Ptr - ) -{ - bits32 z0, z1, z2; - int8 negCount; - - z2 =3D a2<>negCount; - z0 |=3D a1>>negCount; - } - *z2Ptr =3D z2; - *z1Ptr =3D z1; - *z0Ptr =3D z0; - -} - -/* ---------------------------------------------------------------------------= ----- -Adds the 64-bit value formed by concatenating `a0' and `a1' to the 64-bit -value formed by concatenating `b0' and `b1'. Addition is modulo 2^64, so -any carry out is lost. The result is broken into two 32-bit pieces which -are stored at the locations pointed to by `z0Ptr' and `z1Ptr'. ---------------------------------------------------------------------------= ----- -*/ -INLINE void - add64( - bits32 a0, bits32 a1, bits32 b0, bits32 b1, bits32 *z0Ptr, bits32 *z1= Ptr ) -{ - bits32 z1; - - z1 =3D a1 + b1; - *z1Ptr =3D z1; - *z0Ptr =3D a0 + b0 + ( z1 < a1 ); - -} - -/* ---------------------------------------------------------------------------= ----- -Adds the 96-bit value formed by concatenating `a0', `a1', and `a2' to the -96-bit value formed by concatenating `b0', `b1', and `b2'. Addition is -modulo 2^96, so any carry out is lost. The result is broken into three -32-bit pieces which are stored at the locations pointed to by `z0Ptr', -`z1Ptr', and `z2Ptr'. ---------------------------------------------------------------------------= ----- -*/ -INLINE void - add96( - bits32 a0, - bits32 a1, - bits32 a2, - bits32 b0, - bits32 b1, - bits32 b2, - bits32 *z0Ptr, - bits32 *z1Ptr, - bits32 *z2Ptr - ) -{ - bits32 z0, z1, z2; - int8 carry0, carry1; - - z2 =3D a2 + b2; - carry1 =3D ( z2 < a2 ); - z1 =3D a1 + b1; - carry0 =3D ( z1 < a1 ); - z0 =3D a0 + b0; - z1 +=3D carry1; - z0 +=3D ( z1 < (bits32)carry1 ); - z0 +=3D carry0; - *z2Ptr =3D z2; - *z1Ptr =3D z1; - *z0Ptr =3D z0; - -} - -/* ---------------------------------------------------------------------------= ----- -Subtracts the 64-bit value formed by concatenating `b0' and `b1' from the -64-bit value formed by concatenating `a0' and `a1'. Subtraction is modulo -2^64, so any borrow out (carry out) is lost. The result is broken into two -32-bit pieces which are stored at the locations pointed to by `z0Ptr' and -`z1Ptr'. ---------------------------------------------------------------------------= ----- -*/ -INLINE void - sub64( - bits32 a0, bits32 a1, bits32 b0, bits32 b1, bits32 *z0Ptr, bits32 *z1= Ptr ) -{ - - *z1Ptr =3D a1 - b1; - *z0Ptr =3D a0 - b0 - ( a1 < b1 ); - -} - -/* ---------------------------------------------------------------------------= ----- -Subtracts the 96-bit value formed by concatenating `b0', `b1', and `b2' fr= om -the 96-bit value formed by concatenating `a0', `a1', and `a2'. Subtraction -is modulo 2^96, so any borrow out (carry out) is lost. The result is brok= en -into three 32-bit pieces which are stored at the locations pointed to by -`z0Ptr', `z1Ptr', and `z2Ptr'. ---------------------------------------------------------------------------= ----- -*/ -INLINE void - sub96( - bits32 a0, - bits32 a1, - bits32 a2, - bits32 b0, - bits32 b1, - bits32 b2, - bits32 *z0Ptr, - bits32 *z1Ptr, - bits32 *z2Ptr - ) -{ - bits32 z0, z1, z2; - int8 borrow0, borrow1; - - z2 =3D a2 - b2; - borrow1 =3D ( a2 < b2 ); - z1 =3D a1 - b1; - borrow0 =3D ( a1 < b1 ); - z0 =3D a0 - b0; - z0 -=3D ( z1 < (bits32)borrow1 ); - z1 -=3D borrow1; - z0 -=3D borrow0; - *z2Ptr =3D z2; - *z1Ptr =3D z1; - *z0Ptr =3D z0; - -} - -/* ---------------------------------------------------------------------------= ----- -Multiplies `a' by `b' to obtain a 64-bit product. The product is broken -into two 32-bit pieces which are stored at the locations pointed to by -`z0Ptr' and `z1Ptr'. ---------------------------------------------------------------------------= ----- -*/ -INLINE void mul32To64( bits32 a, bits32 b, bits32 *z0Ptr, bits32 *z1Ptr ) -{ - bits16 aHigh, aLow, bHigh, bLow; - bits32 z0, zMiddleA, zMiddleB, z1; - - aLow =3D a; - aHigh =3D a>>16; - bLow =3D b; - bHigh =3D b>>16; - z1 =3D ( (bits32) aLow ) * bLow; - zMiddleA =3D ( (bits32) aLow ) * bHigh; - zMiddleB =3D ( (bits32) aHigh ) * bLow; - z0 =3D ( (bits32) aHigh ) * bHigh; - zMiddleA +=3D zMiddleB; - z0 +=3D ( ( (bits32) ( zMiddleA < zMiddleB ) )<<16 ) + ( zMiddleA>>16 = ); - zMiddleA <<=3D 16; - z1 +=3D zMiddleA; - z0 +=3D ( z1 < zMiddleA ); - *z1Ptr =3D z1; - *z0Ptr =3D z0; - -} - -/* ---------------------------------------------------------------------------= ----- -Multiplies the 64-bit value formed by concatenating `a0' and `a1' by `b' -to obtain a 96-bit product. The product is broken into three 32-bit pieces -which are stored at the locations pointed to by `z0Ptr', `z1Ptr', and -`z2Ptr'. ---------------------------------------------------------------------------= ----- -*/ -INLINE void - mul64By32To96( - bits32 a0, - bits32 a1, - bits32 b, - bits32 *z0Ptr, - bits32 *z1Ptr, - bits32 *z2Ptr - ) -{ - bits32 z0, z1, z2, more1; - - mul32To64( a1, b, &z1, &z2 ); - mul32To64( a0, b, &z0, &more1 ); - add64( z0, more1, 0, z1, &z0, &z1 ); - *z2Ptr =3D z2; - *z1Ptr =3D z1; - *z0Ptr =3D z0; - -} - -/* ---------------------------------------------------------------------------= ----- -Multiplies the 64-bit value formed by concatenating `a0' and `a1' to the -64-bit value formed by concatenating `b0' and `b1' to obtain a 128-bit -product. The product is broken into four 32-bit pieces which are stored at -the locations pointed to by `z0Ptr', `z1Ptr', `z2Ptr', and `z3Ptr'. ---------------------------------------------------------------------------= ----- -*/ -INLINE void - mul64To128( - bits32 a0, - bits32 a1, - bits32 b0, - bits32 b1, - bits32 *z0Ptr, - bits32 *z1Ptr, - bits32 *z2Ptr, - bits32 *z3Ptr - ) -{ - bits32 z0, z1, z2, z3; - bits32 more1, more2; - - mul32To64( a1, b1, &z2, &z3 ); - mul32To64( a1, b0, &z1, &more2 ); - add64( z1, more2, 0, z2, &z1, &z2 ); - mul32To64( a0, b0, &z0, &more1 ); - add64( z0, more1, 0, z1, &z0, &z1 ); - mul32To64( a0, b1, &more1, &more2 ); - add64( more1, more2, 0, z2, &more1, &z2 ); - add64( z0, z1, 0, more1, &z0, &z1 ); - *z3Ptr =3D z3; - *z2Ptr =3D z2; - *z1Ptr =3D z1; - *z0Ptr =3D z0; - -} - -/* ---------------------------------------------------------------------------= ----- -Returns an approximation to the 32-bit integer quotient obtained by dividi= ng -`b' into the 64-bit value formed by concatenating `a0' and `a1'. The -divisor `b' must be at least 2^31. If q is the exact quotient truncated -toward zero, the approximation returned lies between q and q + 2 inclusive. -If the exact quotient q is larger than 32 bits, the maximum positive 32-bit -unsigned integer is returned. ---------------------------------------------------------------------------= ----- -*/ -static bits32 estimateDiv64To32( bits32 a0, bits32 a1, bits32 b ) -{ - bits32 b0, b1; - bits32 rem0, rem1, term0, term1; - bits32 z; - - if ( b <=3D a0 ) return 0xFFFFFFFF; - b0 =3D b>>16; - z =3D ( b0<<16 <=3D a0 ) ? 0xFFFF0000 : ( a0 / b0 )<<16; - mul32To64( b, z, &term0, &term1 ); - sub64( a0, a1, term0, term1, &rem0, &rem1 ); - while ( ( (sbits32) rem0 ) < 0 ) { - z -=3D 0x10000; - b1 =3D b<<16; - add64( rem0, rem1, b0, b1, &rem0, &rem1 ); - } - rem0 =3D ( rem0<<16 ) | ( rem1>>16 ); - z |=3D ( b0<<16 <=3D rem0 ) ? 0xFFFF : rem0 / b0; - return z; - -} - -#ifndef SOFTFLOAT_FOR_GCC -/* ---------------------------------------------------------------------------= ----- -Returns an approximation to the square root of the 32-bit significand given -by `a'. Considered as an integer, `a' must be at least 2^31. If bit 0 of -`aExp' (the least significant bit) is 1, the integer returned approximates -2^31*sqrt(`a'/2^31), where `a' is considered an integer. If bit 0 of `aEx= p' -is 0, the integer returned approximates 2^31*sqrt(`a'/2^30). In either -case, the approximation returned lies strictly within +/-2 of the exact -value. ---------------------------------------------------------------------------= ----- -*/ -static bits32 estimateSqrt32( int16 aExp, bits32 a ) -{ - static const bits16 sqrtOddAdjustments[] =3D { - 0x0004, 0x0022, 0x005D, 0x00B1, 0x011D, 0x019F, 0x0236, 0x02E0, - 0x039C, 0x0468, 0x0545, 0x0631, 0x072B, 0x0832, 0x0946, 0x0A67 - }; - static const bits16 sqrtEvenAdjustments[] =3D { - 0x0A2D, 0x08AF, 0x075A, 0x0629, 0x051A, 0x0429, 0x0356, 0x029E, - 0x0200, 0x0179, 0x0109, 0x00AF, 0x0068, 0x0034, 0x0012, 0x0002 - }; - int8 index; - bits32 z; - - index =3D ( a>>27 ) & 15; - if ( aExp & 1 ) { - z =3D 0x4000 + ( a>>17 ) - sqrtOddAdjustments[ index ]; - z =3D ( ( a / z )<<14 ) + ( z<<15 ); - a >>=3D 1; - } - else { - z =3D 0x8000 + ( a>>17 ) - sqrtEvenAdjustments[ index ]; - z =3D a / z + z; - z =3D ( 0x20000 <=3D z ) ? 0xFFFF8000 : ( z<<15 ); - if ( z <=3D a ) return (bits32) ( ( (sbits32) a )>>1 ); - } - return ( ( estimateDiv64To32( a, 0, z ) )>>1 ) + ( z>>1 ); - -} -#endif - -/* ---------------------------------------------------------------------------= ----- -Returns the number of leading 0 bits before the most-significant 1 bit of -`a'. If `a' is zero, 32 is returned. ---------------------------------------------------------------------------= ----- -*/ -static int8 countLeadingZeros32( bits32 a ) -{ - static const int8 countLeadingZerosHigh[] =3D { - 8, 7, 6, 6, 5, 5, 5, 5, 4, 4, 4, 4, 4, 4, 4, 4, - 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 - }; - int8 shiftCount; - - shiftCount =3D 0; - if ( a < 0x10000 ) { - shiftCount +=3D 16; - a <<=3D 16; - } - if ( a < 0x1000000 ) { - shiftCount +=3D 8; - a <<=3D 8; - } - shiftCount +=3D countLeadingZerosHigh[ a>>24 ]; - return shiftCount; - -} - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the 64-bit value formed by concatenating `a0' and `a1' is -equal to the 64-bit value formed by concatenating `b0' and `b1'. Otherwis= e, -returns 0. ---------------------------------------------------------------------------= ----- -*/ -INLINE flag eq64( bits32 a0, bits32 a1, bits32 b0, bits32 b1 ) -{ - - return ( a0 =3D=3D b0 ) && ( a1 =3D=3D b1 ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the 64-bit value formed by concatenating `a0' and `a1' is less -than or equal to the 64-bit value formed by concatenating `b0' and `b1'. -Otherwise, returns 0. ---------------------------------------------------------------------------= ----- -*/ -INLINE flag le64( bits32 a0, bits32 a1, bits32 b0, bits32 b1 ) -{ - - return ( a0 < b0 ) || ( ( a0 =3D=3D b0 ) && ( a1 <=3D b1 ) ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the 64-bit value formed by concatenating `a0' and `a1' is less -than the 64-bit value formed by concatenating `b0' and `b1'. Otherwise, -returns 0. ---------------------------------------------------------------------------= ----- -*/ -INLINE flag lt64( bits32 a0, bits32 a1, bits32 b0, bits32 b1 ) -{ - - return ( a0 < b0 ) || ( ( a0 =3D=3D b0 ) && ( a1 < b1 ) ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the 64-bit value formed by concatenating `a0' and `a1' is not -equal to the 64-bit value formed by concatenating `b0' and `b1'. Otherwis= e, -returns 0. ---------------------------------------------------------------------------= ----- -*/ -INLINE flag ne64( bits32 a0, bits32 a1, bits32 b0, bits32 b1 ) -{ - - return ( a0 !=3D b0 ) || ( a1 !=3D b1 ); - -} - diff --git a/ArmPkg/Library/ArmSoftFloatLib/bits32/softfloat.c b/ArmPkg/Lib= rary/ArmSoftFloatLib/bits32/softfloat.c deleted file mode 100644 index 759b8a0077e1..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/bits32/softfloat.c +++ /dev/null @@ -1,2354 +0,0 @@ -/* $NetBSD: softfloat.c,v 1.3 2013/01/10 08:16:11 matt Exp $ */ - -/* - * This version hacked for use with gcc -msoft-float by bjh21. - * (Mostly a case of #ifdefing out things GCC doesn't need or provides - * itself). - */ - -/* - * Things you may want to define: - * - * SOFTFLOAT_FOR_GCC - build only those functions necessary for GCC (with - * -msoft-float) to work. Include "softfloat-for-gcc.h" to get them - * properly renamed. - */ - -/* - * This differs from the standard bits32/softfloat.c in that float64 - * is defined to be a 64-bit integer rather than a structure. The - * structure is float64s, with translation between the two going via - * float64u. - */ - -/* -=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D - -This C source file is part of the SoftFloat IEC/IEEE Floating-Point -Arithmetic Package, Release 2a. - -Written by John R. Hauser. This work was made possible in part by the -International Computer Science Institute, located at Suite 600, 1947 Center -Street, Berkeley, California 94704. Funding was partially provided by the -National Science Foundation under grant MIP-9311980. The original version -of this code was written as part of a project to build a fixed-point vector -processor in collaboration with the University of California at Berkeley, -overseen by Profs. Nelson Morgan and John Wawrzynek. More information -is available through the Web page `http://HTTP.CS.Berkeley.EDU/~jhauser/ -arithmetic/SoftFloat.html'. - -THIS SOFTWARE IS DISTRIBUTED AS IS, FOR FREE. Although reasonable effort -has been made to avoid it, THIS SOFTWARE MAY CONTAIN FAULTS THAT WILL AT -TIMES RESULT IN INCORRECT BEHAVIOR. USE OF THIS SOFTWARE IS RESTRICTED TO -PERSONS AND ORGANIZATIONS WHO CAN AND WILL TAKE FULL RESPONSIBILITY FOR ANY -AND ALL LOSSES, COSTS, OR OTHER PROBLEMS ARISING FROM ITS USE. - -Derivative works are acceptable, even for commercial purposes, so long as -(1) they include prominent notice that the work is derivative, and (2) they -include prominent notice akin to these four paragraphs for those parts of -this code that are retained. - -=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D -*/ - -#if defined(LIBC_SCCS) && !defined(lint) -__RCSID("$NetBSD: softfloat.c,v 1.3 2013/01/10 08:16:11 matt Exp $"); -#endif /* LIBC_SCCS and not lint */ - -#ifdef SOFTFLOAT_FOR_GCC -#include "softfloat-for-gcc.h" -#endif - -#include "milieu.h" -#include "softfloat.h" - -/* - * Conversions between floats as stored in memory and floats as - * SoftFloat uses them - */ -#ifndef FLOAT64_DEMANGLE -#define FLOAT64_DEMANGLE(a) (a) -#endif -#ifndef FLOAT64_MANGLE -#define FLOAT64_MANGLE(a) (a) -#endif - -/* ---------------------------------------------------------------------------= ----- -Floating-point rounding mode and exception flags. ---------------------------------------------------------------------------= ----- -*/ -#ifndef set_float_rounding_mode -fp_rnd float_rounding_mode =3D float_round_nearest_even; -fp_except float_exception_flags =3D 0; -#endif -#ifndef set_float_exception_inexact_flag -#define set_float_exception_inexact_flag() \ - ((void)(float_exception_flags |=3D float_flag_inexact)) -#endif - -/* ---------------------------------------------------------------------------= ----- -Primitive arithmetic functions, including multi-word arithmetic, and -division and square root approximations. (Can be specialized to target if -desired.) ---------------------------------------------------------------------------= ----- -*/ -#include "softfloat-macros" - -/* ---------------------------------------------------------------------------= ----- -Functions and definitions to determine: (1) whether tininess for underflow -is detected before or after rounding by default, (2) what (if anything) -happens when exceptions are raised, (3) how signaling NaNs are distinguish= ed -from quiet NaNs, (4) the default generated quiet NaNs, and (4) how NaNs -are propagated from function inputs to output. These details are target- -specific. ---------------------------------------------------------------------------= ----- -*/ -#include "softfloat-specialize" - -/* ---------------------------------------------------------------------------= ----- -Returns the fraction bits of the single-precision floating-point value `a'. ---------------------------------------------------------------------------= ----- -*/ -INLINE bits32 extractFloat32Frac( float32 a ) -{ - - return a & 0x007FFFFF; - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the exponent bits of the single-precision floating-point value `a'. ---------------------------------------------------------------------------= ----- -*/ -INLINE int16 extractFloat32Exp( float32 a ) -{ - - return ( a>>23 ) & 0xFF; - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the sign bit of the single-precision floating-point value `a'. ---------------------------------------------------------------------------= ----- -*/ -INLINE flag extractFloat32Sign( float32 a ) -{ - - return a>>31; - -} - -/* ---------------------------------------------------------------------------= ----- -Normalizes the subnormal single-precision floating-point value represented -by the denormalized significand `aSig'. The normalized exponent and -significand are stored at the locations pointed to by `zExpPtr' and -`zSigPtr', respectively. ---------------------------------------------------------------------------= ----- -*/ -static void - normalizeFloat32Subnormal( bits32 aSig, int16 *zExpPtr, bits32 *zSigPtr ) -{ - int8 shiftCount; - - shiftCount =3D countLeadingZeros32( aSig ) - 8; - *zSigPtr =3D aSig<>7; - zSig &=3D ~ ( ( ( roundBits ^ 0x40 ) =3D=3D 0 ) & roundNearestEven ); - if ( zSig =3D=3D 0 ) zExp =3D 0; - return packFloat32( zSign, zExp, zSig ); - -} - -/* ---------------------------------------------------------------------------= ----- -Takes an abstract floating-point value having sign `zSign', exponent `zExp= ', -and significand `zSig', and returns the proper single-precision floating- -point value corresponding to the abstract input. This routine is just like -`roundAndPackFloat32' except that `zSig' does not have to be normalized. -Bit 31 of `zSig' must be zero, and `zExp' must be 1 less than the ``true'' -floating-point exponent. ---------------------------------------------------------------------------= ----- -*/ -static float32 - normalizeRoundAndPackFloat32( flag zSign, int16 zExp, bits32 zSig ) -{ - int8 shiftCount; - - shiftCount =3D countLeadingZeros32( zSig ) - 1; - return roundAndPackFloat32( zSign, zExp - shiftCount, zSig<> 32) & 0x000FFFFF); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the exponent bits of the double-precision floating-point value `a'. ---------------------------------------------------------------------------= ----- -*/ -INLINE int16 extractFloat64Exp( float64 a ) -{ - - return (int16)((FLOAT64_DEMANGLE(a) >> 52) & 0x7FF); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the sign bit of the double-precision floating-point value `a'. ---------------------------------------------------------------------------= ----- -*/ -INLINE flag extractFloat64Sign( float64 a ) -{ - - return (flag)(FLOAT64_DEMANGLE(a) >> 63); - -} - -/* ---------------------------------------------------------------------------= ----- -Normalizes the subnormal double-precision floating-point value represented -by the denormalized significand formed by the concatenation of `aSig0' and -`aSig1'. The normalized exponent is stored at the location pointed to by -`zExpPtr'. The most significant 21 bits of the normalized significand are -stored at the location pointed to by `zSig0Ptr', and the least significant -32 bits of the normalized significand are stored at the location pointed to -by `zSig1Ptr'. ---------------------------------------------------------------------------= ----- -*/ -static void - normalizeFloat64Subnormal( - bits32 aSig0, - bits32 aSig1, - int16 *zExpPtr, - bits32 *zSig0Ptr, - bits32 *zSig1Ptr - ) -{ - int8 shiftCount; - - if ( aSig0 =3D=3D 0 ) { - shiftCount =3D countLeadingZeros32( aSig1 ) - 11; - if ( shiftCount < 0 ) { - *zSig0Ptr =3D aSig1>>( - shiftCount ); - *zSig1Ptr =3D aSig1<<( shiftCount & 31 ); - } - else { - *zSig0Ptr =3D aSig1<>( - shiftCount ); - } - if ( aSigExtra ) set_float_exception_inexact_flag(); - roundingMode =3D float_rounding_mode; - if ( roundingMode =3D=3D float_round_nearest_even ) { - if ( (sbits32) aSigExtra < 0 ) { - ++z; - if ( (bits32) ( aSigExtra<<1 ) =3D=3D 0 ) z &=3D ~1; - } - if ( aSign ) z =3D - z; - } - else { - aSigExtra =3D ( aSigExtra !=3D 0 ); - if ( aSign ) { - z +=3D ( roundingMode =3D=3D float_round_down ) & aSigExtr= a; - z =3D - z; - } - else { - z +=3D ( roundingMode =3D=3D float_round_up ) & aSigExtra; - } - } - } - return z; - -} -#endif - -/* ---------------------------------------------------------------------------= ----- -Returns the result of converting the single-precision floating-point value -`a' to the 32-bit two's complement integer format. The conversion is -performed according to the IEC/IEEE Standard for Binary Floating-Point -Arithmetic, except that the conversion is always rounded toward zero. -If `a' is a NaN, the largest positive integer is returned. Otherwise, if -the conversion overflows, the largest integer with the same sign as `a' is -returned. ---------------------------------------------------------------------------= ----- -*/ -int32 float32_to_int32_round_to_zero( float32 a ) -{ - flag aSign; - int16 aExp, shiftCount; - bits32 aSig; - int32 z; - - aSig =3D extractFloat32Frac( a ); - aExp =3D extractFloat32Exp( a ); - aSign =3D extractFloat32Sign( a ); - shiftCount =3D aExp - 0x9E; - if ( 0 <=3D shiftCount ) { - if ( a !=3D 0xCF000000 ) { - float_raise( float_flag_invalid ); - if ( ! aSign || ( ( aExp =3D=3D 0xFF ) && aSig ) ) return 0x7F= FFFFFF; - } - return (sbits32) 0x80000000; - } - else if ( aExp <=3D 0x7E ) { - if ( aExp | aSig ) set_float_exception_inexact_flag(); - return 0; - } - aSig =3D ( aSig | 0x00800000 )<<8; - z =3D aSig>>( - shiftCount ); - if ( (bits32) ( aSig<<( shiftCount & 31 ) ) ) { - set_float_exception_inexact_flag(); - } - if ( aSign ) z =3D - z; - return z; - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of converting the single-precision floating-point value -`a' to the double-precision floating-point format. The conversion is -performed according to the IEC/IEEE Standard for Binary Floating-Point -Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -float64 float32_to_float64( float32 a ) -{ - flag aSign; - int16 aExp; - bits32 aSig, zSig0, zSig1; - - aSig =3D extractFloat32Frac( a ); - aExp =3D extractFloat32Exp( a ); - aSign =3D extractFloat32Sign( a ); - if ( aExp =3D=3D 0xFF ) { - if ( aSig ) return commonNaNToFloat64( float32ToCommonNaN( a ) ); - return packFloat64( aSign, 0x7FF, 0, 0 ); - } - if ( aExp =3D=3D 0 ) { - if ( aSig =3D=3D 0 ) return packFloat64( aSign, 0, 0, 0 ); - normalizeFloat32Subnormal( aSig, &aExp, &aSig ); - --aExp; - } - shift64Right( aSig, 0, 3, &zSig0, &zSig1 ); - return packFloat64( aSign, aExp + 0x380, zSig0, zSig1 ); - -} - -#ifndef SOFTFLOAT_FOR_GCC -/* ---------------------------------------------------------------------------= ----- -Rounds the single-precision floating-point value `a' to an integer, -and returns the result as a single-precision floating-point value. The -operation is performed according to the IEC/IEEE Standard for Binary -Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -float32 float32_round_to_int( float32 a ) -{ - flag aSign; - int16 aExp; - bits32 lastBitMask, roundBitsMask; - int8 roundingMode; - float32 z; - - aExp =3D extractFloat32Exp( a ); - if ( 0x96 <=3D aExp ) { - if ( ( aExp =3D=3D 0xFF ) && extractFloat32Frac( a ) ) { - return propagateFloat32NaN( a, a ); - } - return a; - } - if ( aExp <=3D 0x7E ) { - if ( (bits32) ( a<<1 ) =3D=3D 0 ) return a; - set_float_exception_inexact_flag(); - aSign =3D extractFloat32Sign( a ); - switch ( float_rounding_mode ) { - case float_round_nearest_even: - if ( ( aExp =3D=3D 0x7E ) && extractFloat32Frac( a ) ) { - return packFloat32( aSign, 0x7F, 0 ); - } - break; - case float_round_to_zero: - break; - case float_round_down: - return aSign ? 0xBF800000 : 0; - case float_round_up: - return aSign ? 0x80000000 : 0x3F800000; - } - return packFloat32( aSign, 0, 0 ); - } - lastBitMask =3D 1; - lastBitMask <<=3D 0x96 - aExp; - roundBitsMask =3D lastBitMask - 1; - z =3D a; - roundingMode =3D float_rounding_mode; - if ( roundingMode =3D=3D float_round_nearest_even ) { - z +=3D lastBitMask>>1; - if ( ( z & roundBitsMask ) =3D=3D 0 ) z &=3D ~ lastBitMask; - } - else if ( roundingMode !=3D float_round_to_zero ) { - if ( extractFloat32Sign( z ) ^ ( roundingMode =3D=3D float_round_u= p ) ) { - z +=3D roundBitsMask; - } - } - z &=3D ~ roundBitsMask; - if ( z !=3D a ) set_float_exception_inexact_flag(); - return z; - -} -#endif - -/* ---------------------------------------------------------------------------= ----- -Returns the result of adding the absolute values of the single-precision -floating-point values `a' and `b'. If `zSign' is 1, the sum is negated -before being returned. `zSign' is ignored if the result is a NaN. -The addition is performed according to the IEC/IEEE Standard for Binary -Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -static float32 addFloat32Sigs( float32 a, float32 b, flag zSign ) -{ - int16 aExp, bExp, zExp; - bits32 aSig, bSig, zSig; - int16 expDiff; - - aSig =3D extractFloat32Frac( a ); - aExp =3D extractFloat32Exp( a ); - bSig =3D extractFloat32Frac( b ); - bExp =3D extractFloat32Exp( b ); - expDiff =3D aExp - bExp; - aSig <<=3D 6; - bSig <<=3D 6; - if ( 0 < expDiff ) { - if ( aExp =3D=3D 0xFF ) { - if ( aSig ) return propagateFloat32NaN( a, b ); - return a; - } - if ( bExp =3D=3D 0 ) { - --expDiff; - } - else { - bSig |=3D 0x20000000; - } - shift32RightJamming( bSig, expDiff, &bSig ); - zExp =3D aExp; - } - else if ( expDiff < 0 ) { - if ( bExp =3D=3D 0xFF ) { - if ( bSig ) return propagateFloat32NaN( a, b ); - return packFloat32( zSign, 0xFF, 0 ); - } - if ( aExp =3D=3D 0 ) { - ++expDiff; - } - else { - aSig |=3D 0x20000000; - } - shift32RightJamming( aSig, - expDiff, &aSig ); - zExp =3D bExp; - } - else { - if ( aExp =3D=3D 0xFF ) { - if ( aSig | bSig ) return propagateFloat32NaN( a, b ); - return a; - } - if ( aExp =3D=3D 0 ) return packFloat32( zSign, 0, ( aSig + bSig )= >>6 ); - zSig =3D 0x40000000 + aSig + bSig; - zExp =3D aExp; - goto roundAndPack; - } - aSig |=3D 0x20000000; - zSig =3D ( aSig + bSig )<<1; - --zExp; - if ( (sbits32) zSig < 0 ) { - zSig =3D aSig + bSig; - ++zExp; - } - roundAndPack: - return roundAndPackFloat32( zSign, zExp, zSig ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of subtracting the absolute values of the single- -precision floating-point values `a' and `b'. If `zSign' is 1, the -difference is negated before being returned. `zSign' is ignored if the -result is a NaN. The subtraction is performed according to the IEC/IEEE -Standard for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -static float32 subFloat32Sigs( float32 a, float32 b, flag zSign ) -{ - int16 aExp, bExp, zExp; - bits32 aSig, bSig, zSig; - int16 expDiff; - - aSig =3D extractFloat32Frac( a ); - aExp =3D extractFloat32Exp( a ); - bSig =3D extractFloat32Frac( b ); - bExp =3D extractFloat32Exp( b ); - expDiff =3D aExp - bExp; - aSig <<=3D 7; - bSig <<=3D 7; - if ( 0 < expDiff ) goto aExpBigger; - if ( expDiff < 0 ) goto bExpBigger; - if ( aExp =3D=3D 0xFF ) { - if ( aSig | bSig ) return propagateFloat32NaN( a, b ); - float_raise( float_flag_invalid ); - return float32_default_nan; - } - if ( aExp =3D=3D 0 ) { - aExp =3D 1; - bExp =3D 1; - } - if ( bSig < aSig ) goto aBigger; - if ( aSig < bSig ) goto bBigger; - return packFloat32( float_rounding_mode =3D=3D float_round_down, 0, 0 = ); - bExpBigger: - if ( bExp =3D=3D 0xFF ) { - if ( bSig ) return propagateFloat32NaN( a, b ); - return packFloat32( zSign ^ 1, 0xFF, 0 ); - } - if ( aExp =3D=3D 0 ) { - ++expDiff; - } - else { - aSig |=3D 0x40000000; - } - shift32RightJamming( aSig, - expDiff, &aSig ); - bSig |=3D 0x40000000; - bBigger: - zSig =3D bSig - aSig; - zExp =3D bExp; - zSign ^=3D 1; - goto normalizeRoundAndPack; - aExpBigger: - if ( aExp =3D=3D 0xFF ) { - if ( aSig ) return propagateFloat32NaN( a, b ); - return a; - } - if ( bExp =3D=3D 0 ) { - --expDiff; - } - else { - bSig |=3D 0x40000000; - } - shift32RightJamming( bSig, expDiff, &bSig ); - aSig |=3D 0x40000000; - aBigger: - zSig =3D aSig - bSig; - zExp =3D aExp; - normalizeRoundAndPack: - --zExp; - return normalizeRoundAndPackFloat32( zSign, zExp, zSig ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of adding the single-precision floating-point values `a' -and `b'. The operation is performed according to the IEC/IEEE Standard for -Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -float32 float32_add( float32 a, float32 b ) -{ - flag aSign, bSign; - - aSign =3D extractFloat32Sign( a ); - bSign =3D extractFloat32Sign( b ); - if ( aSign =3D=3D bSign ) { - return addFloat32Sigs( a, b, aSign ); - } - else { - return subFloat32Sigs( a, b, aSign ); - } - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of subtracting the single-precision floating-point valu= es -`a' and `b'. The operation is performed according to the IEC/IEEE Standard -for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -float32 float32_sub( float32 a, float32 b ) -{ - flag aSign, bSign; - - aSign =3D extractFloat32Sign( a ); - bSign =3D extractFloat32Sign( b ); - if ( aSign =3D=3D bSign ) { - return subFloat32Sigs( a, b, aSign ); - } - else { - return addFloat32Sigs( a, b, aSign ); - } - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of multiplying the single-precision floating-point valu= es -`a' and `b'. The operation is performed according to the IEC/IEEE Standard -for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -float32 float32_mul( float32 a, float32 b ) -{ - flag aSign, bSign, zSign; - int16 aExp, bExp, zExp; - bits32 aSig, bSig, zSig0, zSig1; - - aSig =3D extractFloat32Frac( a ); - aExp =3D extractFloat32Exp( a ); - aSign =3D extractFloat32Sign( a ); - bSig =3D extractFloat32Frac( b ); - bExp =3D extractFloat32Exp( b ); - bSign =3D extractFloat32Sign( b ); - zSign =3D aSign ^ bSign; - if ( aExp =3D=3D 0xFF ) { - if ( aSig || ( ( bExp =3D=3D 0xFF ) && bSig ) ) { - return propagateFloat32NaN( a, b ); - } - if ( ( bExp | bSig ) =3D=3D 0 ) { - float_raise( float_flag_invalid ); - return float32_default_nan; - } - return packFloat32( zSign, 0xFF, 0 ); - } - if ( bExp =3D=3D 0xFF ) { - if ( bSig ) return propagateFloat32NaN( a, b ); - if ( ( aExp | aSig ) =3D=3D 0 ) { - float_raise( float_flag_invalid ); - return float32_default_nan; - } - return packFloat32( zSign, 0xFF, 0 ); - } - if ( aExp =3D=3D 0 ) { - if ( aSig =3D=3D 0 ) return packFloat32( zSign, 0, 0 ); - normalizeFloat32Subnormal( aSig, &aExp, &aSig ); - } - if ( bExp =3D=3D 0 ) { - if ( bSig =3D=3D 0 ) return packFloat32( zSign, 0, 0 ); - normalizeFloat32Subnormal( bSig, &bExp, &bSig ); - } - zExp =3D aExp + bExp - 0x7F; - aSig =3D ( aSig | 0x00800000 )<<7; - bSig =3D ( bSig | 0x00800000 )<<8; - mul32To64( aSig, bSig, &zSig0, &zSig1 ); - zSig0 |=3D ( zSig1 !=3D 0 ); - if ( 0 <=3D (sbits32) ( zSig0<<1 ) ) { - zSig0 <<=3D 1; - --zExp; - } - return roundAndPackFloat32( zSign, zExp, zSig0 ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of dividing the single-precision floating-point value `= a' -by the corresponding value `b'. The operation is performed according to t= he -IEC/IEEE Standard for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -float32 float32_div( float32 a, float32 b ) -{ - flag aSign, bSign, zSign; - int16 aExp, bExp, zExp; - bits32 aSig, bSig, zSig, rem0, rem1, term0, term1; - - aSig =3D extractFloat32Frac( a ); - aExp =3D extractFloat32Exp( a ); - aSign =3D extractFloat32Sign( a ); - bSig =3D extractFloat32Frac( b ); - bExp =3D extractFloat32Exp( b ); - bSign =3D extractFloat32Sign( b ); - zSign =3D aSign ^ bSign; - if ( aExp =3D=3D 0xFF ) { - if ( aSig ) return propagateFloat32NaN( a, b ); - if ( bExp =3D=3D 0xFF ) { - if ( bSig ) return propagateFloat32NaN( a, b ); - float_raise( float_flag_invalid ); - return float32_default_nan; - } - return packFloat32( zSign, 0xFF, 0 ); - } - if ( bExp =3D=3D 0xFF ) { - if ( bSig ) return propagateFloat32NaN( a, b ); - return packFloat32( zSign, 0, 0 ); - } - if ( bExp =3D=3D 0 ) { - if ( bSig =3D=3D 0 ) { - if ( ( aExp | aSig ) =3D=3D 0 ) { - float_raise( float_flag_invalid ); - return float32_default_nan; - } - float_raise( float_flag_divbyzero ); - return packFloat32( zSign, 0xFF, 0 ); - } - normalizeFloat32Subnormal( bSig, &bExp, &bSig ); - } - if ( aExp =3D=3D 0 ) { - if ( aSig =3D=3D 0 ) return packFloat32( zSign, 0, 0 ); - normalizeFloat32Subnormal( aSig, &aExp, &aSig ); - } - zExp =3D aExp - bExp + 0x7D; - aSig =3D ( aSig | 0x00800000 )<<7; - bSig =3D ( bSig | 0x00800000 )<<8; - if ( bSig <=3D ( aSig + aSig ) ) { - aSig >>=3D 1; - ++zExp; - } - zSig =3D estimateDiv64To32( aSig, 0, bSig ); - if ( ( zSig & 0x3F ) <=3D 2 ) { - mul32To64( bSig, zSig, &term0, &term1 ); - sub64( aSig, 0, term0, term1, &rem0, &rem1 ); - while ( (sbits32) rem0 < 0 ) { - --zSig; - add64( rem0, rem1, 0, bSig, &rem0, &rem1 ); - } - zSig |=3D ( rem1 !=3D 0 ); - } - return roundAndPackFloat32( zSign, zExp, zSig ); - -} - -#ifndef SOFTFLOAT_FOR_GCC -/* ---------------------------------------------------------------------------= ----- -Returns the remainder of the single-precision floating-point value `a' -with respect to the corresponding value `b'. The operation is performed -according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -float32 float32_rem( float32 a, float32 b ) -{ - flag aSign, bSign, zSign; - int16 aExp, bExp, expDiff; - bits32 aSig, bSig, q, allZero, alternateASig; - sbits32 sigMean; - - aSig =3D extractFloat32Frac( a ); - aExp =3D extractFloat32Exp( a ); - aSign =3D extractFloat32Sign( a ); - bSig =3D extractFloat32Frac( b ); - bExp =3D extractFloat32Exp( b ); - bSign =3D extractFloat32Sign( b ); - if ( aExp =3D=3D 0xFF ) { - if ( aSig || ( ( bExp =3D=3D 0xFF ) && bSig ) ) { - return propagateFloat32NaN( a, b ); - } - float_raise( float_flag_invalid ); - return float32_default_nan; - } - if ( bExp =3D=3D 0xFF ) { - if ( bSig ) return propagateFloat32NaN( a, b ); - return a; - } - if ( bExp =3D=3D 0 ) { - if ( bSig =3D=3D 0 ) { - float_raise( float_flag_invalid ); - return float32_default_nan; - } - normalizeFloat32Subnormal( bSig, &bExp, &bSig ); - } - if ( aExp =3D=3D 0 ) { - if ( aSig =3D=3D 0 ) return a; - normalizeFloat32Subnormal( aSig, &aExp, &aSig ); - } - expDiff =3D aExp - bExp; - aSig =3D ( aSig | 0x00800000 )<<8; - bSig =3D ( bSig | 0x00800000 )<<8; - if ( expDiff < 0 ) { - if ( expDiff < -1 ) return a; - aSig >>=3D 1; - } - q =3D ( bSig <=3D aSig ); - if ( q ) aSig -=3D bSig; - expDiff -=3D 32; - while ( 0 < expDiff ) { - q =3D estimateDiv64To32( aSig, 0, bSig ); - q =3D ( 2 < q ) ? q - 2 : 0; - aSig =3D - ( ( bSig>>2 ) * q ); - expDiff -=3D 30; - } - expDiff +=3D 32; - if ( 0 < expDiff ) { - q =3D estimateDiv64To32( aSig, 0, bSig ); - q =3D ( 2 < q ) ? q - 2 : 0; - q >>=3D 32 - expDiff; - bSig >>=3D 2; - aSig =3D ( ( aSig>>1 )<<( expDiff - 1 ) ) - bSig * q; - } - else { - aSig >>=3D 2; - bSig >>=3D 2; - } - do { - alternateASig =3D aSig; - ++q; - aSig -=3D bSig; - } while ( 0 <=3D (sbits32) aSig ); - sigMean =3D aSig + alternateASig; - if ( ( sigMean < 0 ) || ( ( sigMean =3D=3D 0 ) && ( q & 1 ) ) ) { - aSig =3D alternateASig; - } - zSign =3D ( (sbits32) aSig < 0 ); - if ( zSign ) aSig =3D - aSig; - return normalizeRoundAndPackFloat32( aSign ^ zSign, bExp, aSig ); - -} -#endif - -#ifndef SOFTFLOAT_FOR_GCC -/* ---------------------------------------------------------------------------= ----- -Returns the square root of the single-precision floating-point value `a'. -The operation is performed according to the IEC/IEEE Standard for Binary -Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -float32 float32_sqrt( float32 a ) -{ - flag aSign; - int16 aExp, zExp; - bits32 aSig, zSig, rem0, rem1, term0, term1; - - aSig =3D extractFloat32Frac( a ); - aExp =3D extractFloat32Exp( a ); - aSign =3D extractFloat32Sign( a ); - if ( aExp =3D=3D 0xFF ) { - if ( aSig ) return propagateFloat32NaN( a, 0 ); - if ( ! aSign ) return a; - float_raise( float_flag_invalid ); - return float32_default_nan; - } - if ( aSign ) { - if ( ( aExp | aSig ) =3D=3D 0 ) return a; - float_raise( float_flag_invalid ); - return float32_default_nan; - } - if ( aExp =3D=3D 0 ) { - if ( aSig =3D=3D 0 ) return 0; - normalizeFloat32Subnormal( aSig, &aExp, &aSig ); - } - zExp =3D ( ( aExp - 0x7F )>>1 ) + 0x7E; - aSig =3D ( aSig | 0x00800000 )<<8; - zSig =3D estimateSqrt32( aExp, aSig ) + 2; - if ( ( zSig & 0x7F ) <=3D 5 ) { - if ( zSig < 2 ) { - zSig =3D 0x7FFFFFFF; - goto roundAndPack; - } - else { - aSig >>=3D aExp & 1; - mul32To64( zSig, zSig, &term0, &term1 ); - sub64( aSig, 0, term0, term1, &rem0, &rem1 ); - while ( (sbits32) rem0 < 0 ) { - --zSig; - shortShift64Left( 0, zSig, 1, &term0, &term1 ); - term1 |=3D 1; - add64( rem0, rem1, term0, term1, &rem0, &rem1 ); - } - zSig |=3D ( ( rem0 | rem1 ) !=3D 0 ); - } - } - shift32RightJamming( zSig, 1, &zSig ); - roundAndPack: - return roundAndPackFloat32( 0, zExp, zSig ); - -} -#endif - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the single-precision floating-point value `a' is equal to -the corresponding value `b', and 0 otherwise. The comparison is performed -according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -flag float32_eq( float32 a, float32 b ) -{ - - if ( ( ( extractFloat32Exp( a ) =3D=3D 0xFF ) && extractFloat32Frac= ( a ) ) - || ( ( extractFloat32Exp( b ) =3D=3D 0xFF ) && extractFloat32Frac= ( b ) ) - ) { - if ( float32_is_signaling_nan( a ) || float32_is_signaling_nan( b = ) ) { - float_raise( float_flag_invalid ); - } - return 0; - } - return ( a =3D=3D b ) || ( (bits32) ( ( a | b )<<1 ) =3D=3D 0 ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the single-precision floating-point value `a' is less than -or equal to the corresponding value `b', and 0 otherwise. The comparison -is performed according to the IEC/IEEE Standard for Binary Floating-Point -Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -flag float32_le( float32 a, float32 b ) -{ - flag aSign, bSign; - - if ( ( ( extractFloat32Exp( a ) =3D=3D 0xFF ) && extractFloat32Frac= ( a ) ) - || ( ( extractFloat32Exp( b ) =3D=3D 0xFF ) && extractFloat32Frac= ( b ) ) - ) { - float_raise( float_flag_invalid ); - return 0; - } - aSign =3D extractFloat32Sign( a ); - bSign =3D extractFloat32Sign( b ); - if ( aSign !=3D bSign ) return aSign || ( (bits32) ( ( a | b )<<1 ) = =3D=3D 0 ); - return ( a =3D=3D b ) || ( aSign ^ ( a < b ) ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the single-precision floating-point value `a' is less than -the corresponding value `b', and 0 otherwise. The comparison is performed -according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -flag float32_lt( float32 a, float32 b ) -{ - flag aSign, bSign; - - if ( ( ( extractFloat32Exp( a ) =3D=3D 0xFF ) && extractFloat32Frac= ( a ) ) - || ( ( extractFloat32Exp( b ) =3D=3D 0xFF ) && extractFloat32Frac= ( b ) ) - ) { - float_raise( float_flag_invalid ); - return 0; - } - aSign =3D extractFloat32Sign( a ); - bSign =3D extractFloat32Sign( b ); - if ( aSign !=3D bSign ) return aSign && ( (bits32) ( ( a | b )<<1 ) != =3D 0 ); - return ( a !=3D b ) && ( aSign ^ ( a < b ) ); - -} - -#ifndef SOFTFLOAT_FOR_GCC /* Not needed */ -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the single-precision floating-point value `a' is equal to -the corresponding value `b', and 0 otherwise. The invalid exception is -raised if either operand is a NaN. Otherwise, the comparison is performed -according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -flag float32_eq_signaling( float32 a, float32 b ) -{ - - if ( ( ( extractFloat32Exp( a ) =3D=3D 0xFF ) && extractFloat32Frac= ( a ) ) - || ( ( extractFloat32Exp( b ) =3D=3D 0xFF ) && extractFloat32Frac= ( b ) ) - ) { - float_raise( float_flag_invalid ); - return 0; - } - return ( a =3D=3D b ) || ( (bits32) ( ( a | b )<<1 ) =3D=3D 0 ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the single-precision floating-point value `a' is less than or -equal to the corresponding value `b', and 0 otherwise. Quiet NaNs do not -cause an exception. Otherwise, the comparison is performed according to t= he -IEC/IEEE Standard for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -flag float32_le_quiet( float32 a, float32 b ) -{ - flag aSign, bSign; - int16 aExp, bExp; - - if ( ( ( extractFloat32Exp( a ) =3D=3D 0xFF ) && extractFloat32Frac= ( a ) ) - || ( ( extractFloat32Exp( b ) =3D=3D 0xFF ) && extractFloat32Frac= ( b ) ) - ) { - if ( float32_is_signaling_nan( a ) || float32_is_signaling_nan( b = ) ) { - float_raise( float_flag_invalid ); - } - return 0; - } - aSign =3D extractFloat32Sign( a ); - bSign =3D extractFloat32Sign( b ); - if ( aSign !=3D bSign ) return aSign || ( (bits32) ( ( a | b )<<1 ) = =3D=3D 0 ); - return ( a =3D=3D b ) || ( aSign ^ ( a < b ) ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the single-precision floating-point value `a' is less than -the corresponding value `b', and 0 otherwise. Quiet NaNs do not cause an -exception. Otherwise, the comparison is performed according to the IEC/IE= EE -Standard for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -flag float32_lt_quiet( float32 a, float32 b ) -{ - flag aSign, bSign; - - if ( ( ( extractFloat32Exp( a ) =3D=3D 0xFF ) && extractFloat32Frac= ( a ) ) - || ( ( extractFloat32Exp( b ) =3D=3D 0xFF ) && extractFloat32Frac= ( b ) ) - ) { - if ( float32_is_signaling_nan( a ) || float32_is_signaling_nan( b = ) ) { - float_raise( float_flag_invalid ); - } - return 0; - } - aSign =3D extractFloat32Sign( a ); - bSign =3D extractFloat32Sign( b ); - if ( aSign !=3D bSign ) return aSign && ( (bits32) ( ( a | b )<<1 ) != =3D 0 ); - return ( a !=3D b ) && ( aSign ^ ( a < b ) ); - -} -#endif /* !SOFTFLOAT_FOR_GCC */ - -#ifndef SOFTFLOAT_FOR_GCC /* Not needed */ -/* ---------------------------------------------------------------------------= ----- -Returns the result of converting the double-precision floating-point value -`a' to the 32-bit two's complement integer format. The conversion is -performed according to the IEC/IEEE Standard for Binary Floating-Point -Arithmetic---which means in particular that the conversion is rounded -according to the current rounding mode. If `a' is a NaN, the largest -positive integer is returned. Otherwise, if the conversion overflows, the -largest integer with the same sign as `a' is returned. ---------------------------------------------------------------------------= ----- -*/ -int32 float64_to_int32( float64 a ) -{ - flag aSign; - int16 aExp, shiftCount; - bits32 aSig0, aSig1, absZ, aSigExtra; - int32 z; - int8 roundingMode; - - aSig1 =3D extractFloat64Frac1( a ); - aSig0 =3D extractFloat64Frac0( a ); - aExp =3D extractFloat64Exp( a ); - aSign =3D extractFloat64Sign( a ); - shiftCount =3D aExp - 0x413; - if ( 0 <=3D shiftCount ) { - if ( 0x41E < aExp ) { - if ( ( aExp =3D=3D 0x7FF ) && ( aSig0 | aSig1 ) ) aSign =3D 0; - goto invalid; - } - shortShift64Left( - aSig0 | 0x00100000, aSig1, shiftCount, &absZ, &aSigExtra ); - if ( 0x80000000 < absZ ) goto invalid; - } - else { - aSig1 =3D ( aSig1 !=3D 0 ); - if ( aExp < 0x3FE ) { - aSigExtra =3D aExp | aSig0 | aSig1; - absZ =3D 0; - } - else { - aSig0 |=3D 0x00100000; - aSigExtra =3D ( aSig0<<( shiftCount & 31 ) ) | aSig1; - absZ =3D aSig0>>( - shiftCount ); - } - } - roundingMode =3D float_rounding_mode; - if ( roundingMode =3D=3D float_round_nearest_even ) { - if ( (sbits32) aSigExtra < 0 ) { - ++absZ; - if ( (bits32) ( aSigExtra<<1 ) =3D=3D 0 ) absZ &=3D ~1; - } - z =3D aSign ? - absZ : absZ; - } - else { - aSigExtra =3D ( aSigExtra !=3D 0 ); - if ( aSign ) { - z =3D - ( absZ - + ( ( roundingMode =3D=3D float_round_down ) & aSigExt= ra ) ); - } - else { - z =3D absZ + ( ( roundingMode =3D=3D float_round_up ) & aSigEx= tra ); - } - } - if ( ( aSign ^ ( z < 0 ) ) && z ) { - invalid: - float_raise( float_flag_invalid ); - return aSign ? (sbits32) 0x80000000 : 0x7FFFFFFF; - } - if ( aSigExtra ) set_float_exception_inexact_flag(); - return z; - -} -#endif /* !SOFTFLOAT_FOR_GCC */ - -/* ---------------------------------------------------------------------------= ----- -Returns the result of converting the double-precision floating-point value -`a' to the 32-bit two's complement integer format. The conversion is -performed according to the IEC/IEEE Standard for Binary Floating-Point -Arithmetic, except that the conversion is always rounded toward zero. -If `a' is a NaN, the largest positive integer is returned. Otherwise, if -the conversion overflows, the largest integer with the same sign as `a' is -returned. ---------------------------------------------------------------------------= ----- -*/ -int32 float64_to_int32_round_to_zero( float64 a ) -{ - flag aSign; - int16 aExp, shiftCount; - bits32 aSig0, aSig1, absZ, aSigExtra; - int32 z; - - aSig1 =3D extractFloat64Frac1( a ); - aSig0 =3D extractFloat64Frac0( a ); - aExp =3D extractFloat64Exp( a ); - aSign =3D extractFloat64Sign( a ); - shiftCount =3D aExp - 0x413; - if ( 0 <=3D shiftCount ) { - if ( 0x41E < aExp ) { - if ( ( aExp =3D=3D 0x7FF ) && ( aSig0 | aSig1 ) ) aSign =3D 0; - goto invalid; - } - shortShift64Left( - aSig0 | 0x00100000, aSig1, shiftCount, &absZ, &aSigExtra ); - } - else { - if ( aExp < 0x3FF ) { - if ( aExp | aSig0 | aSig1 ) { - set_float_exception_inexact_flag(); - } - return 0; - } - aSig0 |=3D 0x00100000; - aSigExtra =3D ( aSig0<<( shiftCount & 31 ) ) | aSig1; - absZ =3D aSig0>>( - shiftCount ); - } - z =3D aSign ? - absZ : absZ; - if ( ( aSign ^ ( z < 0 ) ) && z ) { - invalid: - float_raise( float_flag_invalid ); - return aSign ? (sbits32) 0x80000000 : 0x7FFFFFFF; - } - if ( aSigExtra ) set_float_exception_inexact_flag(); - return z; - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of converting the double-precision floating-point value -`a' to the single-precision floating-point format. The conversion is -performed according to the IEC/IEEE Standard for Binary Floating-Point -Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -float32 float64_to_float32( float64 a ) -{ - flag aSign; - int16 aExp; - bits32 aSig0, aSig1, zSig; - bits32 allZero; - - aSig1 =3D extractFloat64Frac1( a ); - aSig0 =3D extractFloat64Frac0( a ); - aExp =3D extractFloat64Exp( a ); - aSign =3D extractFloat64Sign( a ); - if ( aExp =3D=3D 0x7FF ) { - if ( aSig0 | aSig1 ) { - return commonNaNToFloat32( float64ToCommonNaN( a ) ); - } - return packFloat32( aSign, 0xFF, 0 ); - } - shift64RightJamming( aSig0, aSig1, 22, &allZero, &zSig ); - if ( aExp ) zSig |=3D 0x40000000; - return roundAndPackFloat32( aSign, aExp - 0x381, zSig ); - -} - -#ifndef SOFTFLOAT_FOR_GCC -/* ---------------------------------------------------------------------------= ----- -Rounds the double-precision floating-point value `a' to an integer, -and returns the result as a double-precision floating-point value. The -operation is performed according to the IEC/IEEE Standard for Binary -Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -float64 float64_round_to_int( float64 a ) -{ - flag aSign; - int16 aExp; - bits32 lastBitMask, roundBitsMask; - int8 roundingMode; - float64 z; - - aExp =3D extractFloat64Exp( a ); - if ( 0x413 <=3D aExp ) { - if ( 0x433 <=3D aExp ) { - if ( ( aExp =3D=3D 0x7FF ) - && ( extractFloat64Frac0( a ) | extractFloat64Frac1( a ) = ) ) { - return propagateFloat64NaN( a, a ); - } - return a; - } - lastBitMask =3D 1; - lastBitMask =3D ( lastBitMask<<( 0x432 - aExp ) )<<1; - roundBitsMask =3D lastBitMask - 1; - z =3D a; - roundingMode =3D float_rounding_mode; - if ( roundingMode =3D=3D float_round_nearest_even ) { - if ( lastBitMask ) { - add64( z.high, z.low, 0, lastBitMask>>1, &z.high, &z.low ); - if ( ( z.low & roundBitsMask ) =3D=3D 0 ) z.low &=3D ~ las= tBitMask; - } - else { - if ( (sbits32) z.low < 0 ) { - ++z.high; - if ( (bits32) ( z.low<<1 ) =3D=3D 0 ) z.high &=3D ~1; - } - } - } - else if ( roundingMode !=3D float_round_to_zero ) { - if ( extractFloat64Sign( z ) - ^ ( roundingMode =3D=3D float_round_up ) ) { - add64( z.high, z.low, 0, roundBitsMask, &z.high, &z.low ); - } - } - z.low &=3D ~ roundBitsMask; - } - else { - if ( aExp <=3D 0x3FE ) { - if ( ( ( (bits32) ( a.high<<1 ) ) | a.low ) =3D=3D 0 ) return = a; - set_float_exception_inexact_flag(); - aSign =3D extractFloat64Sign( a ); - switch ( float_rounding_mode ) { - case float_round_nearest_even: - if ( ( aExp =3D=3D 0x3FE ) - && ( extractFloat64Frac0( a ) | extractFloat64Frac1( = a ) ) - ) { - return packFloat64( aSign, 0x3FF, 0, 0 ); - } - break; - case float_round_down: - return - aSign ? packFloat64( 1, 0x3FF, 0, 0 ) - : packFloat64( 0, 0, 0, 0 ); - case float_round_up: - return - aSign ? packFloat64( 1, 0, 0, 0 ) - : packFloat64( 0, 0x3FF, 0, 0 ); - } - return packFloat64( aSign, 0, 0, 0 ); - } - lastBitMask =3D 1; - lastBitMask <<=3D 0x413 - aExp; - roundBitsMask =3D lastBitMask - 1; - z.low =3D 0; - z.high =3D a.high; - roundingMode =3D float_rounding_mode; - if ( roundingMode =3D=3D float_round_nearest_even ) { - z.high +=3D lastBitMask>>1; - if ( ( ( z.high & roundBitsMask ) | a.low ) =3D=3D 0 ) { - z.high &=3D ~ lastBitMask; - } - } - else if ( roundingMode !=3D float_round_to_zero ) { - if ( extractFloat64Sign( z ) - ^ ( roundingMode =3D=3D float_round_up ) ) { - z.high |=3D ( a.low !=3D 0 ); - z.high +=3D roundBitsMask; - } - } - z.high &=3D ~ roundBitsMask; - } - if ( ( z.low !=3D a.low ) || ( z.high !=3D a.high ) ) { - set_float_exception_inexact_flag(); - } - return z; - -} -#endif - -/* ---------------------------------------------------------------------------= ----- -Returns the result of adding the absolute values of the double-precision -floating-point values `a' and `b'. If `zSign' is 1, the sum is negated -before being returned. `zSign' is ignored if the result is a NaN. -The addition is performed according to the IEC/IEEE Standard for Binary -Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -static float64 addFloat64Sigs( float64 a, float64 b, flag zSign ) -{ - int16 aExp, bExp, zExp; - bits32 aSig0, aSig1, bSig0, bSig1, zSig0, zSig1, zSig2; - int16 expDiff; - - aSig1 =3D extractFloat64Frac1( a ); - aSig0 =3D extractFloat64Frac0( a ); - aExp =3D extractFloat64Exp( a ); - bSig1 =3D extractFloat64Frac1( b ); - bSig0 =3D extractFloat64Frac0( b ); - bExp =3D extractFloat64Exp( b ); - expDiff =3D aExp - bExp; - if ( 0 < expDiff ) { - if ( aExp =3D=3D 0x7FF ) { - if ( aSig0 | aSig1 ) return propagateFloat64NaN( a, b ); - return a; - } - if ( bExp =3D=3D 0 ) { - --expDiff; - } - else { - bSig0 |=3D 0x00100000; - } - shift64ExtraRightJamming( - bSig0, bSig1, 0, expDiff, &bSig0, &bSig1, &zSig2 ); - zExp =3D aExp; - } - else if ( expDiff < 0 ) { - if ( bExp =3D=3D 0x7FF ) { - if ( bSig0 | bSig1 ) return propagateFloat64NaN( a, b ); - return packFloat64( zSign, 0x7FF, 0, 0 ); - } - if ( aExp =3D=3D 0 ) { - ++expDiff; - } - else { - aSig0 |=3D 0x00100000; - } - shift64ExtraRightJamming( - aSig0, aSig1, 0, - expDiff, &aSig0, &aSig1, &zSig2 ); - zExp =3D bExp; - } - else { - if ( aExp =3D=3D 0x7FF ) { - if ( aSig0 | aSig1 | bSig0 | bSig1 ) { - return propagateFloat64NaN( a, b ); - } - return a; - } - add64( aSig0, aSig1, bSig0, bSig1, &zSig0, &zSig1 ); - if ( aExp =3D=3D 0 ) return packFloat64( zSign, 0, zSig0, zSig1 ); - zSig2 =3D 0; - zSig0 |=3D 0x00200000; - zExp =3D aExp; - goto shiftRight1; - } - aSig0 |=3D 0x00100000; - add64( aSig0, aSig1, bSig0, bSig1, &zSig0, &zSig1 ); - --zExp; - if ( zSig0 < 0x00200000 ) goto roundAndPack; - ++zExp; - shiftRight1: - shift64ExtraRightJamming( zSig0, zSig1, zSig2, 1, &zSig0, &zSig1, &zSi= g2 ); - roundAndPack: - return roundAndPackFloat64( zSign, zExp, zSig0, zSig1, zSig2 ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of subtracting the absolute values of the double- -precision floating-point values `a' and `b'. If `zSign' is 1, the -difference is negated before being returned. `zSign' is ignored if the -result is a NaN. The subtraction is performed according to the IEC/IEEE -Standard for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -static float64 subFloat64Sigs( float64 a, float64 b, flag zSign ) -{ - int16 aExp, bExp, zExp; - bits32 aSig0, aSig1, bSig0, bSig1, zSig0, zSig1; - int16 expDiff; - - aSig1 =3D extractFloat64Frac1( a ); - aSig0 =3D extractFloat64Frac0( a ); - aExp =3D extractFloat64Exp( a ); - bSig1 =3D extractFloat64Frac1( b ); - bSig0 =3D extractFloat64Frac0( b ); - bExp =3D extractFloat64Exp( b ); - expDiff =3D aExp - bExp; - shortShift64Left( aSig0, aSig1, 10, &aSig0, &aSig1 ); - shortShift64Left( bSig0, bSig1, 10, &bSig0, &bSig1 ); - if ( 0 < expDiff ) goto aExpBigger; - if ( expDiff < 0 ) goto bExpBigger; - if ( aExp =3D=3D 0x7FF ) { - if ( aSig0 | aSig1 | bSig0 | bSig1 ) { - return propagateFloat64NaN( a, b ); - } - float_raise( float_flag_invalid ); - return float64_default_nan; - } - if ( aExp =3D=3D 0 ) { - aExp =3D 1; - bExp =3D 1; - } - if ( bSig0 < aSig0 ) goto aBigger; - if ( aSig0 < bSig0 ) goto bBigger; - if ( bSig1 < aSig1 ) goto aBigger; - if ( aSig1 < bSig1 ) goto bBigger; - return packFloat64( float_rounding_mode =3D=3D float_round_down, 0, 0,= 0 ); - bExpBigger: - if ( bExp =3D=3D 0x7FF ) { - if ( bSig0 | bSig1 ) return propagateFloat64NaN( a, b ); - return packFloat64( zSign ^ 1, 0x7FF, 0, 0 ); - } - if ( aExp =3D=3D 0 ) { - ++expDiff; - } - else { - aSig0 |=3D 0x40000000; - } - shift64RightJamming( aSig0, aSig1, - expDiff, &aSig0, &aSig1 ); - bSig0 |=3D 0x40000000; - bBigger: - sub64( bSig0, bSig1, aSig0, aSig1, &zSig0, &zSig1 ); - zExp =3D bExp; - zSign ^=3D 1; - goto normalizeRoundAndPack; - aExpBigger: - if ( aExp =3D=3D 0x7FF ) { - if ( aSig0 | aSig1 ) return propagateFloat64NaN( a, b ); - return a; - } - if ( bExp =3D=3D 0 ) { - --expDiff; - } - else { - bSig0 |=3D 0x40000000; - } - shift64RightJamming( bSig0, bSig1, expDiff, &bSig0, &bSig1 ); - aSig0 |=3D 0x40000000; - aBigger: - sub64( aSig0, aSig1, bSig0, bSig1, &zSig0, &zSig1 ); - zExp =3D aExp; - normalizeRoundAndPack: - --zExp; - return normalizeRoundAndPackFloat64( zSign, zExp - 10, zSig0, zSig1 ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of adding the double-precision floating-point values `a' -and `b'. The operation is performed according to the IEC/IEEE Standard for -Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -float64 float64_add( float64 a, float64 b ) -{ - flag aSign, bSign; - - aSign =3D extractFloat64Sign( a ); - bSign =3D extractFloat64Sign( b ); - if ( aSign =3D=3D bSign ) { - return addFloat64Sigs( a, b, aSign ); - } - else { - return subFloat64Sigs( a, b, aSign ); - } - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of subtracting the double-precision floating-point valu= es -`a' and `b'. The operation is performed according to the IEC/IEEE Standard -for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -float64 float64_sub( float64 a, float64 b ) -{ - flag aSign, bSign; - - aSign =3D extractFloat64Sign( a ); - bSign =3D extractFloat64Sign( b ); - if ( aSign =3D=3D bSign ) { - return subFloat64Sigs( a, b, aSign ); - } - else { - return addFloat64Sigs( a, b, aSign ); - } - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of multiplying the double-precision floating-point valu= es -`a' and `b'. The operation is performed according to the IEC/IEEE Standard -for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -float64 float64_mul( float64 a, float64 b ) -{ - flag aSign, bSign, zSign; - int16 aExp, bExp, zExp; - bits32 aSig0, aSig1, bSig0, bSig1, zSig0, zSig1, zSig2, zSig3; - - aSig1 =3D extractFloat64Frac1( a ); - aSig0 =3D extractFloat64Frac0( a ); - aExp =3D extractFloat64Exp( a ); - aSign =3D extractFloat64Sign( a ); - bSig1 =3D extractFloat64Frac1( b ); - bSig0 =3D extractFloat64Frac0( b ); - bExp =3D extractFloat64Exp( b ); - bSign =3D extractFloat64Sign( b ); - zSign =3D aSign ^ bSign; - if ( aExp =3D=3D 0x7FF ) { - if ( ( aSig0 | aSig1 ) - || ( ( bExp =3D=3D 0x7FF ) && ( bSig0 | bSig1 ) ) ) { - return propagateFloat64NaN( a, b ); - } - if ( ( bExp | bSig0 | bSig1 ) =3D=3D 0 ) goto invalid; - return packFloat64( zSign, 0x7FF, 0, 0 ); - } - if ( bExp =3D=3D 0x7FF ) { - if ( bSig0 | bSig1 ) return propagateFloat64NaN( a, b ); - if ( ( aExp | aSig0 | aSig1 ) =3D=3D 0 ) { - invalid: - float_raise( float_flag_invalid ); - return float64_default_nan; - } - return packFloat64( zSign, 0x7FF, 0, 0 ); - } - if ( aExp =3D=3D 0 ) { - if ( ( aSig0 | aSig1 ) =3D=3D 0 ) return packFloat64( zSign, 0, 0,= 0 ); - normalizeFloat64Subnormal( aSig0, aSig1, &aExp, &aSig0, &aSig1 ); - } - if ( bExp =3D=3D 0 ) { - if ( ( bSig0 | bSig1 ) =3D=3D 0 ) return packFloat64( zSign, 0, 0,= 0 ); - normalizeFloat64Subnormal( bSig0, bSig1, &bExp, &bSig0, &bSig1 ); - } - zExp =3D aExp + bExp - 0x400; - aSig0 |=3D 0x00100000; - shortShift64Left( bSig0, bSig1, 12, &bSig0, &bSig1 ); - mul64To128( aSig0, aSig1, bSig0, bSig1, &zSig0, &zSig1, &zSig2, &zSig3= ); - add64( zSig0, zSig1, aSig0, aSig1, &zSig0, &zSig1 ); - zSig2 |=3D ( zSig3 !=3D 0 ); - if ( 0x00200000 <=3D zSig0 ) { - shift64ExtraRightJamming( - zSig0, zSig1, zSig2, 1, &zSig0, &zSig1, &zSig2 ); - ++zExp; - } - return roundAndPackFloat64( zSign, zExp, zSig0, zSig1, zSig2 ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of dividing the double-precision floating-point value `= a' -by the corresponding value `b'. The operation is performed according to t= he -IEC/IEEE Standard for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -float64 float64_div( float64 a, float64 b ) -{ - flag aSign, bSign, zSign; - int16 aExp, bExp, zExp; - bits32 aSig0, aSig1, bSig0, bSig1, zSig0, zSig1, zSig2; - bits32 rem0, rem1, rem2, rem3, term0, term1, term2, term3; - - aSig1 =3D extractFloat64Frac1( a ); - aSig0 =3D extractFloat64Frac0( a ); - aExp =3D extractFloat64Exp( a ); - aSign =3D extractFloat64Sign( a ); - bSig1 =3D extractFloat64Frac1( b ); - bSig0 =3D extractFloat64Frac0( b ); - bExp =3D extractFloat64Exp( b ); - bSign =3D extractFloat64Sign( b ); - zSign =3D aSign ^ bSign; - if ( aExp =3D=3D 0x7FF ) { - if ( aSig0 | aSig1 ) return propagateFloat64NaN( a, b ); - if ( bExp =3D=3D 0x7FF ) { - if ( bSig0 | bSig1 ) return propagateFloat64NaN( a, b ); - goto invalid; - } - return packFloat64( zSign, 0x7FF, 0, 0 ); - } - if ( bExp =3D=3D 0x7FF ) { - if ( bSig0 | bSig1 ) return propagateFloat64NaN( a, b ); - return packFloat64( zSign, 0, 0, 0 ); - } - if ( bExp =3D=3D 0 ) { - if ( ( bSig0 | bSig1 ) =3D=3D 0 ) { - if ( ( aExp | aSig0 | aSig1 ) =3D=3D 0 ) { - invalid: - float_raise( float_flag_invalid ); - return float64_default_nan; - } - float_raise( float_flag_divbyzero ); - return packFloat64( zSign, 0x7FF, 0, 0 ); - } - normalizeFloat64Subnormal( bSig0, bSig1, &bExp, &bSig0, &bSig1 ); - } - if ( aExp =3D=3D 0 ) { - if ( ( aSig0 | aSig1 ) =3D=3D 0 ) return packFloat64( zSign, 0, 0,= 0 ); - normalizeFloat64Subnormal( aSig0, aSig1, &aExp, &aSig0, &aSig1 ); - } - zExp =3D aExp - bExp + 0x3FD; - shortShift64Left( aSig0 | 0x00100000, aSig1, 11, &aSig0, &aSig1 ); - shortShift64Left( bSig0 | 0x00100000, bSig1, 11, &bSig0, &bSig1 ); - if ( le64( bSig0, bSig1, aSig0, aSig1 ) ) { - shift64Right( aSig0, aSig1, 1, &aSig0, &aSig1 ); - ++zExp; - } - zSig0 =3D estimateDiv64To32( aSig0, aSig1, bSig0 ); - mul64By32To96( bSig0, bSig1, zSig0, &term0, &term1, &term2 ); - sub96( aSig0, aSig1, 0, term0, term1, term2, &rem0, &rem1, &rem2 ); - while ( (sbits32) rem0 < 0 ) { - --zSig0; - add96( rem0, rem1, rem2, 0, bSig0, bSig1, &rem0, &rem1, &rem2 ); - } - zSig1 =3D estimateDiv64To32( rem1, rem2, bSig0 ); - if ( ( zSig1 & 0x3FF ) <=3D 4 ) { - mul64By32To96( bSig0, bSig1, zSig1, &term1, &term2, &term3 ); - sub96( rem1, rem2, 0, term1, term2, term3, &rem1, &rem2, &rem3 ); - while ( (sbits32) rem1 < 0 ) { - --zSig1; - add96( rem1, rem2, rem3, 0, bSig0, bSig1, &rem1, &rem2, &rem3 = ); - } - zSig1 |=3D ( ( rem1 | rem2 | rem3 ) !=3D 0 ); - } - shift64ExtraRightJamming( zSig0, zSig1, 0, 11, &zSig0, &zSig1, &zSig2 = ); - return roundAndPackFloat64( zSign, zExp, zSig0, zSig1, zSig2 ); - -} - -#ifndef SOFTFLOAT_FOR_GCC -/* ---------------------------------------------------------------------------= ----- -Returns the remainder of the double-precision floating-point value `a' -with respect to the corresponding value `b'. The operation is performed -according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -float64 float64_rem( float64 a, float64 b ) -{ - flag aSign, bSign, zSign; - int16 aExp, bExp, expDiff; - bits32 aSig0, aSig1, bSig0, bSig1, q, term0, term1, term2; - bits32 allZero, alternateASig0, alternateASig1, sigMean1; - sbits32 sigMean0; - float64 z; - - aSig1 =3D extractFloat64Frac1( a ); - aSig0 =3D extractFloat64Frac0( a ); - aExp =3D extractFloat64Exp( a ); - aSign =3D extractFloat64Sign( a ); - bSig1 =3D extractFloat64Frac1( b ); - bSig0 =3D extractFloat64Frac0( b ); - bExp =3D extractFloat64Exp( b ); - bSign =3D extractFloat64Sign( b ); - if ( aExp =3D=3D 0x7FF ) { - if ( ( aSig0 | aSig1 ) - || ( ( bExp =3D=3D 0x7FF ) && ( bSig0 | bSig1 ) ) ) { - return propagateFloat64NaN( a, b ); - } - goto invalid; - } - if ( bExp =3D=3D 0x7FF ) { - if ( bSig0 | bSig1 ) return propagateFloat64NaN( a, b ); - return a; - } - if ( bExp =3D=3D 0 ) { - if ( ( bSig0 | bSig1 ) =3D=3D 0 ) { - invalid: - float_raise( float_flag_invalid ); - return float64_default_nan; - } - normalizeFloat64Subnormal( bSig0, bSig1, &bExp, &bSig0, &bSig1 ); - } - if ( aExp =3D=3D 0 ) { - if ( ( aSig0 | aSig1 ) =3D=3D 0 ) return a; - normalizeFloat64Subnormal( aSig0, aSig1, &aExp, &aSig0, &aSig1 ); - } - expDiff =3D aExp - bExp; - if ( expDiff < -1 ) return a; - shortShift64Left( - aSig0 | 0x00100000, aSig1, 11 - ( expDiff < 0 ), &aSig0, &aSig1 ); - shortShift64Left( bSig0 | 0x00100000, bSig1, 11, &bSig0, &bSig1 ); - q =3D le64( bSig0, bSig1, aSig0, aSig1 ); - if ( q ) sub64( aSig0, aSig1, bSig0, bSig1, &aSig0, &aSig1 ); - expDiff -=3D 32; - while ( 0 < expDiff ) { - q =3D estimateDiv64To32( aSig0, aSig1, bSig0 ); - q =3D ( 4 < q ) ? q - 4 : 0; - mul64By32To96( bSig0, bSig1, q, &term0, &term1, &term2 ); - shortShift96Left( term0, term1, term2, 29, &term1, &term2, &allZer= o ); - shortShift64Left( aSig0, aSig1, 29, &aSig0, &allZero ); - sub64( aSig0, 0, term1, term2, &aSig0, &aSig1 ); - expDiff -=3D 29; - } - if ( -32 < expDiff ) { - q =3D estimateDiv64To32( aSig0, aSig1, bSig0 ); - q =3D ( 4 < q ) ? q - 4 : 0; - q >>=3D - expDiff; - shift64Right( bSig0, bSig1, 8, &bSig0, &bSig1 ); - expDiff +=3D 24; - if ( expDiff < 0 ) { - shift64Right( aSig0, aSig1, - expDiff, &aSig0, &aSig1 ); - } - else { - shortShift64Left( aSig0, aSig1, expDiff, &aSig0, &aSig1 ); - } - mul64By32To96( bSig0, bSig1, q, &term0, &term1, &term2 ); - sub64( aSig0, aSig1, term1, term2, &aSig0, &aSig1 ); - } - else { - shift64Right( aSig0, aSig1, 8, &aSig0, &aSig1 ); - shift64Right( bSig0, bSig1, 8, &bSig0, &bSig1 ); - } - do { - alternateASig0 =3D aSig0; - alternateASig1 =3D aSig1; - ++q; - sub64( aSig0, aSig1, bSig0, bSig1, &aSig0, &aSig1 ); - } while ( 0 <=3D (sbits32) aSig0 ); - add64( - aSig0, aSig1, alternateASig0, alternateASig1, &sigMean0, &sigMean1= ); - if ( ( sigMean0 < 0 ) - || ( ( ( sigMean0 | sigMean1 ) =3D=3D 0 ) && ( q & 1 ) ) ) { - aSig0 =3D alternateASig0; - aSig1 =3D alternateASig1; - } - zSign =3D ( (sbits32) aSig0 < 0 ); - if ( zSign ) sub64( 0, 0, aSig0, aSig1, &aSig0, &aSig1 ); - return - normalizeRoundAndPackFloat64( aSign ^ zSign, bExp - 4, aSig0, aSig= 1 ); - -} -#endif - -#ifndef SOFTFLOAT_FOR_GCC -/* ---------------------------------------------------------------------------= ----- -Returns the square root of the double-precision floating-point value `a'. -The operation is performed according to the IEC/IEEE Standard for Binary -Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -float64 float64_sqrt( float64 a ) -{ - flag aSign; - int16 aExp, zExp; - bits32 aSig0, aSig1, zSig0, zSig1, zSig2, doubleZSig0; - bits32 rem0, rem1, rem2, rem3, term0, term1, term2, term3; - float64 z; - - aSig1 =3D extractFloat64Frac1( a ); - aSig0 =3D extractFloat64Frac0( a ); - aExp =3D extractFloat64Exp( a ); - aSign =3D extractFloat64Sign( a ); - if ( aExp =3D=3D 0x7FF ) { - if ( aSig0 | aSig1 ) return propagateFloat64NaN( a, a ); - if ( ! aSign ) return a; - goto invalid; - } - if ( aSign ) { - if ( ( aExp | aSig0 | aSig1 ) =3D=3D 0 ) return a; - invalid: - float_raise( float_flag_invalid ); - return float64_default_nan; - } - if ( aExp =3D=3D 0 ) { - if ( ( aSig0 | aSig1 ) =3D=3D 0 ) return packFloat64( 0, 0, 0, 0 ); - normalizeFloat64Subnormal( aSig0, aSig1, &aExp, &aSig0, &aSig1 ); - } - zExp =3D ( ( aExp - 0x3FF )>>1 ) + 0x3FE; - aSig0 |=3D 0x00100000; - shortShift64Left( aSig0, aSig1, 11, &term0, &term1 ); - zSig0 =3D ( estimateSqrt32( aExp, term0 )>>1 ) + 1; - if ( zSig0 =3D=3D 0 ) zSig0 =3D 0x7FFFFFFF; - doubleZSig0 =3D zSig0 + zSig0; - shortShift64Left( aSig0, aSig1, 9 - ( aExp & 1 ), &aSig0, &aSig1 ); - mul32To64( zSig0, zSig0, &term0, &term1 ); - sub64( aSig0, aSig1, term0, term1, &rem0, &rem1 ); - while ( (sbits32) rem0 < 0 ) { - --zSig0; - doubleZSig0 -=3D 2; - add64( rem0, rem1, 0, doubleZSig0 | 1, &rem0, &rem1 ); - } - zSig1 =3D estimateDiv64To32( rem1, 0, doubleZSig0 ); - if ( ( zSig1 & 0x1FF ) <=3D 5 ) { - if ( zSig1 =3D=3D 0 ) zSig1 =3D 1; - mul32To64( doubleZSig0, zSig1, &term1, &term2 ); - sub64( rem1, 0, term1, term2, &rem1, &rem2 ); - mul32To64( zSig1, zSig1, &term2, &term3 ); - sub96( rem1, rem2, 0, 0, term2, term3, &rem1, &rem2, &rem3 ); - while ( (sbits32) rem1 < 0 ) { - --zSig1; - shortShift64Left( 0, zSig1, 1, &term2, &term3 ); - term3 |=3D 1; - term2 |=3D doubleZSig0; - add96( rem1, rem2, rem3, 0, term2, term3, &rem1, &rem2, &rem3 = ); - } - zSig1 |=3D ( ( rem1 | rem2 | rem3 ) !=3D 0 ); - } - shift64ExtraRightJamming( zSig0, zSig1, 0, 10, &zSig0, &zSig1, &zSig2 = ); - return roundAndPackFloat64( 0, zExp, zSig0, zSig1, zSig2 ); - -} -#endif - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the double-precision floating-point value `a' is equal to -the corresponding value `b', and 0 otherwise. The comparison is performed -according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -flag float64_eq( float64 a, float64 b ) -{ - - if ( ( ( extractFloat64Exp( a ) =3D=3D 0x7FF ) - && ( extractFloat64Frac0( a ) | extractFloat64Frac1( a ) ) ) - || ( ( extractFloat64Exp( b ) =3D=3D 0x7FF ) - && ( extractFloat64Frac0( b ) | extractFloat64Frac1( b ) ) ) - ) { - if ( float64_is_signaling_nan( a ) || float64_is_signaling_nan( b = ) ) { - float_raise( float_flag_invalid ); - } - return 0; - } - return ( a =3D=3D b ) || - ( (bits64) ( ( FLOAT64_DEMANGLE(a) | FLOAT64_DEMANGLE(b) )<<1 ) = =3D=3D 0 ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the double-precision floating-point value `a' is less than -or equal to the corresponding value `b', and 0 otherwise. The comparison -is performed according to the IEC/IEEE Standard for Binary Floating-Point -Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -flag float64_le( float64 a, float64 b ) -{ - flag aSign, bSign; - - if ( ( ( extractFloat64Exp( a ) =3D=3D 0x7FF ) - && ( extractFloat64Frac0( a ) | extractFloat64Frac1( a ) ) ) - || ( ( extractFloat64Exp( b ) =3D=3D 0x7FF ) - && ( extractFloat64Frac0( b ) | extractFloat64Frac1( b ) ) ) - ) { - float_raise( float_flag_invalid ); - return 0; - } - aSign =3D extractFloat64Sign( a ); - bSign =3D extractFloat64Sign( b ); - if ( aSign !=3D bSign ) - return aSign || - ( (bits64) ( ( FLOAT64_DEMANGLE(a) | FLOAT64_DEMANGLE(b) )<<1 = ) =3D=3D - 0 ); - return ( a =3D=3D b ) || - ( aSign ^ ( FLOAT64_DEMANGLE(a) < FLOAT64_DEMANGLE(b) ) ); -} - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the double-precision floating-point value `a' is less than -the corresponding value `b', and 0 otherwise. The comparison is performed -according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -flag float64_lt( float64 a, float64 b ) -{ - flag aSign, bSign; - - if ( ( ( extractFloat64Exp( a ) =3D=3D 0x7FF ) - && ( extractFloat64Frac0( a ) | extractFloat64Frac1( a ) ) ) - || ( ( extractFloat64Exp( b ) =3D=3D 0x7FF ) - && ( extractFloat64Frac0( b ) | extractFloat64Frac1( b ) ) ) - ) { - float_raise( float_flag_invalid ); - return 0; - } - aSign =3D extractFloat64Sign( a ); - bSign =3D extractFloat64Sign( b ); - if ( aSign !=3D bSign ) - return aSign && - ( (bits64) ( ( FLOAT64_DEMANGLE(a) | FLOAT64_DEMANGLE(b) )<<1 = ) !=3D - 0 ); - return ( a !=3D b ) && - ( aSign ^ ( FLOAT64_DEMANGLE(a) < FLOAT64_DEMANGLE(b) ) ); - -} - -#ifndef SOFTFLOAT_FOR_GCC -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the double-precision floating-point value `a' is equal to -the corresponding value `b', and 0 otherwise. The invalid exception is -raised if either operand is a NaN. Otherwise, the comparison is performed -according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -flag float64_eq_signaling( float64 a, float64 b ) -{ - - if ( ( ( extractFloat64Exp( a ) =3D=3D 0x7FF ) - && ( extractFloat64Frac0( a ) | extractFloat64Frac1( a ) ) ) - || ( ( extractFloat64Exp( b ) =3D=3D 0x7FF ) - && ( extractFloat64Frac0( b ) | extractFloat64Frac1( b ) ) ) - ) { - float_raise( float_flag_invalid ); - return 0; - } - return ( a =3D=3D b ) || ( (bits64) ( ( a | b )<<1 ) =3D=3D 0 ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the double-precision floating-point value `a' is less than or -equal to the corresponding value `b', and 0 otherwise. Quiet NaNs do not -cause an exception. Otherwise, the comparison is performed according to t= he -IEC/IEEE Standard for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -flag float64_le_quiet( float64 a, float64 b ) -{ - flag aSign, bSign; - - if ( ( ( extractFloat64Exp( a ) =3D=3D 0x7FF ) - && ( extractFloat64Frac0( a ) | extractFloat64Frac1( a ) ) ) - || ( ( extractFloat64Exp( b ) =3D=3D 0x7FF ) - && ( extractFloat64Frac0( b ) | extractFloat64Frac1( b ) ) ) - ) { - if ( float64_is_signaling_nan( a ) || float64_is_signaling_nan( b = ) ) { - float_raise( float_flag_invalid ); - } - return 0; - } - aSign =3D extractFloat64Sign( a ); - bSign =3D extractFloat64Sign( b ); - if ( aSign !=3D bSign ) return aSign || ( (bits64) ( ( a | b )<<1 ) = =3D=3D 0 ); - return ( a =3D=3D b ) || ( aSign ^ ( a < b ) ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the double-precision floating-point value `a' is less than -the corresponding value `b', and 0 otherwise. Quiet NaNs do not cause an -exception. Otherwise, the comparison is performed according to the IEC/IE= EE -Standard for Binary Floating-Point Arithmetic. ---------------------------------------------------------------------------= ----- -*/ -flag float64_lt_quiet( float64 a, float64 b ) -{ - flag aSign, bSign; - - if ( ( ( extractFloat64Exp( a ) =3D=3D 0x7FF ) - && ( extractFloat64Frac0( a ) | extractFloat64Frac1( a ) ) ) - || ( ( extractFloat64Exp( b ) =3D=3D 0x7FF ) - && ( extractFloat64Frac0( b ) | extractFloat64Frac1( b ) ) ) - ) { - if ( float64_is_signaling_nan( a ) || float64_is_signaling_nan( b = ) ) { - float_raise( float_flag_invalid ); - } - return 0; - } - aSign =3D extractFloat64Sign( a ); - bSign =3D extractFloat64Sign( b ); - if ( aSign !=3D bSign ) return aSign && ( (bits64) ( ( a | b )<<1 ) != =3D 0 ); - return ( a !=3D b ) && ( aSign ^ ( a < b ) ); - -} - -#endif diff --git a/ArmPkg/Library/ArmSoftFloatLib/milieu.h b/ArmPkg/Library/ArmSo= ftFloatLib/milieu.h deleted file mode 100644 index 8f4ac00076ae..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/milieu.h +++ /dev/null @@ -1,38 +0,0 @@ -/* $NetBSD: milieu.h,v 1.1 2000/12/29 20:13:54 bjh21 Exp $ */ - -/* -=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D - -This C header file is part of the SoftFloat IEC/IEEE Floating-point -Arithmetic Package, Release 2a. - -Written by John R. Hauser. This work was made possible in part by the -International Computer Science Institute, located at Suite 600, 1947 Center -Street, Berkeley, California 94704. Funding was partially provided by the -National Science Foundation under grant MIP-9311980. The original version -of this code was written as part of a project to build a fixed-point vector -processor in collaboration with the University of California at Berkeley, -overseen by Profs. Nelson Morgan and John Wawrzynek. More information -is available through the Web page `http://HTTP.CS.Berkeley.EDU/~jhauser/ -arithmetic/SoftFloat.html'. - -THIS SOFTWARE IS DISTRIBUTED AS IS, FOR FREE. Although reasonable effort -has been made to avoid it, THIS SOFTWARE MAY CONTAIN FAULTS THAT WILL AT -TIMES RESULT IN INCORRECT BEHAVIOR. USE OF THIS SOFTWARE IS RESTRICTED TO -PERSONS AND ORGANIZATIONS WHO CAN AND WILL TAKE FULL RESPONSIBILITY FOR ANY -AND ALL LOSSES, COSTS, OR OTHER PROBLEMS ARISING FROM ITS USE. - -Derivative works are acceptable, even for commercial purposes, so long as -(1) they include prominent notice that the work is derivative, and (2) they -include prominent notice akin to these four paragraphs for those parts of -this code that are retained. - -=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D -*/ - -/* ---------------------------------------------------------------------------= ----- -Include common integer types and flags. ---------------------------------------------------------------------------= ----- -*/ -#include "arm-gcc.h" diff --git a/ArmPkg/Library/ArmSoftFloatLib/softfloat-for-gcc.h b/ArmPkg/Li= brary/ArmSoftFloatLib/softfloat-for-gcc.h deleted file mode 100644 index c825d70097b8..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/softfloat-for-gcc.h +++ /dev/null @@ -1,242 +0,0 @@ -/* $NetBSD: softfloat-for-gcc.h,v 1.12 2013/08/01 23:21:19 matt Exp $ */ -/*- - * Copyright (c) 2008 The NetBSD Foundation, Inc. - * All rights reserved. - * - * This code is derived from software contributed to The NetBSD Foundation - * by - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * - * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTO= RS - * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIM= ITED - * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICU= LAR - * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTO= RS - * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR - * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF - * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS - * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN - * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) - * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF = THE - * POSSIBILITY OF SUCH DAMAGE. - */ - -/* - * Move private identifiers with external linkage into implementation - * namespace. -- Klaus Klein , May 5, 1999 - */ -#define float_exception_flags _softfloat_float_exception_flags -#define float_exception_mask _softfloat_float_exception_mask -#define float_rounding_mode _softfloat_float_rounding_mode -#define float_raise _softfloat_float_raise - -/* The following batch are called by GCC through wrappers */ -#define float32_eq _softfloat_float32_eq -#define float32_le _softfloat_float32_le -#define float32_lt _softfloat_float32_lt -#define float64_eq _softfloat_float64_eq -#define float64_le _softfloat_float64_le -#define float64_lt _softfloat_float64_lt -#define float128_eq _softfloat_float128_eq -#define float128_le _softfloat_float128_le -#define float128_lt _softfloat_float128_lt - -/* - * Macros to define functions with the GCC expected names - */ - -#define float32_add __addsf3 -#define float64_add __adddf3 -#define floatx80_add __addxf3 -#define float128_add __addtf3 - -#define float32_sub __subsf3 -#define float64_sub __subdf3 -#define floatx80_sub __subxf3 -#define float128_sub __subtf3 - -#define float32_mul __mulsf3 -#define float64_mul __muldf3 -#define floatx80_mul __mulxf3 -#define float128_mul __multf3 - -#define float32_div __divsf3 -#define float64_div __divdf3 -#define floatx80_div __divxf3 -#define float128_div __divtf3 - -#if 0 -#define float32_neg __negsf2 -#define float64_neg __negdf2 -#define floatx80_neg __negxf2 -#define float128_neg __negtf2 -#endif - -#define int32_to_float32 __floatsisf -#define int32_to_float64 __floatsidf -#define int32_to_floatx80 __floatsixf -#define int32_to_float128 __floatsitf - -#define int64_to_float32 __floatdisf -#define int64_to_float64 __floatdidf -#define int64_to_floatx80 __floatdixf -#define int64_to_float128 __floatditf - -#define int128_to_float32 __floattisf -#define int128_to_float64 __floattidf -#define int128_to_floatx80 __floattixf -#define int128_to_float128 __floattitf - -#define uint32_to_float32 __floatunsisf -#define uint32_to_float64 __floatunsidf -#define uint32_to_floatx80 __floatunsixf -#define uint32_to_float128 __floatunsitf - -#define uint64_to_float32 __floatundisf -#define uint64_to_float64 __floatundidf -#define uint64_to_floatx80 __floatundixf -#define uint64_to_float128 __floatunditf - -#define uint128_to_float32 __floatuntisf -#define uint128_to_float64 __floatuntidf -#define uint128_to_floatx80 __floatuntixf -#define uint128_to_float128 __floatuntitf - -#define float32_to_int32_round_to_zero __fixsfsi -#define float64_to_int32_round_to_zero __fixdfsi -#define floatx80_to_int32_round_to_zero __fixxfsi -#define float128_to_int32_round_to_zero __fixtfsi - -#define float32_to_int64_round_to_zero __fixsfdi -#define float64_to_int64_round_to_zero __fixdfdi -#define floatx80_to_int64_round_to_zero __fixxfdi -#define float128_to_int64_round_to_zero __fixtfdi - -#define float32_to_int128_round_to_zero __fixsfti -#define float64_to_int128_round_to_zero __fixdfti -#define floatx80_to_int128_round_to_zero __fixxfti -#define float128_to_int128_round_to_zero __fixtfti - -#define float32_to_uint32_round_to_zero __fixunssfsi -#define float64_to_uint32_round_to_zero __fixunsdfsi -#define floatx80_to_uint32_round_to_zero __fixunsxfsi -#define float128_to_uint32_round_to_zero __fixunstfsi - -#define float32_to_uint64_round_to_zero __fixunssfdi -#define float64_to_uint64_round_to_zero __fixunsdfdi -#define floatx80_to_uint64_round_to_zero __fixunsxfdi -#define float128_to_uint64_round_to_zero __fixunstfdi - -#define float32_to_uint128_round_to_zero __fixunssfti -#define float64_to_uint128_round_to_zero __fixunsdfti -#define floatx80_to_uint128_round_to_zero __fixunsxfti -#define float128_to_uint128_round_to_zero __fixunstfti - -#define float32_to_float64 __extendsfdf2 -#define float32_to_floatx80 __extendsfxf2 -#define float32_to_float128 __extendsftf2 -#define float64_to_floatx80 __extenddfxf2 -#define float64_to_float128 __extenddftf2 - -#define float128_to_float64 __trunctfdf2 -#define floatx80_to_float64 __truncxfdf2 -#define float128_to_float32 __trunctfsf2 -#define floatx80_to_float32 __truncxfsf2 -#define float64_to_float32 __truncdfsf2 - -#if 0 -#define float32_cmp __cmpsf2 -#define float32_unord __unordsf2 -#define float32_eq __eqsf2 -#define float32_ne __nesf2 -#define float32_ge __gesf2 -#define float32_lt __ltsf2 -#define float32_le __lesf2 -#define float32_gt __gtsf2 -#endif - -#if 0 -#define float64_cmp __cmpdf2 -#define float64_unord __unorddf2 -#define float64_eq __eqdf2 -#define float64_ne __nedf2 -#define float64_ge __gedf2 -#define float64_lt __ltdf2 -#define float64_le __ledf2 -#define float64_gt __gtdf2 -#endif - -/* XXX not in libgcc */ -#if 1 -#define floatx80_cmp __cmpxf2 -#define floatx80_unord __unordxf2 -#define floatx80_eq __eqxf2 -#define floatx80_ne __nexf2 -#define floatx80_ge __gexf2 -#define floatx80_lt __ltxf2 -#define floatx80_le __lexf2 -#define floatx80_gt __gtxf2 -#endif - -#if 0 -#define float128_cmp __cmptf2 -#define float128_unord __unordtf2 -#define float128_eq __eqtf2 -#define float128_ne __netf2 -#define float128_ge __getf2 -#define float128_lt __lttf2 -#define float128_le __letf2 -#define float128_gt __gttf2 -#endif - -#if defined (__ARM_EABI__) || defined (__CC_ARM) -#ifdef __ARM_PCS_VFP -#include -#endif -#define __addsf3 __aeabi_fadd -#define __adddf3 __aeabi_dadd - -#define __subsf3 __aeabi_fsub -#define __subdf3 __aeabi_dsub - -#define __mulsf3 __aeabi_fmul -#define __muldf3 __aeabi_dmul - -#define __divsf3 __aeabi_fdiv -#define __divdf3 __aeabi_ddiv - -#define __floatsisf __aeabi_i2f -#define __floatsidf __aeabi_i2d - -#define __floatdisf __aeabi_l2f -#define __floatdidf __aeabi_l2d - -#define __floatunsisf __aeabi_ui2f -#define __floatunsidf __aeabi_ui2d - -#define __floatundisf __aeabi_ul2f -#define __floatundidf __aeabi_ul2d - -#define __fixsfsi __aeabi_f2iz -#define __fixdfsi __aeabi_d2iz - -#define __fixsfdi __aeabi_f2lz -#define __fixdfdi __aeabi_d2lz - -#define __fixunssfsi __aeabi_f2uiz -#define __fixunsdfsi __aeabi_d2uiz - -#define __fixunssfdi __aeabi_f2ulz -#define __fixunsdfdi __aeabi_d2ulz - -#define __extendsfdf2 __aeabi_f2d -#define __truncdfsf2 __aeabi_d2f - -#endif /* __ARM_EABI__ */ diff --git a/ArmPkg/Library/ArmSoftFloatLib/softfloat-specialize b/ArmPkg/L= ibrary/ArmSoftFloatLib/softfloat-specialize deleted file mode 100644 index 4c99d0ae9937..000000000000 --- a/ArmPkg/Library/ArmSoftFloatLib/softfloat-specialize +++ /dev/null @@ -1,525 +0,0 @@ -/* $NetBSD: softfloat-specialize,v 1.8 2013/01/10 08:16:10 matt Exp $ */ - -/* This is a derivative work. */ - -/* -=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D - -This C source fragment is part of the SoftFloat IEC/IEEE Floating-point -Arithmetic Package, Release 2a. - -Written by John R. Hauser. This work was made possible in part by the -International Computer Science Institute, located at Suite 600, 1947 Center -Street, Berkeley, California 94704. Funding was partially provided by the -National Science Foundation under grant MIP-9311980. The original version -of this code was written as part of a project to build a fixed-point vector -processor in collaboration with the University of California at Berkeley, -overseen by Profs. Nelson Morgan and John Wawrzynek. More information -is available through the Web page `http://HTTP.CS.Berkeley.EDU/~jhauser/ -arithmetic/SoftFloat.html'. - -THIS SOFTWARE IS DISTRIBUTED AS IS, FOR FREE. Although reasonable effort -has been made to avoid it, THIS SOFTWARE MAY CONTAIN FAULTS THAT WILL AT -TIMES RESULT IN INCORRECT BEHAVIOR. USE OF THIS SOFTWARE IS RESTRICTED TO -PERSONS AND ORGANIZATIONS WHO CAN AND WILL TAKE FULL RESPONSIBILITY FOR ANY -AND ALL LOSSES, COSTS, OR OTHER PROBLEMS ARISING FROM ITS USE. - -Derivative works are acceptable, even for commercial purposes, so long as -(1) they include prominent notice that the work is derivative, and (2) they -include prominent notice akin to these four paragraphs for those parts of -this code that are retained. - -=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D -*/ - -/* ---------------------------------------------------------------------------= ----- -Underflow tininess-detection mode, statically initialized to default value. -(The declaration in `softfloat.h' must match the `int8' type here.) ---------------------------------------------------------------------------= ----- -*/ -#ifdef SOFTFLOAT_FOR_GCC -static -#endif -int8 float_detect_tininess =3D float_tininess_after_rounding; - -/* ---------------------------------------------------------------------------= ----- -Raises the exceptions specified by `flags'. Floating-point traps can be -defined here if desired. It is currently not possible for such a trap to -substitute a result value. If traps are not implemented, this routine -should be simply `float_exception_flags |=3D flags;'. ---------------------------------------------------------------------------= ----- -*/ -#ifdef SOFTFLOAT_FOR_GCC -#ifndef set_float_exception_mask -#define float_exception_mask _softfloat_float_exception_mask -#endif -#endif -#ifndef set_float_exception_mask -fp_except float_exception_mask =3D 0; -#endif -void -float_raise( fp_except flags ) -{ - -#if 0 // Don't raise exceptions - siginfo_t info; - fp_except mask =3D float_exception_mask; - -#ifdef set_float_exception_mask - flags |=3D set_float_exception_flags(flags, 0); -#else - float_exception_flags |=3D flags; - flags =3D float_exception_flags; -#endif - - flags &=3D mask; - if ( flags ) { - memset(&info, 0, sizeof info); - info.si_signo =3D SIGFPE; - info.si_pid =3D getpid(); - info.si_uid =3D geteuid(); - if (flags & float_flag_underflow) - info.si_code =3D FPE_FLTUND; - else if (flags & float_flag_overflow) - info.si_code =3D FPE_FLTOVF; - else if (flags & float_flag_divbyzero) - info.si_code =3D FPE_FLTDIV; - else if (flags & float_flag_invalid) - info.si_code =3D FPE_FLTINV; - else if (flags & float_flag_inexact) - info.si_code =3D FPE_FLTRES; - sigqueueinfo(getpid(), &info); - } -#else // Don't raise exceptions - float_exception_flags |=3D flags; -#endif // Don't raise exceptions -} -#undef float_exception_mask - -/* ---------------------------------------------------------------------------= ----- -Internal canonical NaN format. ---------------------------------------------------------------------------= ----- -*/ -typedef struct { - flag sign; - bits64 high, low; -} commonNaNT; - -/* ---------------------------------------------------------------------------= ----- -The pattern for a default generated single-precision NaN. ---------------------------------------------------------------------------= ----- -*/ -#define float32_default_nan 0xFFFFFFFF - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the single-precision floating-point value `a' is a NaN; -otherwise returns 0. ---------------------------------------------------------------------------= ----- -*/ -#ifdef SOFTFLOAT_FOR_GCC -static -#endif -flag float32_is_nan( float32 a ) -{ - - return ( (bits32)0xFF000000 < (bits32) ( a<<1 ) ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the single-precision floating-point value `a' is a signaling -NaN; otherwise returns 0. ---------------------------------------------------------------------------= ----- -*/ -#if defined(SOFTFLOAT_FOR_GCC) && !defined(SOFTFLOATSPARC64_FOR_GCC) && \ - !defined(SOFTFLOAT_M68K_FOR_GCC) -static -#endif -flag float32_is_signaling_nan( float32 a ) -{ - - return ( ( ( a>>22 ) & 0x1FF ) =3D=3D 0x1FE ) && ( a & 0x003FFFFF ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of converting the single-precision floating-point NaN -`a' to the canonical NaN format. If `a' is a signaling NaN, the invalid -exception is raised. ---------------------------------------------------------------------------= ----- -*/ -static commonNaNT float32ToCommonNaN( float32 a ) -{ - commonNaNT z; - - if ( float32_is_signaling_nan( a ) ) float_raise( float_flag_invalid ); - z.sign =3D a>>31; - z.low =3D 0; - z.high =3D ( (bits64) a )<<41; - return z; - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of converting the canonical NaN `a' to the single- -precision floating-point format. ---------------------------------------------------------------------------= ----- -*/ -static float32 commonNaNToFloat32( commonNaNT a ) -{ - - return ( ( (bits32) a.sign )<<31 ) | 0x7FC00000 | (bits32)( a.high>>41= ); - -} - -/* ---------------------------------------------------------------------------= ----- -Takes two single-precision floating-point values `a' and `b', one of which -is a NaN, and returns the appropriate NaN result. If either `a' or `b' is= a -signaling NaN, the invalid exception is raised. ---------------------------------------------------------------------------= ----- -*/ -static float32 propagateFloat32NaN( float32 a, float32 b ) -{ - flag aIsNaN, aIsSignalingNaN, bIsNaN, bIsSignalingNaN; - - aIsNaN =3D float32_is_nan( a ); - aIsSignalingNaN =3D float32_is_signaling_nan( a ); - bIsNaN =3D float32_is_nan( b ); - bIsSignalingNaN =3D float32_is_signaling_nan( b ); - a |=3D 0x00400000; - b |=3D 0x00400000; - if ( aIsSignalingNaN | bIsSignalingNaN ) float_raise( float_flag_inval= id ); - if ( aIsNaN ) { - return ( aIsSignalingNaN & bIsNaN ) ? b : a; - } - else { - return b; - } - -} - -/* ---------------------------------------------------------------------------= ----- -The pattern for a default generated double-precision NaN. ---------------------------------------------------------------------------= ----- -*/ -#define float64_default_nan LIT64( 0xFFFFFFFFFFFFFFFF ) - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the double-precision floating-point value `a' is a NaN; -otherwise returns 0. ---------------------------------------------------------------------------= ----- -*/ -#ifdef SOFTFLOAT_FOR_GCC -static -#endif -flag float64_is_nan( float64 a ) -{ - - return ( (bits64)LIT64( 0xFFE0000000000000 ) < - (bits64) ( FLOAT64_DEMANGLE(a)<<1 ) ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the double-precision floating-point value `a' is a signaling -NaN; otherwise returns 0. ---------------------------------------------------------------------------= ----- -*/ -#if defined(SOFTFLOAT_FOR_GCC) && !defined(SOFTFLOATSPARC64_FOR_GCC) && \ - !defined(SOFTFLOATM68K_FOR_GCC) -static -#endif -flag float64_is_signaling_nan( float64 a ) -{ - - return - ( ( ( FLOAT64_DEMANGLE(a)>>51 ) & 0xFFF ) =3D=3D 0xFFE ) - && ( FLOAT64_DEMANGLE(a) & LIT64( 0x0007FFFFFFFFFFFF ) ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of converting the double-precision floating-point NaN -`a' to the canonical NaN format. If `a' is a signaling NaN, the invalid -exception is raised. ---------------------------------------------------------------------------= ----- -*/ -static commonNaNT float64ToCommonNaN( float64 a ) -{ - commonNaNT z; - - if ( float64_is_signaling_nan( a ) ) float_raise( float_flag_invalid ); - z.sign =3D (flag)(FLOAT64_DEMANGLE(a)>>63); - z.low =3D 0; - z.high =3D FLOAT64_DEMANGLE(a)<<12; - return z; - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of converting the canonical NaN `a' to the double- -precision floating-point format. ---------------------------------------------------------------------------= ----- -*/ -static float64 commonNaNToFloat64( commonNaNT a ) -{ - - return FLOAT64_MANGLE( - ( ( (bits64) a.sign )<<63 ) - | LIT64( 0x7FF8000000000000 ) - | ( a.high>>12 ) ); - -} - -/* ---------------------------------------------------------------------------= ----- -Takes two double-precision floating-point values `a' and `b', one of which -is a NaN, and returns the appropriate NaN result. If either `a' or `b' is= a -signaling NaN, the invalid exception is raised. ---------------------------------------------------------------------------= ----- -*/ -static float64 propagateFloat64NaN( float64 a, float64 b ) -{ - flag aIsNaN, aIsSignalingNaN, bIsNaN, bIsSignalingNaN; - - aIsNaN =3D float64_is_nan( a ); - aIsSignalingNaN =3D float64_is_signaling_nan( a ); - bIsNaN =3D float64_is_nan( b ); - bIsSignalingNaN =3D float64_is_signaling_nan( b ); - a |=3D FLOAT64_MANGLE(LIT64( 0x0008000000000000 )); - b |=3D FLOAT64_MANGLE(LIT64( 0x0008000000000000 )); - if ( aIsSignalingNaN | bIsSignalingNaN ) float_raise( float_flag_inval= id ); - if ( aIsNaN ) { - return ( aIsSignalingNaN & bIsNaN ) ? b : a; - } - else { - return b; - } - -} - -#ifdef FLOATX80 - -/* ---------------------------------------------------------------------------= ----- -The pattern for a default generated extended double-precision NaN. The -`high' and `low' values hold the most- and least-significant bits, -respectively. ---------------------------------------------------------------------------= ----- -*/ -#define floatx80_default_nan_high 0xFFFF -#define floatx80_default_nan_low LIT64( 0xFFFFFFFFFFFFFFFF ) - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the extended double-precision floating-point value `a' is a -NaN; otherwise returns 0. ---------------------------------------------------------------------------= ----- -*/ -flag floatx80_is_nan( floatx80 a ) -{ - - return ( ( a.high & 0x7FFF ) =3D=3D 0x7FFF ) && (bits64) ( a.low<<1 ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the extended double-precision floating-point value `a' is a -signaling NaN; otherwise returns 0. ---------------------------------------------------------------------------= ----- -*/ -flag floatx80_is_signaling_nan( floatx80 a ) -{ - bits64 aLow; - - aLow =3D a.low & ~ LIT64( 0x4000000000000000 ); - return - ( ( a.high & 0x7FFF ) =3D=3D 0x7FFF ) - && (bits64) ( aLow<<1 ) - && ( a.low =3D=3D aLow ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of converting the extended double-precision floating- -point NaN `a' to the canonical NaN format. If `a' is a signaling NaN, the -invalid exception is raised. ---------------------------------------------------------------------------= ----- -*/ -static commonNaNT floatx80ToCommonNaN( floatx80 a ) -{ - commonNaNT z; - - if ( floatx80_is_signaling_nan( a ) ) float_raise( float_flag_invalid = ); - z.sign =3D a.high>>15; - z.low =3D 0; - z.high =3D a.low<<1; - return z; - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of converting the canonical NaN `a' to the extended -double-precision floating-point format. ---------------------------------------------------------------------------= ----- -*/ -static floatx80 commonNaNToFloatx80( commonNaNT a ) -{ - floatx80 z; - - z.low =3D LIT64( 0xC000000000000000 ) | ( a.high>>1 ); - z.high =3D ( ( (bits16) a.sign )<<15 ) | 0x7FFF; - return z; - -} - -/* ---------------------------------------------------------------------------= ----- -Takes two extended double-precision floating-point values `a' and `b', one -of which is a NaN, and returns the appropriate NaN result. If either `a' = or -`b' is a signaling NaN, the invalid exception is raised. ---------------------------------------------------------------------------= ----- -*/ -static floatx80 propagateFloatx80NaN( floatx80 a, floatx80 b ) -{ - flag aIsNaN, aIsSignalingNaN, bIsNaN, bIsSignalingNaN; - - aIsNaN =3D floatx80_is_nan( a ); - aIsSignalingNaN =3D floatx80_is_signaling_nan( a ); - bIsNaN =3D floatx80_is_nan( b ); - bIsSignalingNaN =3D floatx80_is_signaling_nan( b ); - a.low |=3D LIT64( 0xC000000000000000 ); - b.low |=3D LIT64( 0xC000000000000000 ); - if ( aIsSignalingNaN | bIsSignalingNaN ) float_raise( float_flag_inval= id ); - if ( aIsNaN ) { - return ( aIsSignalingNaN & bIsNaN ) ? b : a; - } - else { - return b; - } - -} - -#endif - -#ifdef FLOAT128 - -/* ---------------------------------------------------------------------------= ----- -The pattern for a default generated quadruple-precision NaN. The `high' a= nd -`low' values hold the most- and least-significant bits, respectively. ---------------------------------------------------------------------------= ----- -*/ -#define float128_default_nan_high LIT64( 0xFFFFFFFFFFFFFFFF ) -#define float128_default_nan_low LIT64( 0xFFFFFFFFFFFFFFFF ) - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the quadruple-precision floating-point value `a' is a NaN; -otherwise returns 0. ---------------------------------------------------------------------------= ----- -*/ -flag float128_is_nan( float128 a ) -{ - - return - ( (bits64)LIT64( 0xFFFE000000000000 ) <=3D (bits64) ( a.high<<1= ) ) - && ( a.low || ( a.high & LIT64( 0x0000FFFFFFFFFFFF ) ) ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns 1 if the quadruple-precision floating-point value `a' is a -signaling NaN; otherwise returns 0. ---------------------------------------------------------------------------= ----- -*/ -flag float128_is_signaling_nan( float128 a ) -{ - - return - ( ( ( a.high>>47 ) & 0xFFFF ) =3D=3D 0xFFFE ) - && ( a.low || ( a.high & LIT64( 0x00007FFFFFFFFFFF ) ) ); - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of converting the quadruple-precision floating-point NaN -`a' to the canonical NaN format. If `a' is a signaling NaN, the invalid -exception is raised. ---------------------------------------------------------------------------= ----- -*/ -static commonNaNT float128ToCommonNaN( float128 a ) -{ - commonNaNT z; - - if ( float128_is_signaling_nan( a ) ) float_raise( float_flag_invalid = ); - z.sign =3D (flag)(a.high>>63); - shortShift128Left( a.high, a.low, 16, &z.high, &z.low ); - return z; - -} - -/* ---------------------------------------------------------------------------= ----- -Returns the result of converting the canonical NaN `a' to the quadruple- -precision floating-point format. ---------------------------------------------------------------------------= ----- -*/ -static float128 commonNaNToFloat128( commonNaNT a ) -{ - float128 z; - - shift128Right( a.high, a.low, 16, &z.high, &z.low ); - z.high |=3D ( ( (bits64) a.sign )<<63 ) | LIT64( 0x7FFF800000000000 ); - return z; - -} - -/* ---------------------------------------------------------------------------= ----- -Takes two quadruple-precision floating-point values `a' and `b', one of -which is a NaN, and returns the appropriate NaN result. If either `a' or -`b' is a signaling NaN, the invalid exception is raised. ---------------------------------------------------------------------------= ----- -*/ -static float128 propagateFloat128NaN( float128 a, float128 b ) -{ - flag aIsNaN, aIsSignalingNaN, bIsNaN, bIsSignalingNaN; - - aIsNaN =3D float128_is_nan( a ); - aIsSignalingNaN =3D float128_is_signaling_nan( a ); - bIsNaN =3D float128_is_nan( b ); - bIsSignalingNaN =3D float128_is_signaling_nan( b ); - a.high |=3D LIT64( 0x0000800000000000 ); - b.high |=3D LIT64( 0x0000800000000000 ); - if ( aIsSignalingNaN | bIsSignalingNaN ) float_raise( float_flag_inval= id ); - if ( aIsNaN ) { - return ( aIsSignalingNaN & bIsNaN ) ? b : a; - } - else { - return b; - } - -} - -#endif - --=20 2.20.1 -=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D- Groups.io Links: You receive all messages sent to this group. View/Reply Online (#41739): https://edk2.groups.io/g/devel/message/41739 Mute This Topic: https://groups.io/mt/31879991/1787277 Group Owner: devel+owner@edk2.groups.io Unsubscribe: https://edk2.groups.io/g/devel/unsub [importer@patchew.org] -=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D- From nobody Mon Apr 29 04:34:59 2024 Delivered-To: importer@patchew.org Received-SPF: pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) client-ip=66.175.222.12; envelope-from=bounce+27952+41738+1787277+3901457@groups.io; helo=web01.groups.io; Authentication-Results: mx.zohomail.com; dkim=pass; spf=pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) smtp.mailfrom=bounce+27952+41738+1787277+3901457@groups.io; dmarc=fail(p=none dis=none) header.from=linaro.org ARC-Seal: i=1; a=rsa-sha256; t=1559307016; cv=none; d=zoho.com; s=zohoarc; b=dkwVE2uT770PVrDytMWxorbH7kAH1z2rsEAXP+JsR/8hv+xSYEcQYMlfE7uUlme/Vxxg94enZPy9kEufAnAjt1i8R5Bwr9KtLj5muz9cuBxgVkjSLgNRXiF8UH1JI2Q8k6bHqJq2PzeWvdL5Y31VoLEnYBuSs5j4NiRyav+jSk0= ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=zoho.com; s=zohoarc; t=1559307016; h=Content-Transfer-Encoding:Cc:Date:From:In-Reply-To:List-Id:List-Unsubscribe:MIME-Version:Message-ID:Reply-To:References:Sender:Subject:To:ARC-Authentication-Results; bh=2+ioNyoT7G7LYVVuXqhbcAlGKj1E+fSqy5CNhtNYBI8=; b=kow3Qebehf8Wwh/TKkxd57stmQrnsMu0sizq2DbBpXb7WZurpFW3kkv4KOLSH7TJolmFwYxBd+mF+n+P2Fx38vrIDb/dwJWqDJMu/fGZH9O06cRdzAOuByBq7Ctg8Syy23GADKyUcqlYwaFX679lMtEZEAGdihupE/ZBfWUr6wg= ARC-Authentication-Results: i=1; mx.zoho.com; dkim=pass; spf=pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) smtp.mailfrom=bounce+27952+41738+1787277+3901457@groups.io; dmarc=fail header.from= (p=none dis=none) header.from= Received: from web01.groups.io (web01.groups.io [66.175.222.12]) by mx.zohomail.com with SMTPS id 155930701628576.19552346132275; Fri, 31 May 2019 05:50:16 -0700 (PDT) Return-Path: X-Received: from mail-wr1-f66.google.com (mail-wr1-f66.google.com [209.85.221.66]) by groups.io with SMTP; Fri, 31 May 2019 05:50:14 -0700 X-Received: by mail-wr1-f66.google.com with SMTP id h1so6463221wro.4 for ; Fri, 31 May 2019 05:50:14 -0700 (PDT) X-Gm-Message-State: APjAAAWIaJF/QkL1FWHJlEhpVzWXgjElZHviO7/7BIrBwBIygJccxl0w P5GqdU69CGeuUkRmL7DoX0y8D67zeis= X-Google-Smtp-Source: APXvYqzS928pHiYgBI/h0K20N++PnnUXXvJCPHWR/SH2B1lTYkvws9805pYdt28PCdPeoBydgBTvgg== X-Received: by 2002:adf:c541:: with SMTP id s1mr972254wrf.44.1559307012756; Fri, 31 May 2019 05:50:12 -0700 (PDT) X-Received: from sudo.home ([2a01:cb1d:112:6f00:c225:e9ff:fe2e:ea8]) by smtp.gmail.com with ESMTPSA id b9sm6385076wma.29.2019.05.31.05.50.11 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Fri, 31 May 2019 05:50:11 -0700 (PDT) From: "Ard Biesheuvel" To: devel@edk2.groups.io Cc: Ard Biesheuvel , Laszlo Ersek , "Gao, Liming" , "Wang, Jian J" , Leif Lindholm , Michael D Kinney Subject: [edk2-devel] [PATCH v3 4/7] BaseTools/tools_def CLANG3x ARM AARCH64: force use of C99 standard Date: Fri, 31 May 2019 14:49:55 +0200 Message-Id: <20190531124958.8421-5-ard.biesheuvel@linaro.org> In-Reply-To: <20190531124958.8421-1-ard.biesheuvel@linaro.org> References: <20190531124958.8421-1-ard.biesheuvel@linaro.org> MIME-Version: 1.0 Precedence: Bulk List-Unsubscribe: Sender: devel@edk2.groups.io List-Id: Mailing-List: list devel@edk2.groups.io; contact devel+owner@edk2.groups.io Reply-To: devel@edk2.groups.io,ard.biesheuvel@linaro.org Content-Transfer-Encoding: quoted-printable DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=groups.io; q=dns/txt; s=20140610; t=1559307015; bh=0TIn4G1LUxAWF9C3fYjjkZ+MJAyBjdecIEZke3UvVUE=; h=Cc:Date:From:Reply-To:Subject:To; b=PT7+vUL5LS1zdNdA/T5evkofjSGJGtGZEYOpIk1wniGMxzLryzN7MARVINp/A+wI7cY 6a77rCZxeWokUTMoshWtOmgHD5hnbZCBwieToKleaOVa9c1ZT72yxkscpjdYT3e7xoiRu Fxw4JetADd5VNl67l4nSc2UYE0o0SQfVutI= X-ZohoMail-DKIM: pass (identity @groups.io) Content-Type: text/plain; charset="utf-8" When building OpenSSL for ARM or AARCH64 with recent Clang, the following error may result: In file included from .../CryptoPkg/Library/BaseCryptLib/Pk/CryptPkcs7Ver= ifyEku.c:18: In file included from .../CryptoPkg/Library/OpensslLib/openssl/crypto/inc= lude/internal/x509_int.h:10: In file included from .../CryptoPkg/Library/OpensslLib/openssl/include/in= ternal/refcount.h:21: In file included from /usr/lib/llvm-7/lib/clang/7.0.1/include/stdatomic.h= :35: In file included from /usr/lib/llvm-7/lib/clang/7.0.1/include/stdint.h:61: /usr/include/stdint.h:26:10: fatal error: 'bits/libc-header-start.h' file= not found #include ^~~~~~~~~~~~~~~~~~~~~~~~~~ 1 error generated. This is caused by the fact that the refcount.h header includes compiler headers that in turn rely on system headers, which we don't support. Since the C native atomics are a C11 feature, let's explicitly use the C99 standard instead to work around this issue, and add the -ffreestanding option so that the compiler never attempts to include system headers. Acked-by: Laszlo Ersek Signed-off-by: Ard Biesheuvel --- BaseTools/Conf/tools_def.template | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/BaseTools/Conf/tools_def.template b/BaseTools/Conf/tools_def.t= emplate index 26a2cf604f74..f1467d5e8cef 100755 --- a/BaseTools/Conf/tools_def.template +++ b/BaseTools/Conf/tools_def.template @@ -2280,8 +2280,8 @@ DEFINE CLANG35_ARM_TARGET =3D -target arm-linu= x-gnueabi DEFINE CLANG35_AARCH64_TARGET =3D -target aarch64-linux-gnu =20 DEFINE CLANG35_WARNING_OVERRIDES =3D -Wno-parentheses-equality -Wno-tautol= ogical-compare -Wno-tautological-constant-out-of-range-compare -Wno-empty-b= ody -Wno-unknown-warning-option -DEFINE CLANG35_ARM_CC_FLAGS =3D DEF(GCC_ARM_CC_FLAGS) DEF(CLANG35_ARM= _TARGET) DEF(CLANG35_WARNING_OVERRIDES) -DEFINE CLANG35_AARCH64_CC_FLAGS =3D DEF(GCC_AARCH64_CC_FLAGS) DEF(CLANG35= _AARCH64_TARGET) -mcmodel=3Dsmall DEF(CLANG35_WARNING_OVERRIDES) +DEFINE CLANG35_ARM_CC_FLAGS =3D DEF(GCC_ARM_CC_FLAGS) DEF(CLANG35_ARM= _TARGET) DEF(CLANG35_WARNING_OVERRIDES) -std=3Dc99 -ffreestanding +DEFINE CLANG35_AARCH64_CC_FLAGS =3D DEF(GCC_AARCH64_CC_FLAGS) DEF(CLANG35= _AARCH64_TARGET) -mcmodel=3Dsmall DEF(CLANG35_WARNING_OVERRIDES) -std=3Dc99= -ffreestanding =20 ################## # CLANG35 ARM definitions @@ -2430,7 +2430,7 @@ NOOPT_CLANG38_X64_DLINK2_FLAGS =3D DEF(GCC5_X64_D= LINK2_FLAGS) -O0 # CLANG38 ARM definitions ################## DEFINE CLANG38_ARM_TARGET =3D -target arm-linux-gnueabi -DEFINE CLANG38_ARM_CC_FLAGS =3D DEF(GCC_ARM_CC_FLAGS) DEF(CLANG38_ARM= _TARGET) DEF(CLANG38_WARNING_OVERRIDES) -mno-movt +DEFINE CLANG38_ARM_CC_FLAGS =3D DEF(GCC_ARM_CC_FLAGS) DEF(CLANG38_ARM= _TARGET) DEF(CLANG38_WARNING_OVERRIDES) -mno-movt -std=3Dc99 -ffreestanding DEFINE CLANG38_ARM_DLINK_FLAGS =3D DEF(CLANG38_ARM_TARGET) DEF(GCC_ARM_D= LINK_FLAGS) =20 *_CLANG38_ARM_PP_FLAGS =3D DEF(GCC_PP_FLAGS) @@ -2474,7 +2474,7 @@ RELEASE_CLANG38_ARM_DLINK_FLAGS =3D DEF(CLANG38_ARM_= DLINK_FLAGS) -flto -Wl,-O3 -L # CLANG38 AARCH64 definitions ################## DEFINE CLANG38_AARCH64_TARGET =3D -target aarch64-linux-gnu -DEFINE CLANG38_AARCH64_CC_FLAGS =3D DEF(GCC_AARCH64_CC_FLAGS) DEF(CLANG38= _AARCH64_TARGET) -mcmodel=3Dsmall DEF(CLANG38_WARNING_OVERRIDES) +DEFINE CLANG38_AARCH64_CC_FLAGS =3D DEF(GCC_AARCH64_CC_FLAGS) DEF(CLANG38= _AARCH64_TARGET) -mcmodel=3Dsmall DEF(CLANG38_WARNING_OVERRIDES) -std=3Dc99= -ffreestanding DEFINE CLANG38_AARCH64_DLINK_FLAGS =3D DEF(CLANG38_AARCH64_TARGET) DEF(GC= C_AARCH64_DLINK_FLAGS) -z common-page-size=3D0x1000 =20 *_CLANG38_AARCH64_PP_FLAGS =3D DEF(GCC_PP_FLAGS) --=20 2.20.1 -=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D- Groups.io Links: You receive all messages sent to this group. View/Reply Online (#41738): https://edk2.groups.io/g/devel/message/41738 Mute This Topic: https://groups.io/mt/31879990/1787277 Group Owner: devel+owner@edk2.groups.io Unsubscribe: https://edk2.groups.io/g/devel/unsub [importer@patchew.org] -=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D- From nobody Mon Apr 29 04:34:59 2024 Delivered-To: importer@patchew.org Received-SPF: pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) client-ip=66.175.222.12; envelope-from=bounce+27952+41740+1787277+3901457@groups.io; helo=web01.groups.io; Authentication-Results: mx.zohomail.com; dkim=pass; spf=pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) smtp.mailfrom=bounce+27952+41740+1787277+3901457@groups.io; dmarc=fail(p=none dis=none) header.from=linaro.org ARC-Seal: i=1; a=rsa-sha256; t=1559307017; cv=none; d=zoho.com; s=zohoarc; b=CeMiZYVeEwt0Zc3AwoJ6moOK2Wkz/fb5DXoxkYGqCH4k2jM80Ip866Eo0fhv7+Il3I9k57ppXvVgZryQDBHvaTjygrElj5d4K7DLeo6wK5HsYsv5lT4y2hTFi/tKDEtblLu8ThcmuHjGeX9kFPZSuEr9vrkQ9BdDuzgfz9vSrEk= ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=zoho.com; s=zohoarc; t=1559307017; h=Content-Transfer-Encoding:Cc:Date:From:In-Reply-To:List-Id:List-Unsubscribe:MIME-Version:Message-ID:Reply-To:References:Sender:Subject:To:ARC-Authentication-Results; bh=JJhbOQP4sXdkrfcH8QzNUYl5IGCQiT3v8FY0i2Pkkew=; b=W6SW2bLyDcy47V+ReWE9BJFjJmvdCkWRodyvw54ruCdTCJWk3ZLOWT6WJyenWEgxqTo32NXXzR2WqEEuG2LfSy20LHPr3go6KBB9J6DODnmQFfetiEwMbgz9rIW2tV0ogedRN55FG/3oE+rU6zo9vdDdIvXcbt2pR1LwLKB3I4c= ARC-Authentication-Results: i=1; mx.zoho.com; dkim=pass; spf=pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) smtp.mailfrom=bounce+27952+41740+1787277+3901457@groups.io; dmarc=fail header.from= (p=none dis=none) header.from= Received: from web01.groups.io (web01.groups.io [66.175.222.12]) by mx.zohomail.com with SMTPS id 1559307017604382.7678182293157; Fri, 31 May 2019 05:50:17 -0700 (PDT) Return-Path: X-Received: from mail-wm1-f68.google.com (mail-wm1-f68.google.com [209.85.128.68]) by groups.io with SMTP; Fri, 31 May 2019 05:50:16 -0700 X-Received: by mail-wm1-f68.google.com with SMTP id u16so634907wmc.5 for ; Fri, 31 May 2019 05:50:15 -0700 (PDT) X-Gm-Message-State: APjAAAWH2gOJQbIfs09LyPrRnHJC11UpoArT2fRclqfTL86WoKOgAgOp G8hxkWlMOxIHtccPIpR3/V2ZFUdzSec= X-Google-Smtp-Source: APXvYqwMI/vba1bghCzsU7QQrmdPjFmrX9SZJEm7jKkku7NVRHoCo88tim5vrBZeeFTaG6PwV5jyRw== X-Received: by 2002:a1c:9906:: with SMTP id b6mr5078124wme.117.1559307014247; Fri, 31 May 2019 05:50:14 -0700 (PDT) X-Received: from sudo.home ([2a01:cb1d:112:6f00:c225:e9ff:fe2e:ea8]) by smtp.gmail.com with ESMTPSA id b9sm6385076wma.29.2019.05.31.05.50.12 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Fri, 31 May 2019 05:50:13 -0700 (PDT) From: "Ard Biesheuvel" To: devel@edk2.groups.io Cc: Ard Biesheuvel , Laszlo Ersek , "Gao, Liming" , "Wang, Jian J" , Leif Lindholm , Michael D Kinney Subject: [edk2-devel] [PATCH v3 5/7] ArmPkg/ArmLib ARM: set .fpu to let Clang 7 assemble ArmV7Support.S Date: Fri, 31 May 2019 14:49:56 +0200 Message-Id: <20190531124958.8421-6-ard.biesheuvel@linaro.org> In-Reply-To: <20190531124958.8421-1-ard.biesheuvel@linaro.org> References: <20190531124958.8421-1-ard.biesheuvel@linaro.org> MIME-Version: 1.0 Precedence: Bulk List-Unsubscribe: Sender: devel@edk2.groups.io List-Id: Mailing-List: list devel@edk2.groups.io; contact devel+owner@edk2.groups.io Reply-To: devel@edk2.groups.io,ard.biesheuvel@linaro.org Content-Transfer-Encoding: quoted-printable DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=groups.io; q=dns/txt; s=20140610; t=1559307017; bh=8l94bcQeh3FOgxMLmtpjqCMf7q5Tvx8ls6RLcOUKtz8=; h=Cc:Date:From:Reply-To:Subject:To; b=K0WrTFGPevuBFHU5xaMMbRmDX9EfV+Lt8AdisNHJi7NGU+4mnM/Kj8FaibMawTnUvqQ x8zejp/Lb2goMOaiSxigH56dBlgvuGhVjoMCAGb3e1JUrlxEHagBIgBVT9K1Wwj2gBrRM Zrvz1FCciN+1djzyid5pNIPfW/L9D0Q3TFI= X-ZohoMail-DKIM: pass (identity @groups.io) Content-Type: text/plain; charset="utf-8" Clang 7 complains about the vmsr instruction in ArmV7Support.S, which is only available on cores that implement some flavour of VFP. So set the .fpu to NEON like we do in some other places. Acked-by: Laszlo Ersek Signed-off-by: Ard Biesheuvel --- ArmPkg/Library/ArmLib/Arm/ArmV7Support.S | 2 ++ 1 file changed, 2 insertions(+) diff --git a/ArmPkg/Library/ArmLib/Arm/ArmV7Support.S b/ArmPkg/Library/ArmL= ib/Arm/ArmV7Support.S index 16c56f72e973..4925f6628e1e 100644 --- a/ArmPkg/Library/ArmLib/Arm/ArmV7Support.S +++ b/ArmPkg/Library/ArmLib/Arm/ArmV7Support.S @@ -262,6 +262,8 @@ ASM_FUNC(ArmEnableVFP) #ifndef __clang__ mcr p10,#0x7,r0,c8,c0,#0 #else + # Set the FPU model so Clang does not choke on the next instruction + .fpu neon vmsr fpexc, r0 #endif bx lr --=20 2.20.1 -=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D- Groups.io Links: You receive all messages sent to this group. View/Reply Online (#41740): https://edk2.groups.io/g/devel/message/41740 Mute This Topic: https://groups.io/mt/31879992/1787277 Group Owner: devel+owner@edk2.groups.io Unsubscribe: https://edk2.groups.io/g/devel/unsub [importer@patchew.org] -=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D- From nobody Mon Apr 29 04:34:59 2024 Delivered-To: importer@patchew.org Received-SPF: pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) client-ip=66.175.222.12; envelope-from=bounce+27952+41741+1787277+3901457@groups.io; helo=web01.groups.io; Authentication-Results: mx.zohomail.com; dkim=pass; spf=pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) smtp.mailfrom=bounce+27952+41741+1787277+3901457@groups.io; dmarc=fail(p=none dis=none) header.from=linaro.org ARC-Seal: i=1; a=rsa-sha256; t=1559307018; cv=none; d=zoho.com; s=zohoarc; b=oCC93h1ehrtDVZa9AwectAlCrVsgqhi3X2VTa3XhtryMh5gfp0ZriechbNnXQOnJaQJiKDzyyahwItg4JmIdjI1LMgsYBqFc8aIUvxKm7DaoOklvhuRql/yVK+Jo20Ncuo2Uj4sERgJcHQdEMrhfYHJXhk3/X1iu2SC/tMkEDAU= ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=zoho.com; s=zohoarc; t=1559307018; h=Content-Transfer-Encoding:Cc:Date:From:In-Reply-To:List-Id:List-Unsubscribe:MIME-Version:Message-ID:Reply-To:References:Sender:Subject:To:ARC-Authentication-Results; bh=u61AUJ/BzN9YpvewVO++Z5GyTkFTpa5Vh03xtz3Yrms=; b=cxv6ZhYAMk2z4nmxVRs75A9ENX7Az7s+cptGSJyLXB1p6EXSXTDY7uYyLCRjSrIVlnvY0v2VYrW/PPi1w5MH15vZEqW8nzVfpv29y4M9qOADUgx259GGlzZiPBBI8TW+LVgDDR89+bPTHmr+k03NZTJAgsQi+vLkmD4gKgfF4GM= ARC-Authentication-Results: i=1; mx.zoho.com; dkim=pass; spf=pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) smtp.mailfrom=bounce+27952+41741+1787277+3901457@groups.io; dmarc=fail header.from= (p=none dis=none) header.from= Received: from web01.groups.io (web01.groups.io [66.175.222.12]) by mx.zohomail.com with SMTPS id 1559307018759213.97466357350015; Fri, 31 May 2019 05:50:18 -0700 (PDT) Return-Path: X-Received: from mail-wr1-f65.google.com (mail-wr1-f65.google.com [209.85.221.65]) by groups.io with SMTP; Fri, 31 May 2019 05:50:17 -0700 X-Received: by mail-wr1-f65.google.com with SMTP id b18so6424394wrq.12 for ; Fri, 31 May 2019 05:50:17 -0700 (PDT) X-Gm-Message-State: APjAAAWQcV85OJI+IiWW8syHG3pqzrN4ReaB8rHttRyE4Xog3f9P48z0 ougMgd1760YVuqlU6bEq93h984nwIE8= X-Google-Smtp-Source: APXvYqxE2GzGSEJLt0l434PJZNSdmnxD+iGy/T6fVSEqocTDoAhZZevMRqCsUT4pcIQhbDsnFl2JbA== X-Received: by 2002:adf:c982:: with SMTP id f2mr6728518wrh.235.1559307015943; Fri, 31 May 2019 05:50:15 -0700 (PDT) X-Received: from sudo.home ([2a01:cb1d:112:6f00:c225:e9ff:fe2e:ea8]) by smtp.gmail.com with ESMTPSA id b9sm6385076wma.29.2019.05.31.05.50.14 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Fri, 31 May 2019 05:50:14 -0700 (PDT) From: "Ard Biesheuvel" To: devel@edk2.groups.io Cc: Ard Biesheuvel , Laszlo Ersek , "Gao, Liming" , "Wang, Jian J" , Leif Lindholm , Michael D Kinney Subject: [edk2-devel] [PATCH v3 6/7] MdeModulePkg/PeCoffImageEmulator: avoid redeclaration of typedef Date: Fri, 31 May 2019 14:49:57 +0200 Message-Id: <20190531124958.8421-7-ard.biesheuvel@linaro.org> In-Reply-To: <20190531124958.8421-1-ard.biesheuvel@linaro.org> References: <20190531124958.8421-1-ard.biesheuvel@linaro.org> MIME-Version: 1.0 Precedence: Bulk List-Unsubscribe: Sender: devel@edk2.groups.io List-Id: Mailing-List: list devel@edk2.groups.io; contact devel+owner@edk2.groups.io Reply-To: devel@edk2.groups.io,ard.biesheuvel@linaro.org Content-Transfer-Encoding: quoted-printable DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=groups.io; q=dns/txt; s=20140610; t=1559307018; bh=ZEAzYByoBITCEXwA6OmKmFKtMDP7EvMMYiG48+POs3M=; h=Cc:Date:From:Reply-To:Subject:To; b=oJcMPXtNrABwd7zi4rPQQgRRwDNe/Y8ZJvESseM9eNOZMzBY9sGZO+nr+AUrSOX9XvW 17xA5j+9qIqE4h9Foe1k4GHfTZdYbImWvN2rD6XYmqMgw5KG3qaeYB76VohleChhN0/uR FWfv9AV8tKRlngxwalDNAcA+PwHiV6rhEmU= X-ZohoMail-DKIM: pass (identity @groups.io) Content-Type: text/plain; charset="utf-8" The usual pattern of defining a protocol in EDK2 is typedef struct _FOO_PROTOCOL FOO_PROTOCOL; struct _FOO_PROTOCOL { ... }; However, in the definition of EDKII_PECOFF_IMAGE_EMULATOR_PROTOCOL, we are deviating from this for no good reason, and instead, the struct definition is combined with a redefinition of the first typedef, and this is not permitted before C11. Signed-off-by: Ard Biesheuvel Reviewed-by: Liming Gao --- MdeModulePkg/Include/Protocol/PeCoffImageEmulator.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/MdeModulePkg/Include/Protocol/PeCoffImageEmulator.h b/MdeModul= ePkg/Include/Protocol/PeCoffImageEmulator.h index 29633e9a8ed4..9ea080eefb56 100644 --- a/MdeModulePkg/Include/Protocol/PeCoffImageEmulator.h +++ b/MdeModulePkg/Include/Protocol/PeCoffImageEmulator.h @@ -91,7 +91,7 @@ EFI_STATUS =20 #define EDKII_PECOFF_IMAGE_EMULATOR_VERSION 0x1 =20 -typedef struct _EDKII_PECOFF_IMAGE_EMULATOR_PROTOCOL { +struct _EDKII_PECOFF_IMAGE_EMULATOR_PROTOCOL { EDKII_PECOFF_IMAGE_EMULATOR_IS_IMAGE_SUPPORTED IsImageSupported; EDKII_PECOFF_IMAGE_EMULATOR_REGISTER_IMAGE RegisterImage; EDKII_PECOFF_IMAGE_EMULATOR_UNREGISTER_IMAGE UnregisterImage; @@ -100,7 +100,7 @@ typedef struct _EDKII_PECOFF_IMAGE_EMULATOR_PROTOCOL { UINT32 Version; // The machine type implemented by the emulator UINT16 MachineType; -} EDKII_PECOFF_IMAGE_EMULATOR_PROTOCOL; +}; =20 extern EFI_GUID gEdkiiPeCoffImageEmulatorProtocolGuid; =20 --=20 2.20.1 -=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D- Groups.io Links: You receive all messages sent to this group. View/Reply Online (#41741): https://edk2.groups.io/g/devel/message/41741 Mute This Topic: https://groups.io/mt/31879994/1787277 Group Owner: devel+owner@edk2.groups.io Unsubscribe: https://edk2.groups.io/g/devel/unsub [importer@patchew.org] -=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D- From nobody Mon Apr 29 04:34:59 2024 Delivered-To: importer@patchew.org Received-SPF: pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) client-ip=66.175.222.12; envelope-from=bounce+27952+41742+1787277+3901457@groups.io; helo=web01.groups.io; Authentication-Results: mx.zohomail.com; dkim=pass; spf=pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) smtp.mailfrom=bounce+27952+41742+1787277+3901457@groups.io; dmarc=fail(p=none dis=none) header.from=linaro.org ARC-Seal: i=1; a=rsa-sha256; t=1559307020; cv=none; d=zoho.com; s=zohoarc; b=ehlVf7T/wyGflXwuekqGtAGZl47rn9F8egKm1zcQ/kcOf2OvRhJAMcEMDzZSH6qr7Y3ARYqfu1X+paF3hRyWt/roSm+g2o9kAiIjC3ca7e0KF4k3HMMPqYoNVHwx1Z7CpJ4SUJ5aeyFs13R0sd33sRmiHsDpRJeERpE2KHlE308= ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=zoho.com; s=zohoarc; t=1559307020; h=Content-Transfer-Encoding:Cc:Date:From:In-Reply-To:List-Id:List-Unsubscribe:MIME-Version:Message-ID:Reply-To:References:Sender:Subject:To:ARC-Authentication-Results; bh=2S45xrNJVytqFVhL2sbZzuOldUz6VZ5P5XCI+x8MhU8=; b=OunmpsOyTOOshvcEF57xXwfJ388Abee7KYJYxp6t8EFN+4WtG/coNQ13wEQ8KRHQ8U3nmXuWuBUkrjsRT8tHnRXMj0SvCjt4UVoT+weao3wRkjYZe+0HbR+Igki0K++RLt0xYXp+L/FGYknrtHlvX2yAmA2zTkXuHZjrA3Ah9gE= ARC-Authentication-Results: i=1; mx.zoho.com; dkim=pass; spf=pass (zoho.com: domain of groups.io designates 66.175.222.12 as permitted sender) smtp.mailfrom=bounce+27952+41742+1787277+3901457@groups.io; dmarc=fail header.from= (p=none dis=none) header.from= Received: from web01.groups.io (web01.groups.io [66.175.222.12]) by mx.zohomail.com with SMTPS id 1559307020627269.67828978315504; Fri, 31 May 2019 05:50:20 -0700 (PDT) Return-Path: X-Received: from mail-wr1-f68.google.com (mail-wr1-f68.google.com [209.85.221.68]) by groups.io with SMTP; Fri, 31 May 2019 05:50:19 -0700 X-Received: by mail-wr1-f68.google.com with SMTP id h1so6463372wro.4 for ; Fri, 31 May 2019 05:50:18 -0700 (PDT) X-Gm-Message-State: APjAAAWQTkD42393lyfUOG9QXOUzJZ1bJcEDNGxCeM/bODKNUqNTziRT DQYvcfXfqzcuH3o03Nb0rbcBZu0aph8= X-Google-Smtp-Source: APXvYqydHgxZ6IrnB5KCzOKLMNcCxxCEfzU0kxk19zt+Kcz0KYParGbEZlPv2uFMP4K63a/vrHbFiQ== X-Received: by 2002:a05:6000:110:: with SMTP id o16mr6314832wrx.200.1559307017341; Fri, 31 May 2019 05:50:17 -0700 (PDT) X-Received: from sudo.home ([2a01:cb1d:112:6f00:c225:e9ff:fe2e:ea8]) by smtp.gmail.com with ESMTPSA id b9sm6385076wma.29.2019.05.31.05.50.16 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Fri, 31 May 2019 05:50:16 -0700 (PDT) From: "Ard Biesheuvel" To: devel@edk2.groups.io Cc: Ard Biesheuvel , Laszlo Ersek , "Gao, Liming" , "Wang, Jian J" , Leif Lindholm , Michael D Kinney Subject: [edk2-devel] [PATCH v3 7/7] MdePkg: avoid redeclaration of typedefs Date: Fri, 31 May 2019 14:49:58 +0200 Message-Id: <20190531124958.8421-8-ard.biesheuvel@linaro.org> In-Reply-To: <20190531124958.8421-1-ard.biesheuvel@linaro.org> References: <20190531124958.8421-1-ard.biesheuvel@linaro.org> MIME-Version: 1.0 Precedence: Bulk List-Unsubscribe: Sender: devel@edk2.groups.io List-Id: Mailing-List: list devel@edk2.groups.io; contact devel+owner@edk2.groups.io Reply-To: devel@edk2.groups.io,ard.biesheuvel@linaro.org Content-Transfer-Encoding: quoted-printable DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=groups.io; q=dns/txt; s=20140610; t=1559307019; bh=/ThBQda3y5J8CPRKlsKNvr2lUMG6wkSgegLcPRhsVwY=; h=Cc:Date:From:Reply-To:Subject:To; b=JFdbXD/meNaIG5zyxU9lUPnd1AohZPdbLnnnLyCFZLlAb90E/q8n6yrQuzIA2Zq8zya f0MCkN40LcrDvWwuBe8H8D7NVAXf9hugzj4MTbvuyAHSlkisy1qGAuq6VwdZ8po9YMQm5 63yHmnF45Fg6hHTmjQl/64De0/2pISKttTE= X-ZohoMail-DKIM: pass (identity @groups.io) Content-Type: text/plain; charset="utf-8" The usual pattern of defining a protocol in EDK2 is typedef struct _FOO_PROTOCOL FOO_PROTOCOL; struct _FOO_PROTOCOL { ... }; However, in the definition of EFI_HII_POPUP_PROTOCOL and EFI_RESET_NOTIFICATION_PROTOCOL, we are deviating from this for no good reason, and instead, the struct definition is combined with a redefinition of the first typedef, and this is not permitted before C11. Signed-off-by: Ard Biesheuvel Reviewed-by: Liming Gao --- MdePkg/Include/Protocol/HiiPopup.h | 4 ++-- MdePkg/Include/Protocol/ResetNotification.h | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/MdePkg/Include/Protocol/HiiPopup.h b/MdePkg/Include/Protocol/H= iiPopup.h index e8161c3701ad..d7be784723b8 100644 --- a/MdePkg/Include/Protocol/HiiPopup.h +++ b/MdePkg/Include/Protocol/HiiPopup.h @@ -67,10 +67,10 @@ EFI_STATUS OUT EFI_HII_POPUP_SELECTION *UserSelection OPTIONAL ); =20 -typedef struct _EFI_HII_POPUP_PROTOCOL { +struct _EFI_HII_POPUP_PROTOCOL { UINT64 Revision; EFI_HII_CREATE_POPUP CreatePopup; -} EFI_HII_POPUP_PROTOCOL; +}; =20 extern EFI_GUID gEfiHiiPopupProtocolGuid; =20 diff --git a/MdePkg/Include/Protocol/ResetNotification.h b/MdePkg/Include/P= rotocol/ResetNotification.h index 1142424e4610..b9aa321f639a 100644 --- a/MdePkg/Include/Protocol/ResetNotification.h +++ b/MdePkg/Include/Protocol/ResetNotification.h @@ -68,10 +68,10 @@ EFI_STATUS IN EFI_RESET_SYSTEM ResetFunction ); =20 -typedef struct _EFI_RESET_NOTIFICATION_PROTOCOL { +struct _EFI_RESET_NOTIFICATION_PROTOCOL { EFI_REGISTER_RESET_NOTIFY RegisterResetNotify; EFI_UNREGISTER_RESET_NOTIFY UnregisterResetNotify; -} EFI_RESET_NOTIFICATION_PROTOCOL; +}; =20 =20 extern EFI_GUID gEfiResetNotificationProtocolGuid; --=20 2.20.1 -=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D- Groups.io Links: You receive all messages sent to this group. View/Reply Online (#41742): https://edk2.groups.io/g/devel/message/41742 Mute This Topic: https://groups.io/mt/31879995/1787277 Group Owner: devel+owner@edk2.groups.io Unsubscribe: https://edk2.groups.io/g/devel/unsub [importer@patchew.org] -=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-