1*1e651e1eSRoland Levillain 2*1e651e1eSRoland Levillain /* @(#)s_ldexp.c 1.3 95/01/18 */ 3*1e651e1eSRoland Levillain /* 4*1e651e1eSRoland Levillain * ==================================================== 5*1e651e1eSRoland Levillain * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. 6*1e651e1eSRoland Levillain * 7*1e651e1eSRoland Levillain * Developed at SunSoft, a Sun Microsystems, Inc. business. 8*1e651e1eSRoland Levillain * Permission to use, copy, modify, and distribute this 9*1e651e1eSRoland Levillain * software is freely granted, provided that this notice 10*1e651e1eSRoland Levillain * is preserved. 11*1e651e1eSRoland Levillain * ==================================================== 12*1e651e1eSRoland Levillain */ 13*1e651e1eSRoland Levillain 14*1e651e1eSRoland Levillain #include "fdlibm.h" 15*1e651e1eSRoland Levillain #include <errno.h> 16*1e651e1eSRoland Levillain 17*1e651e1eSRoland Levillain #ifdef __STDC__ ieee_ldexp(double value,int exp)18*1e651e1eSRoland Levillain double ieee_ldexp(double value, int exp) 19*1e651e1eSRoland Levillain #else 20*1e651e1eSRoland Levillain double ieee_ldexp(value, exp) 21*1e651e1eSRoland Levillain double value; int exp; 22*1e651e1eSRoland Levillain #endif 23*1e651e1eSRoland Levillain { 24*1e651e1eSRoland Levillain if(!ieee_finite(value)||value==0.0) return value; 25*1e651e1eSRoland Levillain value = ieee_scalbn(value,exp); 26*1e651e1eSRoland Levillain if(!ieee_finite(value)||value==0.0) errno = ERANGE; 27*1e651e1eSRoland Levillain return value; 28*1e651e1eSRoland Levillain } 29