From patchwork Mon Sep 25 11:03:46 2017 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Szabolcs Nagy X-Patchwork-Id: 23128 Received: (qmail 18313 invoked by alias); 25 Sep 2017 11:03:59 -0000 Mailing-List: contact libc-alpha-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: libc-alpha-owner@sourceware.org Delivered-To: mailing list libc-alpha@sourceware.org Received: (qmail 18284 invoked by uid 89); 25 Sep 2017 11:03:57 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-24.0 required=5.0 tests=AWL, BAYES_00, GIT_PATCH_0, GIT_PATCH_1, GIT_PATCH_2, GIT_PATCH_3, KAM_ASCII_DIVIDERS, RCVD_IN_DNSWL_NONE, SPF_HELO_PASS, SPF_PASS autolearn=ham version=3.3.2 spammy= X-HELO: EUR01-HE1-obe.outbound.protection.outlook.com Authentication-Results: spf=none (sender IP is ) smtp.mailfrom=Szabolcs.Nagy@arm.com; Message-ID: <59C8E292.6030505@arm.com> Date: Mon, 25 Sep 2017 12:03:46 +0100 From: Szabolcs Nagy User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:31.0) Gecko/20100101 Thunderbird/31.8.0 MIME-Version: 1.0 To: GNU C Library CC: nd@arm.com Subject: [PATCH 3/7 v2] New generic log2f References: <59C8E136.6070606@arm.com> In-Reply-To: <59C8E136.6070606@arm.com> X-ClientProxiedBy: VI1PR0401CA0017.eurprd04.prod.outlook.com (2603:10a6:800:4a::27) To AM5PR0802MB2481.eurprd08.prod.outlook.com (2603:10a6:203:97::23) X-MS-PublicTrafficType: Email X-MS-Office365-Filtering-Correlation-Id: edfe472d-48e2-43fe-e793-08d504051a44 X-MS-Office365-Filtering-HT: Tenant X-Microsoft-Antispam: UriScan:; BCL:0; PCL:0; RULEID:(22001)(2017030254152)(48565401081)(2017052603199)(49563074)(201703131423075)(201703031133081)(201702281549075); SRVR:AM5PR0802MB2481; X-Microsoft-Exchange-Diagnostics: 1; AM5PR0802MB2481; 3:79xpHh9BS/7xGvqbp8F5/RoKKxiVWKeXR3lXDvlMvVxe5wJMlCnZ94ZT7tNm6KuENrKfW0KDQqNMgGql/gl3E1nd89gWRrLPVMaGNvLXKbZJIURgLSQkEcFD9z+1gXAAqIWKAX6PWCisYjzUAb9gvL9QSAeg+J68GD9mjNLHNX8X6C7IaU6dDhdYtmeW65BBGcRl/CWozUn29ZMInuEZD9/60i8f/5hwizexp/C7abyrLVq7E8rrQ49y8EuRupoV; 25:9gD9LOdOcBL95pTLC3LQitZDnlrtZ9XgJtKjk2YtPjB+1PXRXyAyl49HMJdlOj8p6aZM237zLTsENT8opNh3e4LcXdIHd/DPTAOue/ERcUQ9+ynilsLEQDZh2pwTYl2bXgM0ZMtRW9fRDxF5oDM7xd6vGfHrwxQmpKMd7pgKXB6f7dy/Qp/WDztbTkaXy6q9yMecotJKkj8oTA18KjGRFcof1lNJ7fMtrM+E1xYSym71XboDnUQwIawE0gRB+v8mHVlJ+SEiNzyAxDzz5puY1jNV1adC9CNNP2RZHLuwLtS7tD16fqYxyJf3dkoCx6IS0+9BZY8Lx2WvB3n2cIGpjw==; 31:1xOsYvRrN1X/TKH2zwodFhvyYexmZNVWWJ0aFkFgOzmcPXow2KLN6BWyEBGVnjZ+rki+M31g5kO9eDG3qXVWF/OmbL0u+oh3FOP18So6SmO+1EELudHc9RIkBaMe8wjIVa3+JCwyBymIWSrG6bzhz2Q6SOQebG8oCnXbzrZsP1yJzA5RVG3USWTQH/C+DVWZ2kuW/38rhQpGKzTCNVEqj1V35A73Hrqx06KzKHJ/t2E= X-MS-TrafficTypeDiagnostic: AM5PR0802MB2481: NoDisclaimer: True X-Microsoft-Exchange-Diagnostics: 1; AM5PR0802MB2481; 20:KH8mo2zrCdK7YuFb+cke9xUqp2OXIt3qYDWMaAZbiF0nTqvoLGFxcYy6U/Ss2uNarb8BP+y6Vqt5xVIqTTbQycpPBzt4eUKSlgqD0qdgzEAjVZ+5MCnTbV9QFF8oB0V978h9Xy5aIK4sbTac044q/F6BUq8PWuKxfUU2QITf22M=; 4:BG4O9yhRhBhgjI2X5lR9xTDa356BLv25ekbS2bi6vHi5GD/VBxt26qpfZbf0+9LxEmHCW+1irLqxIfMW0TYqeAn6CjHMrDbcJ53x6a3NHa3TBWRTpSEoEasByZ7lFMFUt64sQXFW5O1eyqboqbQMF4djt/Frh706zUAZZef3Fu5JeovuYcrRaid/RlEZchVotenZPTAJdLtbECbchW3Uf2DCt9xK2HfDGAbGzqsBmO02D2I8n3EFVqE6lmVScQ4E X-Exchange-Antispam-Report-Test: UriScan:; X-Microsoft-Antispam-PRVS: X-Exchange-Antispam-Report-CFA-Test: BCL:0; PCL:0; RULEID:(100000700101)(100105000095)(100000701101)(100105300095)(100000702101)(100105100095)(102415395)(6040450)(2401047)(5005006)(8121501046)(10201501046)(100000703101)(100105400095)(3002001)(93006095)(93001095)(6055026)(6041248)(20161123560025)(20161123558100)(20161123555025)(20161123562025)(20161123564025)(201703131423075)(201702281528075)(201703061421075)(201703061406153)(6072148)(201708071742011)(100000704101)(100105200095)(100000705101)(100105500095); SRVR:AM5PR0802MB2481; BCL:0; PCL:0; RULEID:(100000800101)(100110000095)(100000801101)(100110300095)(100000802101)(100110100095)(100000803101)(100110400095)(100000804101)(100110200095)(100000805101)(100110500095); SRVR:AM5PR0802MB2481; X-Forefront-PRVS: 04410E544A X-Forefront-Antispam-Report: SFV:NSPM; SFS:(10009020)(6049001)(6009001)(39830400002)(376002)(346002)(199003)(189002)(4610100001)(8676002)(101416001)(7736002)(97736004)(72206003)(36756003)(25786009)(83506001)(66066001)(64126003)(80316001)(65806001)(4326008)(65956001)(84326002)(16526017)(316002)(76176999)(54356999)(58126008)(8936002)(2906002)(5000100001)(53936002)(50986999)(478600001)(16576012)(189998001)(33656002)(2476003)(3846002)(6916009)(6116002)(6666003)(59896002)(2950100002)(105586002)(68736007)(16586007)(65816999)(568964002)(305945005)(87266999)(86362001)(5890100001)(5660300001)(270700001)(106356001)(77096006)(6486002)(564344004)(81156014)(81166006)(41533002); DIR:OUT; SFP:1101; SCL:1; SRVR:AM5PR0802MB2481; H:[10.2.206.69]; FPR:; SPF:None; PTR:InfoNoRecords; A:1; MX:1; LANG:en; Received-SPF: None (protection.outlook.com: arm.com does not designate permitted sender hosts) X-Microsoft-Exchange-Diagnostics: =?us-ascii?Q?1; AM5PR0802MB2481; 23:eLRF9LxQ54vyXjcj2fma8FmoZQnA4PRW4Gv7wWR?= =?us-ascii?Q?8Z0mIVM9A3FDbQyNAikMZJMFVEUunCgz4aE8Hfrcm1gYG2rAad5C3HKwYQcC?= =?us-ascii?Q?voWbQH8DmW6Z8fj72wodZitPAhs0+D7nTv8b+4AonoCUgrTACHVJwbX8OIf5?= =?us-ascii?Q?IRdWVwvVYtw+eLVQ5RZ9DCOfMEfvjTuMSlSo0RGP1I015ZYMPEMFB7lIcnTK?= =?us-ascii?Q?rPqSKBQtNs/cXoZpcwAjnG4h8iMawz7iTi2ylc0VWLw/wK7iLLt8MuSFYGTz?= =?us-ascii?Q?/V5hCacN0yZlVLlLb+P/DFFSzChALRkvEalZV3iYObAyHTScCcf98l3X6wLf?= =?us-ascii?Q?2+4D+CNwfPuLikaWFwK/wOdeTYZSFcyw9skShZf9UWsLHcUzyBJMb5Y4H6Vg?= =?us-ascii?Q?obafKEC1evwUmoiC8xyz9BqDhZqiWAKbdTwqD8yU1vh5wfSZSvFrpOHNvqbz?= =?us-ascii?Q?vggUL3vmmvwtfVCiSn7dXVWxoh39dz5xeCwHSEnuN0k9CdOxBLP4aqyXkZkf?= =?us-ascii?Q?N4SheeTkG9rVYkpiJ/TA7giGceoUrF7buzZQGv0YfXBCRZ2qjAsDwJ76uu9x?= =?us-ascii?Q?OBm/KZFu/WqiNdYw6j1JASojNe68BM+jiFZS9U2Ts8K8fp1gZKPxfi4KSxiU?= =?us-ascii?Q?UILbJoFkbMt3D861G5PpM6XWDnIUktWwwE86EJjrqP+hh9bC29WXlHakLzmg?= =?us-ascii?Q?wb8yZuVl85IRS/xofPtiESRFn0v/kfh2eGBpQ7jtyjiuNjFuGSgH+pDmZa9N?= =?us-ascii?Q?11FGLC0VVORGGnbd3wO3wC6mMLaTqwAXI2JYvb43VSlIguniCp+V+BvWoUIw?= =?us-ascii?Q?f+yjAuxYtQQJnLJzNsNXOddt8jZJKq3cD4M/6L19YZ2K86YF1FikIAH5rZ3p?= =?us-ascii?Q?Pf7w6NdiavRZD/JMf/T0PUqcMTqbgCvRJkxz4adhZ2Fbw3ACLsPzyvO0xjKQ?= =?us-ascii?Q?pYyQGsX+v4UYcjEX9/1hut9/Kw+01lU62cxjcCNmG7rkjKKS3Dkbgadttn+k?= =?us-ascii?Q?1onwOABCYDUvU2YXHQPf1tpccTEe8+uOp5D7aVNbh2/0vG4Q59zznOj1cqdG?= =?us-ascii?Q?yIShWsiz4PFsuFjsIAQaW/NQtyLYPS67ggWPgd2aoOOQfe57LNbakJOBuUzL?= =?us-ascii?Q?MN3SzL94SXf2pPlRkHqlojczmPTFAWF4/yM8XGg1O3qN7fEzE2HwRdGG517B?= =?us-ascii?Q?DjpLXNgwXGUgRaf47y9zoQVSzL+qVRgHfaErZzyIfEV3yNcDLvfWzHb24bkc?= =?us-ascii?Q?1SzKdUdGXol8AkKSWYqWEfaZWpQsn98bcHDRVDxVYH+La/rCHHhug1Coho6s?= =?us-ascii?Q?DSBoYt9GhLQ39pQwRgLfeKGKbqFGW0dwwjbvGF3x1V4LcCYpF4SJGfsBgY6b?= =?us-ascii?Q?hsAew0TUTQ3jlelil8WL76oS22Ek7QBJKSMGSiq3SNSkotrHjkCZDL8XU5Tj?= =?us-ascii?Q?ld4iBJ9LUSpnaBHNiax/Pgq5hRBhaiqA=3D?= X-Microsoft-Exchange-Diagnostics: 1; AM5PR0802MB2481; 6:cgvulZ0bGJXBIHcKKsVm1CefuXxBcjpfor89t9/hZOW03RSKtezEwyTPWvrbgZmMIClnARZncwV2SZRc4ZPtvYqZ/TywB9VdpZ/tyJolms9CUYc3nmEHjreLD/HtXBzeC6YxLaGDD21JvAD5/uFPYoHp4hc3karH+ySXy5cysRSm3ZOU1KYaw6pKAoesZ/bmN/ePAV+5lB62goqYqKVKQvS4/MiotBZAd1DaRhnlA7LXmyiiw1OSq9UzZ/VF0k/bHDK1lvzom7UH1s+D5KwdbHr0/LxW3jhakCDIa695QObTCJ6QKYs9tLStLeSu+XrPjzgr8gXlkaGGP2Bm34wOXg==; 5:aomu0goMZbu1hRzlSH0DMD/CUTiQPSv/t0Xj5OrcGJjSlfhh1HsvCyrcTgsCW/ddX33QjhG3chSO/r53q835JyQ6DdAGN9QwWpJjkuPFoa4n8ijFo8+SBUowEI2bmv2tu2hb3D4in30e0YQo8acMzw==; 24:lXa1ydlegnNckE5Xte2HyxVW8Pcu+m9OKDb+9jOAukuA0wRjaPc1L/9mr0tgGDUEvwvecmvROlylrGePSje65R5WzRXlPb5cD30WvZsxw3Q=; 7:oQYfnkU1Xr1vEmPcLs8ZjZ0HlS2P/x4BUiBFBL8PwTBGa4Ij4+he2mu9yoDy8pWaaR7zpOnoHg3wbZ38CEeG9c0xAA5Z+IBw7OdPtjR7fyqmHm4r/lTXpgE/079x7jvOLVuByvfcDna+cddqOPty+VQ00uXEEpLpoMYCQ4st8aQuzfqR0yNAjf86vzSpEidFwpKN3OcIAOo3qCfK4WFPZawguFk1YdSK18ChNuHiVxs= SpamDiagnosticOutput: 1:99 SpamDiagnosticMetadata: NSPM X-OriginatorOrg: arm.com X-MS-Exchange-CrossTenant-OriginalArrivalTime: 25 Sep 2017 11:03:49.8926 (UTC) X-MS-Exchange-CrossTenant-FromEntityHeader: Hosted X-MS-Exchange-CrossTenant-Id: f34e5979-57d9-4aaa-ad4d-b122a662184d X-MS-Exchange-Transport-CrossTenantHeadersStamped: AM5PR0802MB2481 v2: - __log2f_data is attribute_hidden From e931f4585585e39ccb5f1f3a29debe670eb53629 Mon Sep 17 00:00:00 2001 From: Szabolcs Nagy Date: Mon, 4 Sep 2017 17:53:47 +0100 Subject: [PATCH 3/7] New generic log2f Similar to the new logf: double precision arithmetics and a small lookup table is used. The argument reduction step is the same as in the new logf. without wrapper on aarch64: log2f reciprocal-throughput: 2.3x faster log2f latency: 2.1x faster old worst case error: 1.72 ulp new worst case error: 0.75 ulp aarch64 .text size: -252 bytes aarch64 .rodata size: +244 bytes 2017-09-19 Szabolcs Nagy * math/Makefile (type-float-routines): Add e_log2f_data. * sysdeps/ieee754/flt-32/e_log2f.c: New implementation. * sysdeps/ieee754/flt-32/e_log2f_data.c: New file. * sysdeps/ieee754/flt-32/math_config.h (__log2f_data): Define. (LOG2F_TABLE_BITS, LOG2F_POLY_ORDER): Define. * sysdeps/i386/fpu/e_log2f_data.c: New file. * sysdeps/ia64/fpu/e_log2f_data.c: New file. * sysdeps/m68k/m680x0/fpu/e_log2f_data.c: New file. --- math/Makefile | 3 +- sysdeps/i386/fpu/e_log2f_data.c | 1 + sysdeps/ia64/fpu/e_log2f_data.c | 1 + sysdeps/ieee754/flt-32/e_log2f.c | 148 +++++++++++++++++---------------- sysdeps/ieee754/flt-32/e_log2f_data.c | 44 ++++++++++ sysdeps/ieee754/flt-32/math_config.h | 11 +++ sysdeps/m68k/m680x0/fpu/e_log2f_data.c | 1 + 7 files changed, 135 insertions(+), 74 deletions(-) create mode 100644 sysdeps/i386/fpu/e_log2f_data.c create mode 100644 sysdeps/ia64/fpu/e_log2f_data.c create mode 100644 sysdeps/ieee754/flt-32/e_log2f_data.c create mode 100644 sysdeps/m68k/m680x0/fpu/e_log2f_data.c diff --git a/math/Makefile b/math/Makefile index 919fec13ef..b4b3101592 100644 --- a/math/Makefile +++ b/math/Makefile @@ -115,7 +115,8 @@ type-double-routines := branred doasin dosincos halfulp mpa mpatan2 \ # float support type-float-suffix := f -type-float-routines := k_rem_pio2f math_errf e_exp2f_data e_logf_data +type-float-routines := k_rem_pio2f math_errf e_exp2f_data e_logf_data \ + e_log2f_data # _Float128 support type-float128-suffix := f128 diff --git a/sysdeps/i386/fpu/e_log2f_data.c b/sysdeps/i386/fpu/e_log2f_data.c new file mode 100644 index 0000000000..1cc8931700 --- /dev/null +++ b/sysdeps/i386/fpu/e_log2f_data.c @@ -0,0 +1 @@ +/* Not needed. */ diff --git a/sysdeps/ia64/fpu/e_log2f_data.c b/sysdeps/ia64/fpu/e_log2f_data.c new file mode 100644 index 0000000000..1cc8931700 --- /dev/null +++ b/sysdeps/ia64/fpu/e_log2f_data.c @@ -0,0 +1 @@ +/* Not needed. */ diff --git a/sysdeps/ieee754/flt-32/e_log2f.c b/sysdeps/ieee754/flt-32/e_log2f.c index 782d901094..6c42f27843 100644 --- a/sysdeps/ieee754/flt-32/e_log2f.c +++ b/sysdeps/ieee754/flt-32/e_log2f.c @@ -1,86 +1,88 @@ -/* e_logf.c -- float version of e_log.c. - * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com. - * adapted for log2 by Ulrich Drepper - */ +/* Single-precision log2 function. + Copyright (C) 2017 Free Software Foundation, Inc. + This file is part of the GNU C Library. -/* - * ==================================================== - * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. - * - * Developed at SunPro, a Sun Microsystems, Inc. business. - * Permission to use, copy, modify, and distribute this - * software is freely granted, provided that this notice - * is preserved. - * ==================================================== - */ + The GNU C Library is free software; you can redistribute it and/or + modify it under the terms of the GNU Lesser General Public + License as published by the Free Software Foundation; either + version 2.1 of the License, or (at your option) any later version. + + The GNU C Library is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + Lesser General Public License for more details. + You should have received a copy of the GNU Lesser General Public + License along with the GNU C Library; if not, see + . */ #include -#include -#include +#include +#include "math_config.h" + +/* +LOG2F_TABLE_BITS = 4 +LOG2F_POLY_ORDER = 4 -static const float -ln2 = 0.69314718055994530942, -two25 = 3.355443200e+07, /* 0x4c000000 */ -Lg1 = 6.6666668653e-01, /* 3F2AAAAB */ -Lg2 = 4.0000000596e-01, /* 3ECCCCCD */ -Lg3 = 2.8571429849e-01, /* 3E924925 */ -Lg4 = 2.2222198546e-01, /* 3E638E29 */ -Lg5 = 1.8183572590e-01, /* 3E3A3325 */ -Lg6 = 1.5313838422e-01, /* 3E1CD04F */ -Lg7 = 1.4798198640e-01; /* 3E178897 */ +ULP error: 0.752 (nearest rounding.) +Relative error: 1.9 * 2^-26 (before rounding.) +*/ -static const float zero = 0.0; +#define N (1 << LOG2F_TABLE_BITS) +#define T __log2f_data.tab +#define A __log2f_data.poly +#define OFF 0x3f330000 float -__ieee754_log2f(float x) +__ieee754_log2f (float x) { - float hfsq,f,s,z,R,w,t1,t2,dk; - int32_t k,ix,i,j; + /* double_t for better performance on targets with FLT_EVAL_METHOD==2. */ + double_t z, r, r2, p, y, y0, invc, logc; + uint32_t ix, iz, top, tmp; + int k, i; + + ix = asuint (x); +#if WANT_ROUNDING + /* Fix sign of zero with downward rounding when x==1. */ + if (__glibc_unlikely (ix == 0x3f800000)) + return 0; +#endif + if (__glibc_unlikely (ix - 0x00800000 >= 0x7f800000 - 0x00800000)) + { + /* x < 0x1p-126 or inf or nan. */ + if (ix * 2 == 0) + return __math_divzerof (1); + if (ix == 0x7f800000) /* log2(inf) == inf. */ + return x; + if ((ix & 0x80000000) || ix * 2 >= 0xff000000) + return __math_invalidf (x); + /* x is subnormal, normalize it. */ + ix = asuint (x * 0x1p23f); + ix -= 23 << 23; + } + + /* x = 2^k z; where z is in range [OFF,2*OFF] and exact. + The range is split into N subintervals. + The ith subinterval contains z and c is near its center. */ + tmp = ix - OFF; + i = (tmp >> (23 - LOG2F_TABLE_BITS)) % N; + top = tmp & 0xff800000; + iz = ix - top; + k = (int32_t) tmp >> 23; /* arithmetic shift */ + invc = T[i].invc; + logc = T[i].logc; + z = (double_t) asfloat (iz); - GET_FLOAT_WORD(ix,x); + /* log2(x) = log1p(z/c-1)/ln2 + log2(c) + k */ + r = z * invc - 1; + y0 = logc + (double_t) k; - k=0; - if (ix < 0x00800000) { /* x < 2**-126 */ - if (__builtin_expect((ix&0x7fffffff)==0, 0)) - return -two25/__fabsf (x); /* log(+-0)=-inf */ - if (__builtin_expect(ix<0, 0)) - return (x-x)/(x-x); /* log(-#) = NaN */ - k -= 25; x *= two25; /* subnormal number, scale up x */ - GET_FLOAT_WORD(ix,x); - } - if (__builtin_expect(ix >= 0x7f800000, 0)) return x+x; - k += (ix>>23)-127; - ix &= 0x007fffff; - i = (ix+(0x95f64<<3))&0x800000; - SET_FLOAT_WORD(x,ix|(i^0x3f800000)); /* normalize x or x/2 */ - k += (i>>23); - dk = (float)k; - f = x-(float)1.0; - if((0x007fffff&(15+ix))<16) { /* |f| < 2**-20 */ - if(f==zero) - { - if (FIX_INT_FP_CONVERT_ZERO && dk == 0.0f) - dk = 0.0f; - return dk; - } - R = f*f*((float)0.5-(float)0.33333333333333333*f); - return dk-(R-f)/ln2; - } - s = f/((float)2.0+f); - z = s*s; - i = ix-(0x6147a<<3); - w = z*z; - j = (0x6b851<<3)-ix; - t1= w*(Lg2+w*(Lg4+w*Lg6)); - t2= z*(Lg1+w*(Lg3+w*(Lg5+w*Lg7))); - i |= j; - R = t2+t1; - if(i>0) { - hfsq=(float)0.5*f*f; - return dk-((hfsq-(s*(hfsq+R)))-f)/ln2; - } else { - return dk-((s*(f-R))-f)/ln2; - } + /* Pipelined polynomial evaluation to approximate log1p(r)/ln2. */ + r2 = r * r; + y = A[1] * r + A[2]; + y = A[0] * r2 + y; + p = A[3] * r + y0; + y = y * r2 + p; + return (float) y; } strong_alias (__ieee754_log2f, __log2f_finite) diff --git a/sysdeps/ieee754/flt-32/e_log2f_data.c b/sysdeps/ieee754/flt-32/e_log2f_data.c new file mode 100644 index 0000000000..e39de3ba56 --- /dev/null +++ b/sysdeps/ieee754/flt-32/e_log2f_data.c @@ -0,0 +1,44 @@ +/* Data definition for log2f. + Copyright (C) 2017 Free Software Foundation, Inc. + This file is part of the GNU C Library. + + The GNU C Library is free software; you can redistribute it and/or + modify it under the terms of the GNU Lesser General Public + License as published by the Free Software Foundation; either + version 2.1 of the License, or (at your option) any later version. + + The GNU C Library is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + Lesser General Public License for more details. + + You should have received a copy of the GNU Lesser General Public + License along with the GNU C Library; if not, see + . */ + +#include "math_config.h" + +const struct log2f_data __log2f_data = { + .tab = { + { 0x1.661ec79f8f3bep+0, -0x1.efec65b963019p-2 }, + { 0x1.571ed4aaf883dp+0, -0x1.b0b6832d4fca4p-2 }, + { 0x1.49539f0f010bp+0, -0x1.7418b0a1fb77bp-2 }, + { 0x1.3c995b0b80385p+0, -0x1.39de91a6dcf7bp-2 }, + { 0x1.30d190c8864a5p+0, -0x1.01d9bf3f2b631p-2 }, + { 0x1.25e227b0b8eap+0, -0x1.97c1d1b3b7afp-3 }, + { 0x1.1bb4a4a1a343fp+0, -0x1.2f9e393af3c9fp-3 }, + { 0x1.12358f08ae5bap+0, -0x1.960cbbf788d5cp-4 }, + { 0x1.0953f419900a7p+0, -0x1.a6f9db6475fcep-5 }, + { 0x1p+0, 0x0p+0 }, + { 0x1.e608cfd9a47acp-1, 0x1.338ca9f24f53dp-4 }, + { 0x1.ca4b31f026aap-1, 0x1.476a9543891bap-3 }, + { 0x1.b2036576afce6p-1, 0x1.e840b4ac4e4d2p-3 }, + { 0x1.9c2d163a1aa2dp-1, 0x1.40645f0c6651cp-2 }, + { 0x1.886e6037841edp-1, 0x1.88e9c2c1b9ff8p-2 }, + { 0x1.767dcf5534862p-1, 0x1.ce0a44eb17bccp-2 }, + }, + .poly = { + -0x1.712b6f70a7e4dp-2, 0x1.ecabf496832ep-2, -0x1.715479ffae3dep-1, + 0x1.715475f35c8b8p0, + } +}; diff --git a/sysdeps/ieee754/flt-32/math_config.h b/sysdeps/ieee754/flt-32/math_config.h index 9dde0f98eb..cca0b53d36 100644 --- a/sysdeps/ieee754/flt-32/math_config.h +++ b/sysdeps/ieee754/flt-32/math_config.h @@ -123,4 +123,15 @@ extern const struct logf_data double poly[LOGF_POLY_ORDER]; } __logf_data attribute_hidden; +#define LOG2F_TABLE_BITS 4 +#define LOG2F_POLY_ORDER 4 +extern const struct log2f_data +{ + struct + { + double invc, logc; + } tab[1 << LOG2F_TABLE_BITS]; + double poly[LOG2F_POLY_ORDER]; +} __log2f_data attribute_hidden; + #endif diff --git a/sysdeps/m68k/m680x0/fpu/e_log2f_data.c b/sysdeps/m68k/m680x0/fpu/e_log2f_data.c new file mode 100644 index 0000000000..1cc8931700 --- /dev/null +++ b/sysdeps/m68k/m680x0/fpu/e_log2f_data.c @@ -0,0 +1 @@ +/* Not needed. */ -- 2.11.0