|
|
@ -106,42 +106,6 @@
|
|
|
|
return intgr ;
|
|
|
|
return intgr ;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
#elif (defined (__MWERKS__) && defined (macintosh))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* This MacOS 9 solution was provided by Stephane Letz */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#undef HAVE_LRINT_REPLACEMENT
|
|
|
|
|
|
|
|
#define HAVE_LRINT_REPLACEMENT 1
|
|
|
|
|
|
|
|
#include <math.h>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#undef lrint
|
|
|
|
|
|
|
|
#undef lrintf
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#define lrint double2int
|
|
|
|
|
|
|
|
#define lrintf float2int
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
inline int
|
|
|
|
|
|
|
|
float2int (float in)
|
|
|
|
|
|
|
|
{ long res [2] ;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
asm
|
|
|
|
|
|
|
|
{ fctiw in,in
|
|
|
|
|
|
|
|
stfd in,res
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
return res [1] ;
|
|
|
|
|
|
|
|
} /* float2int */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
inline int
|
|
|
|
|
|
|
|
double2int (double in)
|
|
|
|
|
|
|
|
{ long res [2] ;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
asm
|
|
|
|
|
|
|
|
{ fctiw in,in
|
|
|
|
|
|
|
|
stfd in,res
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
return res [1] ;
|
|
|
|
|
|
|
|
} /* double2int */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#elif (defined (__MACH__) && defined (__APPLE__))
|
|
|
|
#elif (defined (__MACH__) && defined (__APPLE__))
|
|
|
|
|
|
|
|
|
|
|
|
/* For Apple MacOSX. */
|
|
|
|
/* For Apple MacOSX. */
|
|
|
|