| /* | |
| * Note: tan(x) = sin(x)/cos(x) also, but the final assembly ends up being | |
| * twice as long for R600 (maybe for others as well). | |
| */ | |
| #if __CLC_FPSIZE == 32 | |
| #define __CLC_CONST(x) x ## f | |
| #else | |
| #define __CLC_CONST(x) x | |
| #endif | |
| _CLC_OVERLOAD _CLC_DEF __CLC_GENTYPE tan(__CLC_GENTYPE x) { | |
| __CLC_GENTYPE sinx = sin(x); | |
| return sinx / sqrt( (__CLC_GENTYPE) __CLC_CONST(1.0) - (sinx*sinx) ); | |
| } | |
| #undef __CLC_CONST |