annotate src/opus-1.3/silk/resampler_private_down_FIR.c @ 169:223a55898ab9 tip default

Add null config files
author Chris Cannam <cannam@all-day-breakfast.com>
date Mon, 02 Mar 2020 14:03:47 +0000
parents 4664ac0c1032
children
rev   line source
cannam@154 1 /***********************************************************************
cannam@154 2 Copyright (c) 2006-2011, Skype Limited. All rights reserved.
cannam@154 3 Redistribution and use in source and binary forms, with or without
cannam@154 4 modification, are permitted provided that the following conditions
cannam@154 5 are met:
cannam@154 6 - Redistributions of source code must retain the above copyright notice,
cannam@154 7 this list of conditions and the following disclaimer.
cannam@154 8 - Redistributions in binary form must reproduce the above copyright
cannam@154 9 notice, this list of conditions and the following disclaimer in the
cannam@154 10 documentation and/or other materials provided with the distribution.
cannam@154 11 - Neither the name of Internet Society, IETF or IETF Trust, nor the
cannam@154 12 names of specific contributors, may be used to endorse or promote
cannam@154 13 products derived from this software without specific prior written
cannam@154 14 permission.
cannam@154 15 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
cannam@154 16 AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
cannam@154 17 IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
cannam@154 18 ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
cannam@154 19 LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
cannam@154 20 CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
cannam@154 21 SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
cannam@154 22 INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
cannam@154 23 CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
cannam@154 24 ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
cannam@154 25 POSSIBILITY OF SUCH DAMAGE.
cannam@154 26 ***********************************************************************/
cannam@154 27
cannam@154 28 #ifdef HAVE_CONFIG_H
cannam@154 29 #include "config.h"
cannam@154 30 #endif
cannam@154 31
cannam@154 32 #include "SigProc_FIX.h"
cannam@154 33 #include "resampler_private.h"
cannam@154 34 #include "stack_alloc.h"
cannam@154 35
cannam@154 36 static OPUS_INLINE opus_int16 *silk_resampler_private_down_FIR_INTERPOL(
cannam@154 37 opus_int16 *out,
cannam@154 38 opus_int32 *buf,
cannam@154 39 const opus_int16 *FIR_Coefs,
cannam@154 40 opus_int FIR_Order,
cannam@154 41 opus_int FIR_Fracs,
cannam@154 42 opus_int32 max_index_Q16,
cannam@154 43 opus_int32 index_increment_Q16
cannam@154 44 )
cannam@154 45 {
cannam@154 46 opus_int32 index_Q16, res_Q6;
cannam@154 47 opus_int32 *buf_ptr;
cannam@154 48 opus_int32 interpol_ind;
cannam@154 49 const opus_int16 *interpol_ptr;
cannam@154 50
cannam@154 51 switch( FIR_Order ) {
cannam@154 52 case RESAMPLER_DOWN_ORDER_FIR0:
cannam@154 53 for( index_Q16 = 0; index_Q16 < max_index_Q16; index_Q16 += index_increment_Q16 ) {
cannam@154 54 /* Integer part gives pointer to buffered input */
cannam@154 55 buf_ptr = buf + silk_RSHIFT( index_Q16, 16 );
cannam@154 56
cannam@154 57 /* Fractional part gives interpolation coefficients */
cannam@154 58 interpol_ind = silk_SMULWB( index_Q16 & 0xFFFF, FIR_Fracs );
cannam@154 59
cannam@154 60 /* Inner product */
cannam@154 61 interpol_ptr = &FIR_Coefs[ RESAMPLER_DOWN_ORDER_FIR0 / 2 * interpol_ind ];
cannam@154 62 res_Q6 = silk_SMULWB( buf_ptr[ 0 ], interpol_ptr[ 0 ] );
cannam@154 63 res_Q6 = silk_SMLAWB( res_Q6, buf_ptr[ 1 ], interpol_ptr[ 1 ] );
cannam@154 64 res_Q6 = silk_SMLAWB( res_Q6, buf_ptr[ 2 ], interpol_ptr[ 2 ] );
cannam@154 65 res_Q6 = silk_SMLAWB( res_Q6, buf_ptr[ 3 ], interpol_ptr[ 3 ] );
cannam@154 66 res_Q6 = silk_SMLAWB( res_Q6, buf_ptr[ 4 ], interpol_ptr[ 4 ] );
cannam@154 67 res_Q6 = silk_SMLAWB( res_Q6, buf_ptr[ 5 ], interpol_ptr[ 5 ] );
cannam@154 68 res_Q6 = silk_SMLAWB( res_Q6, buf_ptr[ 6 ], interpol_ptr[ 6 ] );
cannam@154 69 res_Q6 = silk_SMLAWB( res_Q6, buf_ptr[ 7 ], interpol_ptr[ 7 ] );
cannam@154 70 res_Q6 = silk_SMLAWB( res_Q6, buf_ptr[ 8 ], interpol_ptr[ 8 ] );
cannam@154 71 interpol_ptr = &FIR_Coefs[ RESAMPLER_DOWN_ORDER_FIR0 / 2 * ( FIR_Fracs - 1 - interpol_ind ) ];
cannam@154 72 res_Q6 = silk_SMLAWB( res_Q6, buf_ptr[ 17 ], interpol_ptr[ 0 ] );
cannam@154 73 res_Q6 = silk_SMLAWB( res_Q6, buf_ptr[ 16 ], interpol_ptr[ 1 ] );
cannam@154 74 res_Q6 = silk_SMLAWB( res_Q6, buf_ptr[ 15 ], interpol_ptr[ 2 ] );
cannam@154 75 res_Q6 = silk_SMLAWB( res_Q6, buf_ptr[ 14 ], interpol_ptr[ 3 ] );
cannam@154 76 res_Q6 = silk_SMLAWB( res_Q6, buf_ptr[ 13 ], interpol_ptr[ 4 ] );
cannam@154 77 res_Q6 = silk_SMLAWB( res_Q6, buf_ptr[ 12 ], interpol_ptr[ 5 ] );
cannam@154 78 res_Q6 = silk_SMLAWB( res_Q6, buf_ptr[ 11 ], interpol_ptr[ 6 ] );
cannam@154 79 res_Q6 = silk_SMLAWB( res_Q6, buf_ptr[ 10 ], interpol_ptr[ 7 ] );
cannam@154 80 res_Q6 = silk_SMLAWB( res_Q6, buf_ptr[ 9 ], interpol_ptr[ 8 ] );
cannam@154 81
cannam@154 82 /* Scale down, saturate and store in output array */
cannam@154 83 *out++ = (opus_int16)silk_SAT16( silk_RSHIFT_ROUND( res_Q6, 6 ) );
cannam@154 84 }
cannam@154 85 break;
cannam@154 86 case RESAMPLER_DOWN_ORDER_FIR1:
cannam@154 87 for( index_Q16 = 0; index_Q16 < max_index_Q16; index_Q16 += index_increment_Q16 ) {
cannam@154 88 /* Integer part gives pointer to buffered input */
cannam@154 89 buf_ptr = buf + silk_RSHIFT( index_Q16, 16 );
cannam@154 90
cannam@154 91 /* Inner product */
cannam@154 92 res_Q6 = silk_SMULWB( silk_ADD32( buf_ptr[ 0 ], buf_ptr[ 23 ] ), FIR_Coefs[ 0 ] );
cannam@154 93 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 1 ], buf_ptr[ 22 ] ), FIR_Coefs[ 1 ] );
cannam@154 94 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 2 ], buf_ptr[ 21 ] ), FIR_Coefs[ 2 ] );
cannam@154 95 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 3 ], buf_ptr[ 20 ] ), FIR_Coefs[ 3 ] );
cannam@154 96 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 4 ], buf_ptr[ 19 ] ), FIR_Coefs[ 4 ] );
cannam@154 97 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 5 ], buf_ptr[ 18 ] ), FIR_Coefs[ 5 ] );
cannam@154 98 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 6 ], buf_ptr[ 17 ] ), FIR_Coefs[ 6 ] );
cannam@154 99 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 7 ], buf_ptr[ 16 ] ), FIR_Coefs[ 7 ] );
cannam@154 100 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 8 ], buf_ptr[ 15 ] ), FIR_Coefs[ 8 ] );
cannam@154 101 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 9 ], buf_ptr[ 14 ] ), FIR_Coefs[ 9 ] );
cannam@154 102 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 10 ], buf_ptr[ 13 ] ), FIR_Coefs[ 10 ] );
cannam@154 103 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 11 ], buf_ptr[ 12 ] ), FIR_Coefs[ 11 ] );
cannam@154 104
cannam@154 105 /* Scale down, saturate and store in output array */
cannam@154 106 *out++ = (opus_int16)silk_SAT16( silk_RSHIFT_ROUND( res_Q6, 6 ) );
cannam@154 107 }
cannam@154 108 break;
cannam@154 109 case RESAMPLER_DOWN_ORDER_FIR2:
cannam@154 110 for( index_Q16 = 0; index_Q16 < max_index_Q16; index_Q16 += index_increment_Q16 ) {
cannam@154 111 /* Integer part gives pointer to buffered input */
cannam@154 112 buf_ptr = buf + silk_RSHIFT( index_Q16, 16 );
cannam@154 113
cannam@154 114 /* Inner product */
cannam@154 115 res_Q6 = silk_SMULWB( silk_ADD32( buf_ptr[ 0 ], buf_ptr[ 35 ] ), FIR_Coefs[ 0 ] );
cannam@154 116 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 1 ], buf_ptr[ 34 ] ), FIR_Coefs[ 1 ] );
cannam@154 117 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 2 ], buf_ptr[ 33 ] ), FIR_Coefs[ 2 ] );
cannam@154 118 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 3 ], buf_ptr[ 32 ] ), FIR_Coefs[ 3 ] );
cannam@154 119 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 4 ], buf_ptr[ 31 ] ), FIR_Coefs[ 4 ] );
cannam@154 120 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 5 ], buf_ptr[ 30 ] ), FIR_Coefs[ 5 ] );
cannam@154 121 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 6 ], buf_ptr[ 29 ] ), FIR_Coefs[ 6 ] );
cannam@154 122 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 7 ], buf_ptr[ 28 ] ), FIR_Coefs[ 7 ] );
cannam@154 123 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 8 ], buf_ptr[ 27 ] ), FIR_Coefs[ 8 ] );
cannam@154 124 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 9 ], buf_ptr[ 26 ] ), FIR_Coefs[ 9 ] );
cannam@154 125 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 10 ], buf_ptr[ 25 ] ), FIR_Coefs[ 10 ] );
cannam@154 126 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 11 ], buf_ptr[ 24 ] ), FIR_Coefs[ 11 ] );
cannam@154 127 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 12 ], buf_ptr[ 23 ] ), FIR_Coefs[ 12 ] );
cannam@154 128 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 13 ], buf_ptr[ 22 ] ), FIR_Coefs[ 13 ] );
cannam@154 129 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 14 ], buf_ptr[ 21 ] ), FIR_Coefs[ 14 ] );
cannam@154 130 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 15 ], buf_ptr[ 20 ] ), FIR_Coefs[ 15 ] );
cannam@154 131 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 16 ], buf_ptr[ 19 ] ), FIR_Coefs[ 16 ] );
cannam@154 132 res_Q6 = silk_SMLAWB( res_Q6, silk_ADD32( buf_ptr[ 17 ], buf_ptr[ 18 ] ), FIR_Coefs[ 17 ] );
cannam@154 133
cannam@154 134 /* Scale down, saturate and store in output array */
cannam@154 135 *out++ = (opus_int16)silk_SAT16( silk_RSHIFT_ROUND( res_Q6, 6 ) );
cannam@154 136 }
cannam@154 137 break;
cannam@154 138 default:
cannam@154 139 celt_assert( 0 );
cannam@154 140 }
cannam@154 141 return out;
cannam@154 142 }
cannam@154 143
cannam@154 144 /* Resample with a 2nd order AR filter followed by FIR interpolation */
cannam@154 145 void silk_resampler_private_down_FIR(
cannam@154 146 void *SS, /* I/O Resampler state */
cannam@154 147 opus_int16 out[], /* O Output signal */
cannam@154 148 const opus_int16 in[], /* I Input signal */
cannam@154 149 opus_int32 inLen /* I Number of input samples */
cannam@154 150 )
cannam@154 151 {
cannam@154 152 silk_resampler_state_struct *S = (silk_resampler_state_struct *)SS;
cannam@154 153 opus_int32 nSamplesIn;
cannam@154 154 opus_int32 max_index_Q16, index_increment_Q16;
cannam@154 155 VARDECL( opus_int32, buf );
cannam@154 156 const opus_int16 *FIR_Coefs;
cannam@154 157 SAVE_STACK;
cannam@154 158
cannam@154 159 ALLOC( buf, S->batchSize + S->FIR_Order, opus_int32 );
cannam@154 160
cannam@154 161 /* Copy buffered samples to start of buffer */
cannam@154 162 silk_memcpy( buf, S->sFIR.i32, S->FIR_Order * sizeof( opus_int32 ) );
cannam@154 163
cannam@154 164 FIR_Coefs = &S->Coefs[ 2 ];
cannam@154 165
cannam@154 166 /* Iterate over blocks of frameSizeIn input samples */
cannam@154 167 index_increment_Q16 = S->invRatio_Q16;
cannam@154 168 while( 1 ) {
cannam@154 169 nSamplesIn = silk_min( inLen, S->batchSize );
cannam@154 170
cannam@154 171 /* Second-order AR filter (output in Q8) */
cannam@154 172 silk_resampler_private_AR2( S->sIIR, &buf[ S->FIR_Order ], in, S->Coefs, nSamplesIn );
cannam@154 173
cannam@154 174 max_index_Q16 = silk_LSHIFT32( nSamplesIn, 16 );
cannam@154 175
cannam@154 176 /* Interpolate filtered signal */
cannam@154 177 out = silk_resampler_private_down_FIR_INTERPOL( out, buf, FIR_Coefs, S->FIR_Order,
cannam@154 178 S->FIR_Fracs, max_index_Q16, index_increment_Q16 );
cannam@154 179
cannam@154 180 in += nSamplesIn;
cannam@154 181 inLen -= nSamplesIn;
cannam@154 182
cannam@154 183 if( inLen > 1 ) {
cannam@154 184 /* More iterations to do; copy last part of filtered signal to beginning of buffer */
cannam@154 185 silk_memcpy( buf, &buf[ nSamplesIn ], S->FIR_Order * sizeof( opus_int32 ) );
cannam@154 186 } else {
cannam@154 187 break;
cannam@154 188 }
cannam@154 189 }
cannam@154 190
cannam@154 191 /* Copy last part of filtered signal to the state for the next call */
cannam@154 192 silk_memcpy( S->sFIR.i32, &buf[ nSamplesIn ], S->FIR_Order * sizeof( opus_int32 ) );
cannam@154 193 RESTORE_STACK;
cannam@154 194 }