00001 /*This file is prepared for Doxygen automatic documentation generation.*/ 00015 /* Copyright (c) 2009 Atmel Corporation. All rights reserved. 00016 * 00017 * Redistribution and use in source and binary forms, with or without 00018 * modification, are permitted provided that the following conditions are met: 00019 * 00020 * 1. Redistributions of source code must retain the above copyright notice, this 00021 * list of conditions and the following disclaimer. 00022 * 00023 * 2. Redistributions in binary form must reproduce the above copyright notice, 00024 * this list of conditions and the following disclaimer in the documentation 00025 * and/or other materials provided with the distribution. 00026 * 00027 * 3. The name of Atmel may not be used to endorse or promote products derived 00028 * from this software without specific prior written permission. 00029 * 00030 * 4. This software may only be redistributed and used in connection with an Atmel 00031 * AVR product. 00032 * 00033 * THIS SOFTWARE IS PROVIDED BY ATMEL "AS IS" AND ANY EXPRESS OR IMPLIED 00034 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF 00035 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT ARE 00036 * EXPRESSLY AND SPECIFICALLY DISCLAIMED. IN NO EVENT SHALL ATMEL BE LIABLE FOR 00037 * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 00038 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 00039 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND 00040 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 00041 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 00042 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE 00043 * 00044 */ 00045 00046 #include "dsp.h" 00047 #include "preprocessor.h" 00048 00049 #if defined(FORCE_ALL_GENERICS) || \ 00050 defined(FORCE_GENERIC_VECT32_COMPLEX_ABS) || \ 00051 !defined(TARGET_SPECIFIC_VECT32_COMPLEX_ABS) 00052 00053 #define DSP32_COMPLEX_ABS(x_num, data) \ 00054 temp1 = vect2[x_num].real; \ 00055 temp1 = (temp1*temp1) >> DSP32_QB; \ 00056 temp2 = vect2[x_num].imag; \ 00057 temp2 = (temp2*temp2) >> DSP32_QB; \ 00058 vect1[x_num] = dsp32_op_sqrt(temp1 + temp2); 00059 00060 /********************************************************************************************* 00061 * This function is the ending function of the complex absolute. It is used to absolute the last items of a complex vector. 00062 *********************************************************************************************/ 00063 #define DSP32_COMPLEX_ABS_KERNEL_X_FCT(x_num, data) \ 00064 static void TPASTE2(dsp32_vect_complex_abs_kernel_x, x_num)(dsp32_t *vect1, dsp32_complex_t *vect2) \ 00065 { \ 00066 S32 temp1, temp2; \ 00067 MREPEAT(x_num, DSP32_COMPLEX_ABS, ""); \ 00068 } 00069 /*********************************************************************************************/ 00070 00071 static void dsp32_vect_complex_abs_kernel_x0(dsp32_t *vect1, dsp32_complex_t *vect2) 00072 { 00073 } 00074 00075 DSP32_COMPLEX_ABS_KERNEL_X_FCT(1, "") 00076 DSP32_COMPLEX_ABS_KERNEL_X_FCT(2, "") 00077 DSP32_COMPLEX_ABS_KERNEL_X_FCT(3, "") 00078 00079 void dsp32_vect_complex_abs(dsp32_t *vect1, dsp32_complex_t *vect2, int size) 00080 { 00081 typedef void (*complex_abs_kernel_opti_t)(dsp32_t *, dsp32_complex_t *); 00082 static const complex_abs_kernel_opti_t complex_abs_end_kernel_opti[4] = { 00083 dsp32_vect_complex_abs_kernel_x0, 00084 dsp32_vect_complex_abs_kernel_x1, 00085 dsp32_vect_complex_abs_kernel_x2, 00086 dsp32_vect_complex_abs_kernel_x3 00087 }; 00088 int n; 00089 S64 temp1, temp2; 00090 00091 for(n=0; n<size-3; n+=4) 00092 { 00093 DSP32_COMPLEX_ABS(n, ""); 00094 DSP32_COMPLEX_ABS(n+1, ""); 00095 DSP32_COMPLEX_ABS(n+2, ""); 00096 DSP32_COMPLEX_ABS(n+3, ""); 00097 } 00098 00099 // Jump on different functions depending on the length of the vectors to compute 00100 complex_abs_end_kernel_opti[size&0x3](&vect1[n], &vect2[n]); 00101 } 00102 00103 #endif