00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028 #if !defined(_SPANDSP_FAST_CONVERT_H_)
00029 #define _SPANDSP_FAST_CONVERT_H_
00030
00031 #if defined(__cplusplus)
00032 extern "C"
00033 {
00034 #endif
00035
00036
00037
00038
00039
00040
00041
00042
00043
00044
00045
00046
00047
00048
00049
00050
00051
00052
00053
00054
00055
00056
00057
00058
00059
00060
00061
00062
00063
00064
00065
00066
00067
00068
00069
00070
00071
00072
00073
00074
00075
00076
00077
00078
00079
00080
00081
00082
00083
00084 #if defined(__CYGWIN__)
00085 #if !defined(__cplusplus)
00086
00087
00088
00089
00090
00091
00092
00093
00094 static __inline__ long int lrint(double x)
00095 {
00096 long int retval;
00097
00098 __asm__ __volatile__
00099 (
00100 "fistpl %0"
00101 : "=m" (retval)
00102 : "t" (x)
00103 : "st"
00104 );
00105
00106 return retval;
00107 }
00108
00109 static __inline__ long int lrintf(float x)
00110 {
00111 long int retval;
00112
00113 __asm__ __volatile__
00114 (
00115 "fistpl %0"
00116 : "=m" (retval)
00117 : "t" (x)
00118 : "st"
00119 );
00120 return retval;
00121 }
00122 #endif
00123
00124
00125 static __inline__ long int lfastrint(double x)
00126 {
00127 long int retval;
00128
00129 __asm__ __volatile__
00130 (
00131 "fistpl %0"
00132 : "=m" (retval)
00133 : "t" (x)
00134 : "st"
00135 );
00136
00137 return retval;
00138 }
00139
00140 static __inline__ long int lfastrintf(float x)
00141 {
00142 long int retval;
00143
00144 __asm__ __volatile__
00145 (
00146 "fistpl %0"
00147 : "=m" (retval)
00148 : "t" (x)
00149 : "st"
00150 );
00151 return retval;
00152 }
00153 #elif defined(__GNUC__)
00154
00155 #if defined(__i386__)
00156
00157
00158
00159 static __inline__ long int lfastrint(double x)
00160 {
00161 long int retval;
00162
00163 __asm__ __volatile__
00164 (
00165 "fistpl %0"
00166 : "=m" (retval)
00167 : "t" (x)
00168 : "st"
00169 );
00170
00171 return retval;
00172 }
00173
00174 static __inline__ long int lfastrintf(float x)
00175 {
00176 long int retval;
00177
00178 __asm__ __volatile__
00179 (
00180 "fistpl %0"
00181 : "=m" (retval)
00182 : "t" (x)
00183 : "st"
00184 );
00185 return retval;
00186 }
00187 #elif defined(__x86_64__)
00188
00189
00190
00191 static __inline__ long int lfastrint(double x)
00192 {
00193 return (long int) (x);
00194 }
00195
00196 static __inline__ long int lfastrintf(float x)
00197 {
00198 return (long int) (x);
00199 }
00200 #elif defined(__ppc__) || defined(__powerpc__)
00201 static __inline__ long int lfastrint(register double x)
00202 {
00203 int res[2];
00204
00205 __asm__ __volatile__
00206 (
00207 "fctiw %1, %1\n\t"
00208 "stfd %1, %0"
00209 : "=m" (res)
00210 : "f" (x)
00211 : "memory"
00212 );
00213
00214 return res[1];
00215 }
00216
00217 static __inline__ long int lfastrintf(register float x)
00218 {
00219 int res[2];
00220
00221 __asm__ __volatile__
00222 (
00223 "fctiw %1, %1\n\t"
00224 "stfd %1, %0"
00225 : "=m" (res)
00226 : "f" (x)
00227 : "memory"
00228 );
00229
00230 return res[1];
00231 }
00232 #endif
00233
00234 #elif defined(_M_IX86)
00235
00236
00237
00238
00239
00240
00241 __inline long int lrint(double x)
00242 {
00243 long int i;
00244
00245 _asm
00246 {
00247 fld x
00248 fistp i
00249 };
00250 return i;
00251 }
00252
00253 __inline long int lrintf(float x)
00254 {
00255 long int i;
00256
00257 _asm
00258 {
00259 fld x
00260 fistp i
00261 };
00262 return i;
00263 }
00264
00265 __inline float rintf(float flt)
00266 {
00267 _asm
00268 { fld flt
00269 frndint
00270 }
00271 }
00272
00273 __inline double rint(double dbl)
00274 {
00275 _asm
00276 {
00277 fld dbl
00278 frndint
00279 }
00280 }
00281
00282 __inline long int lfastrint(double x)
00283 {
00284 long int i;
00285
00286 _asm
00287 {
00288 fld x
00289 fistp i
00290 };
00291 return i;
00292 }
00293
00294 __inline long int lfastrintf(float x)
00295 {
00296 long int i;
00297
00298 _asm
00299 {
00300 fld x
00301 fistp i
00302 };
00303 return i;
00304 }
00305 #elif defined(_M_X64)
00306
00307
00308 #include <intrin.h>
00309
00310 __inline long int lrint(double x)
00311 {
00312 return (long int)_mm_cvtsd_si64x( _mm_loadu_pd ((const double*)&x) );
00313 }
00314
00315 __inline long int lrintf(float x)
00316 {
00317 return _mm_cvt_ss2si( _mm_load_ss((const float*)&x) );
00318 }
00319
00320 __inline long int lfastrint(double x)
00321 {
00322 return (long int) (x);
00323 }
00324
00325 __inline long int lfastrintf(float x)
00326 {
00327 return (long int) (x);
00328 }
00329 #elif defined(__MWERKS__) && defined(macintosh)
00330
00331
00332 long int __inline__ lfastrint(register double x)
00333 {
00334 long int res[2];
00335
00336 asm
00337 {
00338 fctiw x, x
00339 stfd x, res
00340 }
00341 return res[1];
00342 }
00343
00344 long int __inline__ lfastrintf(register float x)
00345 {
00346 long int res[2];
00347
00348 asm
00349 {
00350 fctiw x, x
00351 stfd x, res
00352 }
00353 return res[1];
00354 }
00355 #elif defined(__MACH__) && defined(__APPLE__) && (defined(__ppc__) || defined(__powerpc__))
00356
00357
00358 static __inline__ long int lfastrint(register double x)
00359 {
00360 int res[2];
00361
00362 __asm__ __volatile__
00363 (
00364 "fctiw %1, %1\n\t"
00365 "stfd %1, %0"
00366 : "=m" (res)
00367 : "f" (x)
00368 : "memory"
00369 );
00370
00371 return res[1];
00372 }
00373
00374 static __inline__ long int lfastrintf(register float x)
00375 {
00376 int res[2];
00377
00378 __asm__ __volatile__
00379 (
00380 "fctiw %1, %1\n\t"
00381 "stfd %1, %0"
00382 : "=m" (res)
00383 : "f" (x)
00384 : "memory"
00385 );
00386
00387 return res[1];
00388 }
00389 #else
00390
00391
00392
00393
00394
00395 #if !defined(__sgi)
00396 #warning "No usable lrint() and lrintf() functions available."
00397 #warning "Replacing these functions with a simple C cast."
00398 #endif
00399
00400 static __inline__ long int lrint(double x)
00401 {
00402 return (long int) (x);
00403 }
00404
00405 static __inline__ long int lrintf(float x)
00406 {
00407 return (long int) (x);
00408 }
00409
00410 static __inline__ long int lfastrint(double x)
00411 {
00412 return (long int) (x);
00413 }
00414
00415 static __inline__ long int lfastrintf(float x)
00416 {
00417 return (long int) (x);
00418 }
00419 #endif
00420
00421 #if defined(__cplusplus)
00422 }
00423 #endif
00424
00425 #endif
00426
00427