#ifdef __RCS_ID__
static char rcsid[] = "$Header: /source/atari/gnu/lib/RCS/sldexp.c,v 1.2 89/03/25 02:43:02 bammi Exp $";
#endif /* __RCS_ID__ */

/*
 *
 * $Log:	sldexp.c,v $
 * Revision 1.2  89/03/25  02:43:02  bammi
 * applied ers diff (03/24/89) and other cleanups
 * 
 * Revision 1.1  89/03/21  16:52:20  bammi
 * ansi-ization in progress. state of the file as of (03/21/89 03:30:00)
 * 
 * 
 */

#ifdef __MSHORT__

/*
 * double ldexp(double value, int exp)
 *
 * just a dummy routine that call the real ldexp with a long second
 * parameter.
 *
 * ++jrb	bammi@dsrgsun.ces.CWRU.edu
 *
 */
#ifdef __STDC__
double __ldexp(double, long);
#else
extern double __ldexp();
#endif

double ldexp(value, ex)
double value;
int ex;
{
	return __ldexp(value, (long)ex);
}

#endif /* __MSHORT__ */