105436638acc7c010349a69c3395f1a57c642dc62Ying Wang/* Split a 'long double' into fraction and mantissa, for hexadecimal printf. 205436638acc7c010349a69c3395f1a57c642dc62Ying Wang Copyright (C) 2007, 2009-2012 Free Software Foundation, Inc. 305436638acc7c010349a69c3395f1a57c642dc62Ying Wang 405436638acc7c010349a69c3395f1a57c642dc62Ying Wang This program is free software: you can redistribute it and/or modify 505436638acc7c010349a69c3395f1a57c642dc62Ying Wang it under the terms of the GNU General Public License as published by 605436638acc7c010349a69c3395f1a57c642dc62Ying Wang the Free Software Foundation; either version 3 of the License, or 705436638acc7c010349a69c3395f1a57c642dc62Ying Wang (at your option) any later version. 805436638acc7c010349a69c3395f1a57c642dc62Ying Wang 905436638acc7c010349a69c3395f1a57c642dc62Ying Wang This program is distributed in the hope that it will be useful, 1005436638acc7c010349a69c3395f1a57c642dc62Ying Wang but WITHOUT ANY WARRANTY; without even the implied warranty of 1105436638acc7c010349a69c3395f1a57c642dc62Ying Wang MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 1205436638acc7c010349a69c3395f1a57c642dc62Ying Wang GNU General Public License for more details. 1305436638acc7c010349a69c3395f1a57c642dc62Ying Wang 1405436638acc7c010349a69c3395f1a57c642dc62Ying Wang You should have received a copy of the GNU General Public License 1505436638acc7c010349a69c3395f1a57c642dc62Ying Wang along with this program. If not, see <http://www.gnu.org/licenses/>. */ 1605436638acc7c010349a69c3395f1a57c642dc62Ying Wang 1705436638acc7c010349a69c3395f1a57c642dc62Ying Wang/* Write a finite, positive number x as 1805436638acc7c010349a69c3395f1a57c642dc62Ying Wang x = mantissa * 2^exp 1905436638acc7c010349a69c3395f1a57c642dc62Ying Wang where exp >= LDBL_MIN_EXP - 1, 2005436638acc7c010349a69c3395f1a57c642dc62Ying Wang mantissa < 2.0, 2105436638acc7c010349a69c3395f1a57c642dc62Ying Wang if x is not a denormalized number then mantissa >= 1.0. 2205436638acc7c010349a69c3395f1a57c642dc62Ying Wang Store exp in *EXPPTR and return mantissa. */ 2305436638acc7c010349a69c3395f1a57c642dc62Ying Wangextern long double printf_frexpl (long double x, int *expptr); 24