michael@0: /*********************************************************************** michael@0: Copyright (c) 2006-2011, Skype Limited. All rights reserved. michael@0: Redistribution and use in source and binary forms, with or without michael@0: modification, are permitted provided that the following conditions michael@0: are met: michael@0: - Redistributions of source code must retain the above copyright notice, michael@0: this list of conditions and the following disclaimer. michael@0: - Redistributions in binary form must reproduce the above copyright michael@0: notice, this list of conditions and the following disclaimer in the michael@0: documentation and/or other materials provided with the distribution. michael@0: - Neither the name of Internet Society, IETF or IETF Trust, nor the michael@0: names of specific contributors, may be used to endorse or promote michael@0: products derived from this software without specific prior written michael@0: permission. michael@0: THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" michael@0: AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE michael@0: IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE michael@0: ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE michael@0: LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR michael@0: CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF michael@0: SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS michael@0: INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN michael@0: CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) michael@0: ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE michael@0: POSSIBILITY OF SUCH DAMAGE. michael@0: ***********************************************************************/ michael@0: michael@0: #ifdef HAVE_CONFIG_H michael@0: #include "config.h" michael@0: #endif michael@0: michael@0: #include "main.h" michael@0: #include "stack_alloc.h" michael@0: michael@0: /**********************************************************/ michael@0: /* Core decoder. Performs inverse NSQ operation LTP + LPC */ michael@0: /**********************************************************/ michael@0: void silk_decode_core( michael@0: silk_decoder_state *psDec, /* I/O Decoder state */ michael@0: silk_decoder_control *psDecCtrl, /* I Decoder control */ michael@0: opus_int16 xq[], /* O Decoded speech */ michael@0: const opus_int pulses[ MAX_FRAME_LENGTH ] /* I Pulse signal */ michael@0: ) michael@0: { michael@0: opus_int i, k, lag = 0, start_idx, sLTP_buf_idx, NLSF_interpolation_flag, signalType; michael@0: opus_int16 *A_Q12, *B_Q14, *pxq, A_Q12_tmp[ MAX_LPC_ORDER ]; michael@0: VARDECL( opus_int16, sLTP ); michael@0: VARDECL( opus_int32, sLTP_Q15 ); michael@0: opus_int32 LTP_pred_Q13, LPC_pred_Q10, Gain_Q10, inv_gain_Q31, gain_adj_Q16, rand_seed, offset_Q10; michael@0: opus_int32 *pred_lag_ptr, *pexc_Q14, *pres_Q14; michael@0: VARDECL( opus_int32, res_Q14 ); michael@0: VARDECL( opus_int32, sLPC_Q14 ); michael@0: SAVE_STACK; michael@0: michael@0: silk_assert( psDec->prev_gain_Q16 != 0 ); michael@0: michael@0: ALLOC( sLTP, psDec->ltp_mem_length, opus_int16 ); michael@0: ALLOC( sLTP_Q15, psDec->ltp_mem_length + psDec->frame_length, opus_int32 ); michael@0: ALLOC( res_Q14, psDec->subfr_length, opus_int32 ); michael@0: ALLOC( sLPC_Q14, psDec->subfr_length + MAX_LPC_ORDER, opus_int32 ); michael@0: michael@0: offset_Q10 = silk_Quantization_Offsets_Q10[ psDec->indices.signalType >> 1 ][ psDec->indices.quantOffsetType ]; michael@0: michael@0: if( psDec->indices.NLSFInterpCoef_Q2 < 1 << 2 ) { michael@0: NLSF_interpolation_flag = 1; michael@0: } else { michael@0: NLSF_interpolation_flag = 0; michael@0: } michael@0: michael@0: /* Decode excitation */ michael@0: rand_seed = psDec->indices.Seed; michael@0: for( i = 0; i < psDec->frame_length; i++ ) { michael@0: rand_seed = silk_RAND( rand_seed ); michael@0: psDec->exc_Q14[ i ] = silk_LSHIFT( (opus_int32)pulses[ i ], 14 ); michael@0: if( psDec->exc_Q14[ i ] > 0 ) { michael@0: psDec->exc_Q14[ i ] -= QUANT_LEVEL_ADJUST_Q10 << 4; michael@0: } else michael@0: if( psDec->exc_Q14[ i ] < 0 ) { michael@0: psDec->exc_Q14[ i ] += QUANT_LEVEL_ADJUST_Q10 << 4; michael@0: } michael@0: psDec->exc_Q14[ i ] += offset_Q10 << 4; michael@0: if( rand_seed < 0 ) { michael@0: psDec->exc_Q14[ i ] = -psDec->exc_Q14[ i ]; michael@0: } michael@0: michael@0: rand_seed = silk_ADD32_ovflw( rand_seed, pulses[ i ] ); michael@0: } michael@0: michael@0: /* Copy LPC state */ michael@0: silk_memcpy( sLPC_Q14, psDec->sLPC_Q14_buf, MAX_LPC_ORDER * sizeof( opus_int32 ) ); michael@0: michael@0: pexc_Q14 = psDec->exc_Q14; michael@0: pxq = xq; michael@0: sLTP_buf_idx = psDec->ltp_mem_length; michael@0: /* Loop over subframes */ michael@0: for( k = 0; k < psDec->nb_subfr; k++ ) { michael@0: pres_Q14 = res_Q14; michael@0: A_Q12 = psDecCtrl->PredCoef_Q12[ k >> 1 ]; michael@0: michael@0: /* Preload LPC coeficients to array on stack. Gives small performance gain */ michael@0: silk_memcpy( A_Q12_tmp, A_Q12, psDec->LPC_order * sizeof( opus_int16 ) ); michael@0: B_Q14 = &psDecCtrl->LTPCoef_Q14[ k * LTP_ORDER ]; michael@0: signalType = psDec->indices.signalType; michael@0: michael@0: Gain_Q10 = silk_RSHIFT( psDecCtrl->Gains_Q16[ k ], 6 ); michael@0: inv_gain_Q31 = silk_INVERSE32_varQ( psDecCtrl->Gains_Q16[ k ], 47 ); michael@0: michael@0: /* Calculate gain adjustment factor */ michael@0: if( psDecCtrl->Gains_Q16[ k ] != psDec->prev_gain_Q16 ) { michael@0: gain_adj_Q16 = silk_DIV32_varQ( psDec->prev_gain_Q16, psDecCtrl->Gains_Q16[ k ], 16 ); michael@0: michael@0: /* Scale short term state */ michael@0: for( i = 0; i < MAX_LPC_ORDER; i++ ) { michael@0: sLPC_Q14[ i ] = silk_SMULWW( gain_adj_Q16, sLPC_Q14[ i ] ); michael@0: } michael@0: } else { michael@0: gain_adj_Q16 = (opus_int32)1 << 16; michael@0: } michael@0: michael@0: /* Save inv_gain */ michael@0: silk_assert( inv_gain_Q31 != 0 ); michael@0: psDec->prev_gain_Q16 = psDecCtrl->Gains_Q16[ k ]; michael@0: michael@0: /* Avoid abrupt transition from voiced PLC to unvoiced normal decoding */ michael@0: if( psDec->lossCnt && psDec->prevSignalType == TYPE_VOICED && michael@0: psDec->indices.signalType != TYPE_VOICED && k < MAX_NB_SUBFR/2 ) { michael@0: michael@0: silk_memset( B_Q14, 0, LTP_ORDER * sizeof( opus_int16 ) ); michael@0: B_Q14[ LTP_ORDER/2 ] = SILK_FIX_CONST( 0.25, 14 ); michael@0: michael@0: signalType = TYPE_VOICED; michael@0: psDecCtrl->pitchL[ k ] = psDec->lagPrev; michael@0: } michael@0: michael@0: if( signalType == TYPE_VOICED ) { michael@0: /* Voiced */ michael@0: lag = psDecCtrl->pitchL[ k ]; michael@0: michael@0: /* Re-whitening */ michael@0: if( k == 0 || ( k == 2 && NLSF_interpolation_flag ) ) { michael@0: /* Rewhiten with new A coefs */ michael@0: start_idx = psDec->ltp_mem_length - lag - psDec->LPC_order - LTP_ORDER / 2; michael@0: silk_assert( start_idx > 0 ); michael@0: michael@0: if( k == 2 ) { michael@0: silk_memcpy( &psDec->outBuf[ psDec->ltp_mem_length ], xq, 2 * psDec->subfr_length * sizeof( opus_int16 ) ); michael@0: } michael@0: michael@0: silk_LPC_analysis_filter( &sLTP[ start_idx ], &psDec->outBuf[ start_idx + k * psDec->subfr_length ], michael@0: A_Q12, psDec->ltp_mem_length - start_idx, psDec->LPC_order ); michael@0: michael@0: /* After rewhitening the LTP state is unscaled */ michael@0: if( k == 0 ) { michael@0: /* Do LTP downscaling to reduce inter-packet dependency */ michael@0: inv_gain_Q31 = silk_LSHIFT( silk_SMULWB( inv_gain_Q31, psDecCtrl->LTP_scale_Q14 ), 2 ); michael@0: } michael@0: for( i = 0; i < lag + LTP_ORDER/2; i++ ) { michael@0: sLTP_Q15[ sLTP_buf_idx - i - 1 ] = silk_SMULWB( inv_gain_Q31, sLTP[ psDec->ltp_mem_length - i - 1 ] ); michael@0: } michael@0: } else { michael@0: /* Update LTP state when Gain changes */ michael@0: if( gain_adj_Q16 != (opus_int32)1 << 16 ) { michael@0: for( i = 0; i < lag + LTP_ORDER/2; i++ ) { michael@0: sLTP_Q15[ sLTP_buf_idx - i - 1 ] = silk_SMULWW( gain_adj_Q16, sLTP_Q15[ sLTP_buf_idx - i - 1 ] ); michael@0: } michael@0: } michael@0: } michael@0: } michael@0: michael@0: /* Long-term prediction */ michael@0: if( signalType == TYPE_VOICED ) { michael@0: /* Set up pointer */ michael@0: pred_lag_ptr = &sLTP_Q15[ sLTP_buf_idx - lag + LTP_ORDER / 2 ]; michael@0: for( i = 0; i < psDec->subfr_length; i++ ) { michael@0: /* Unrolled loop */ michael@0: /* Avoids introducing a bias because silk_SMLAWB() always rounds to -inf */ michael@0: LTP_pred_Q13 = 2; michael@0: LTP_pred_Q13 = silk_SMLAWB( LTP_pred_Q13, pred_lag_ptr[ 0 ], B_Q14[ 0 ] ); michael@0: LTP_pred_Q13 = silk_SMLAWB( LTP_pred_Q13, pred_lag_ptr[ -1 ], B_Q14[ 1 ] ); michael@0: LTP_pred_Q13 = silk_SMLAWB( LTP_pred_Q13, pred_lag_ptr[ -2 ], B_Q14[ 2 ] ); michael@0: LTP_pred_Q13 = silk_SMLAWB( LTP_pred_Q13, pred_lag_ptr[ -3 ], B_Q14[ 3 ] ); michael@0: LTP_pred_Q13 = silk_SMLAWB( LTP_pred_Q13, pred_lag_ptr[ -4 ], B_Q14[ 4 ] ); michael@0: pred_lag_ptr++; michael@0: michael@0: /* Generate LPC excitation */ michael@0: pres_Q14[ i ] = silk_ADD_LSHIFT32( pexc_Q14[ i ], LTP_pred_Q13, 1 ); michael@0: michael@0: /* Update states */ michael@0: sLTP_Q15[ sLTP_buf_idx ] = silk_LSHIFT( pres_Q14[ i ], 1 ); michael@0: sLTP_buf_idx++; michael@0: } michael@0: } else { michael@0: pres_Q14 = pexc_Q14; michael@0: } michael@0: michael@0: for( i = 0; i < psDec->subfr_length; i++ ) { michael@0: /* Short-term prediction */ michael@0: silk_assert( psDec->LPC_order == 10 || psDec->LPC_order == 16 ); michael@0: /* Avoids introducing a bias because silk_SMLAWB() always rounds to -inf */ michael@0: LPC_pred_Q10 = silk_RSHIFT( psDec->LPC_order, 1 ); michael@0: LPC_pred_Q10 = silk_SMLAWB( LPC_pred_Q10, sLPC_Q14[ MAX_LPC_ORDER + i - 1 ], A_Q12_tmp[ 0 ] ); michael@0: LPC_pred_Q10 = silk_SMLAWB( LPC_pred_Q10, sLPC_Q14[ MAX_LPC_ORDER + i - 2 ], A_Q12_tmp[ 1 ] ); michael@0: LPC_pred_Q10 = silk_SMLAWB( LPC_pred_Q10, sLPC_Q14[ MAX_LPC_ORDER + i - 3 ], A_Q12_tmp[ 2 ] ); michael@0: LPC_pred_Q10 = silk_SMLAWB( LPC_pred_Q10, sLPC_Q14[ MAX_LPC_ORDER + i - 4 ], A_Q12_tmp[ 3 ] ); michael@0: LPC_pred_Q10 = silk_SMLAWB( LPC_pred_Q10, sLPC_Q14[ MAX_LPC_ORDER + i - 5 ], A_Q12_tmp[ 4 ] ); michael@0: LPC_pred_Q10 = silk_SMLAWB( LPC_pred_Q10, sLPC_Q14[ MAX_LPC_ORDER + i - 6 ], A_Q12_tmp[ 5 ] ); michael@0: LPC_pred_Q10 = silk_SMLAWB( LPC_pred_Q10, sLPC_Q14[ MAX_LPC_ORDER + i - 7 ], A_Q12_tmp[ 6 ] ); michael@0: LPC_pred_Q10 = silk_SMLAWB( LPC_pred_Q10, sLPC_Q14[ MAX_LPC_ORDER + i - 8 ], A_Q12_tmp[ 7 ] ); michael@0: LPC_pred_Q10 = silk_SMLAWB( LPC_pred_Q10, sLPC_Q14[ MAX_LPC_ORDER + i - 9 ], A_Q12_tmp[ 8 ] ); michael@0: LPC_pred_Q10 = silk_SMLAWB( LPC_pred_Q10, sLPC_Q14[ MAX_LPC_ORDER + i - 10 ], A_Q12_tmp[ 9 ] ); michael@0: if( psDec->LPC_order == 16 ) { michael@0: LPC_pred_Q10 = silk_SMLAWB( LPC_pred_Q10, sLPC_Q14[ MAX_LPC_ORDER + i - 11 ], A_Q12_tmp[ 10 ] ); michael@0: LPC_pred_Q10 = silk_SMLAWB( LPC_pred_Q10, sLPC_Q14[ MAX_LPC_ORDER + i - 12 ], A_Q12_tmp[ 11 ] ); michael@0: LPC_pred_Q10 = silk_SMLAWB( LPC_pred_Q10, sLPC_Q14[ MAX_LPC_ORDER + i - 13 ], A_Q12_tmp[ 12 ] ); michael@0: LPC_pred_Q10 = silk_SMLAWB( LPC_pred_Q10, sLPC_Q14[ MAX_LPC_ORDER + i - 14 ], A_Q12_tmp[ 13 ] ); michael@0: LPC_pred_Q10 = silk_SMLAWB( LPC_pred_Q10, sLPC_Q14[ MAX_LPC_ORDER + i - 15 ], A_Q12_tmp[ 14 ] ); michael@0: LPC_pred_Q10 = silk_SMLAWB( LPC_pred_Q10, sLPC_Q14[ MAX_LPC_ORDER + i - 16 ], A_Q12_tmp[ 15 ] ); michael@0: } michael@0: michael@0: /* Add prediction to LPC excitation */ michael@0: sLPC_Q14[ MAX_LPC_ORDER + i ] = silk_ADD_LSHIFT32( pres_Q14[ i ], LPC_pred_Q10, 4 ); michael@0: michael@0: /* Scale with gain */ michael@0: pxq[ i ] = (opus_int16)silk_SAT16( silk_RSHIFT_ROUND( silk_SMULWW( sLPC_Q14[ MAX_LPC_ORDER + i ], Gain_Q10 ), 8 ) ); michael@0: } michael@0: michael@0: /* DEBUG_STORE_DATA( dec.pcm, pxq, psDec->subfr_length * sizeof( opus_int16 ) ) */ michael@0: michael@0: /* Update LPC filter state */ michael@0: silk_memcpy( sLPC_Q14, &sLPC_Q14[ psDec->subfr_length ], MAX_LPC_ORDER * sizeof( opus_int32 ) ); michael@0: pexc_Q14 += psDec->subfr_length; michael@0: pxq += psDec->subfr_length; michael@0: } michael@0: michael@0: /* Save LPC state */ michael@0: silk_memcpy( psDec->sLPC_Q14_buf, sLPC_Q14, MAX_LPC_ORDER * sizeof( opus_int32 ) ); michael@0: RESTORE_STACK; michael@0: }