17c478bd9Sstevel@tonic-gate /*
27c478bd9Sstevel@tonic-gate * CDDL HEADER START
37c478bd9Sstevel@tonic-gate *
47c478bd9Sstevel@tonic-gate * The contents of this file are subject to the terms of the
5*7257d1b4Sraf * Common Development and Distribution License (the "License").
6*7257d1b4Sraf * You may not use this file except in compliance with the License.
77c478bd9Sstevel@tonic-gate *
87c478bd9Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
97c478bd9Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing.
107c478bd9Sstevel@tonic-gate * See the License for the specific language governing permissions
117c478bd9Sstevel@tonic-gate * and limitations under the License.
127c478bd9Sstevel@tonic-gate *
137c478bd9Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each
147c478bd9Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
157c478bd9Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the
167c478bd9Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying
177c478bd9Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner]
187c478bd9Sstevel@tonic-gate *
197c478bd9Sstevel@tonic-gate * CDDL HEADER END
207c478bd9Sstevel@tonic-gate */
21*7257d1b4Sraf
227c478bd9Sstevel@tonic-gate /*
23*7257d1b4Sraf * Copyright 2008 Sun Microsystems, Inc. All rights reserved.
247c478bd9Sstevel@tonic-gate * Use is subject to license terms.
257c478bd9Sstevel@tonic-gate */
267c478bd9Sstevel@tonic-gate
277c478bd9Sstevel@tonic-gate /* Copyright (c) 1988 AT&T */
287c478bd9Sstevel@tonic-gate /* All Rights Reserved */
297c478bd9Sstevel@tonic-gate
30*7257d1b4Sraf #include "lint.h"
317c478bd9Sstevel@tonic-gate #include <errno.h>
327c478bd9Sstevel@tonic-gate #include <stdio.h>
337c478bd9Sstevel@tonic-gate #include <values.h>
347c478bd9Sstevel@tonic-gate #include <floatingpoint.h>
357c478bd9Sstevel@tonic-gate #include <stdlib.h>
367c478bd9Sstevel@tonic-gate #include <sys/types.h>
377c478bd9Sstevel@tonic-gate #include "libc.h"
387c478bd9Sstevel@tonic-gate #include "xpg6.h"
397c478bd9Sstevel@tonic-gate
407c478bd9Sstevel@tonic-gate double
strtod(const char * cp,char ** ptr)417c478bd9Sstevel@tonic-gate strtod(const char *cp, char **ptr)
427c478bd9Sstevel@tonic-gate {
437c478bd9Sstevel@tonic-gate double x;
447c478bd9Sstevel@tonic-gate decimal_mode mr;
457c478bd9Sstevel@tonic-gate decimal_record dr;
467c478bd9Sstevel@tonic-gate fp_exception_field_type fs;
477c478bd9Sstevel@tonic-gate enum decimal_string_form form;
487c478bd9Sstevel@tonic-gate char *pechar;
497c478bd9Sstevel@tonic-gate int lc;
507c478bd9Sstevel@tonic-gate
517c478bd9Sstevel@tonic-gate lc = (__xpg6 & _C99SUSv3_recognize_hexfp)? -1 : 0;
527c478bd9Sstevel@tonic-gate string_to_decimal((char **)&cp, MAXINT, lc, &dr, &form, &pechar);
537c478bd9Sstevel@tonic-gate if (ptr != NULL)
547c478bd9Sstevel@tonic-gate *ptr = (char *)cp;
557c478bd9Sstevel@tonic-gate if (form == invalid_form)
567c478bd9Sstevel@tonic-gate return (0.0); /* Shameful kluge for SVID's sake. */
577c478bd9Sstevel@tonic-gate #if defined(__sparc)
587c478bd9Sstevel@tonic-gate mr.rd = _QgetRD();
597c478bd9Sstevel@tonic-gate #elif defined(__i386) || defined(__amd64)
607c478bd9Sstevel@tonic-gate mr.rd = __xgetRD();
617c478bd9Sstevel@tonic-gate #else
627c478bd9Sstevel@tonic-gate #error Unknown architecture
637c478bd9Sstevel@tonic-gate #endif
647c478bd9Sstevel@tonic-gate if ((int)form < 0)
657c478bd9Sstevel@tonic-gate __hex_to_double(&dr, mr.rd, &x, &fs);
667c478bd9Sstevel@tonic-gate else
677c478bd9Sstevel@tonic-gate decimal_to_double(&x, &mr, &dr, &fs);
687c478bd9Sstevel@tonic-gate if (fs & ((1 << fp_overflow) | (1 << fp_underflow)))
697c478bd9Sstevel@tonic-gate errno = ERANGE;
707c478bd9Sstevel@tonic-gate return (x);
717c478bd9Sstevel@tonic-gate }
727c478bd9Sstevel@tonic-gate
737c478bd9Sstevel@tonic-gate float
strtof(const char * cp,char ** ptr)747c478bd9Sstevel@tonic-gate strtof(const char *cp, char **ptr)
757c478bd9Sstevel@tonic-gate {
767c478bd9Sstevel@tonic-gate float x;
777c478bd9Sstevel@tonic-gate decimal_mode mr;
787c478bd9Sstevel@tonic-gate decimal_record dr;
797c478bd9Sstevel@tonic-gate fp_exception_field_type fs;
807c478bd9Sstevel@tonic-gate enum decimal_string_form form;
817c478bd9Sstevel@tonic-gate char *pechar;
827c478bd9Sstevel@tonic-gate
837c478bd9Sstevel@tonic-gate string_to_decimal((char **)&cp, MAXINT, -1, &dr, &form, &pechar);
847c478bd9Sstevel@tonic-gate if (ptr != NULL)
857c478bd9Sstevel@tonic-gate *ptr = (char *)cp;
867c478bd9Sstevel@tonic-gate if (form == invalid_form)
877c478bd9Sstevel@tonic-gate return (0.0f);
887c478bd9Sstevel@tonic-gate #if defined(__sparc)
897c478bd9Sstevel@tonic-gate mr.rd = _QgetRD();
907c478bd9Sstevel@tonic-gate #elif defined(__i386) || defined(__amd64)
917c478bd9Sstevel@tonic-gate mr.rd = __xgetRD();
927c478bd9Sstevel@tonic-gate #else
937c478bd9Sstevel@tonic-gate #error Unknown architecture
947c478bd9Sstevel@tonic-gate #endif
957c478bd9Sstevel@tonic-gate if ((int)form < 0)
967c478bd9Sstevel@tonic-gate __hex_to_single(&dr, mr.rd, &x, &fs);
977c478bd9Sstevel@tonic-gate else
987c478bd9Sstevel@tonic-gate decimal_to_single(&x, &mr, &dr, &fs);
997c478bd9Sstevel@tonic-gate if (fs & ((1 << fp_overflow) | (1 << fp_underflow)))
1007c478bd9Sstevel@tonic-gate errno = ERANGE;
1017c478bd9Sstevel@tonic-gate return (x);
1027c478bd9Sstevel@tonic-gate }
1037c478bd9Sstevel@tonic-gate
1047c478bd9Sstevel@tonic-gate long double
strtold(const char * cp,char ** ptr)1057c478bd9Sstevel@tonic-gate strtold(const char *cp, char **ptr)
1067c478bd9Sstevel@tonic-gate {
1077c478bd9Sstevel@tonic-gate long double x;
1087c478bd9Sstevel@tonic-gate decimal_mode mr;
1097c478bd9Sstevel@tonic-gate decimal_record dr;
1107c478bd9Sstevel@tonic-gate fp_exception_field_type fs;
1117c478bd9Sstevel@tonic-gate enum decimal_string_form form;
1127c478bd9Sstevel@tonic-gate char *pechar;
1137c478bd9Sstevel@tonic-gate
1147c478bd9Sstevel@tonic-gate string_to_decimal((char **)&cp, MAXINT, -1, &dr, &form, &pechar);
1157c478bd9Sstevel@tonic-gate if (ptr != NULL)
1167c478bd9Sstevel@tonic-gate *ptr = (char *)cp;
1177c478bd9Sstevel@tonic-gate if (form == invalid_form)
1187c478bd9Sstevel@tonic-gate return (0.0L);
1197c478bd9Sstevel@tonic-gate #if defined(__sparc)
1207c478bd9Sstevel@tonic-gate mr.rd = _QgetRD();
1217c478bd9Sstevel@tonic-gate if ((int)form < 0)
1227c478bd9Sstevel@tonic-gate __hex_to_quadruple(&dr, mr.rd, &x, &fs);
1237c478bd9Sstevel@tonic-gate else
1247c478bd9Sstevel@tonic-gate decimal_to_quadruple(&x, &mr, &dr, &fs);
1257c478bd9Sstevel@tonic-gate #elif defined(__i386) || defined(__amd64)
1267c478bd9Sstevel@tonic-gate mr.rd = __xgetRD();
1277c478bd9Sstevel@tonic-gate if ((int)form < 0)
1287c478bd9Sstevel@tonic-gate __hex_to_extended(&dr, mr.rd, (extended *)&x, &fs);
1297c478bd9Sstevel@tonic-gate else
1307c478bd9Sstevel@tonic-gate decimal_to_extended((extended *)&x, &mr, &dr, &fs);
1317c478bd9Sstevel@tonic-gate #else
1327c478bd9Sstevel@tonic-gate #error Unknown architecture
1337c478bd9Sstevel@tonic-gate #endif
1347c478bd9Sstevel@tonic-gate if (fs & ((1 << fp_overflow) | (1 << fp_underflow)))
1357c478bd9Sstevel@tonic-gate errno = ERANGE;
1367c478bd9Sstevel@tonic-gate return (x);
1377c478bd9Sstevel@tonic-gate }
138