scalbln.c   [plain text]

/*
 * scalbln.c
 *
 *		by Ian Ollmann
 *
 *	Copyright (c) 2007, Apple Inc.  All Rights Reserved. 
 *
 *	C99 impelemtnation of scalbln().
 */
 
#include <math.h>
#include <stdint.h>

double scalbln( double x, long i )
{
	if( i > 3000L )
		i = 3000L;
	if( i < -3000L )
		i = -3000L;

	return scalbn( x, (int) i );
}