Update SILK code using the CELT range coder
[opus.git] / src_FIX / SKP_Silk_noise_shape_analysis_FIX.c
similarity index 68%
rename from src/SKP_Silk_noise_shape_analysis_FIX.c
rename to src_FIX/SKP_Silk_noise_shape_analysis_FIX.c
index b0f8849..a695d1d 100644 (file)
@@ -28,6 +28,94 @@ OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 #include "SKP_Silk_main_FIX.h"\r
 #include "SKP_Silk_perceptual_parameters_FIX.h"\r
 \r
+/* Compute gain to make warped filter coefficients have a zero mean log frequency response on a     */\r
+/* non-warped frequency scale. (So that it can be implemented with a minimum-phase monic filter.)   */\r
+SKP_INLINE SKP_int32 warped_gain( // gain in Q16\r
+    const SKP_int32     *coefs_Q24, \r
+    SKP_int             lambda_Q16, \r
+    SKP_int             order \r
+) {\r
+    SKP_int   i;\r
+    SKP_int32 gain_Q24;\r
+\r
+    lambda_Q16 = -lambda_Q16;\r
+    gain_Q24 = coefs_Q24[ order - 1 ];\r
+    for( i = order - 2; i >= 0; i-- ) {\r
+        gain_Q24 = SKP_SMLAWB( coefs_Q24[ i ], gain_Q24, lambda_Q16 );\r
+    }\r
+    gain_Q24  = SKP_SMLAWB( 1 << 24, gain_Q24, -lambda_Q16 );\r
+    return SKP_INVERSE32_varQ( gain_Q24, 40 );\r
+}\r
+\r
+/* Convert warped filter coefficients to monic pseudo-warped coefficients */\r
+SKP_INLINE void warped_true2monic_coefs( \r
+    SKP_int32           *coefs_Q24,\r
+    SKP_int             lambda_Q16,\r
+    SKP_int             order \r
+) {\r
+    SKP_int   i;\r
+    SKP_int32 gain_Q16, nom_Q16, den_Q24;\r
+\r
+    lambda_Q16 = -lambda_Q16;\r
+    for( i = order - 1; i > 0; i-- ) {\r
+        coefs_Q24[ i - 1 ] = SKP_SMLAWB( coefs_Q24[ i - 1 ], coefs_Q24[ i ], lambda_Q16 );\r
+    }\r
+    nom_Q16  = SKP_SMLAWB( 1 << 16, lambda_Q16,     -lambda_Q16 );\r
+    den_Q24  = SKP_SMLAWB( 1 << 24, coefs_Q24[ 0 ], -lambda_Q16 );\r
+    gain_Q16 = SKP_DIV32_varQ( nom_Q16, den_Q24, 24 );\r
+    for( i = 0; i < order; i++ ) {\r
+        coefs_Q24[ i ] = SKP_SMULWW( gain_Q16, coefs_Q24[ i ] );\r
+    }\r
+}\r
+\r
+/* Limit max amplitude of monic warped coefficients by using bandwidth expansion on the true coefficients */\r
+SKP_INLINE void limit_warped_coefs( \r
+    SKP_int32           *coefs_syn_Q24,\r
+    SKP_int32           *coefs_ana_Q24,\r
+    SKP_int             lambda_Q16,\r
+    SKP_int32           limit_Q24,\r
+    SKP_int             order\r
+) {\r
+    SKP_int   i, iter, ind;\r
+    SKP_int32 tmp, maxabs_Q24, chirp_Q16;\r
+\r
+    for( iter = 0; iter < 10; iter++ ) {\r
+        /* Find maximum absolute value */\r
+        ind = 1;\r
+        maxabs_Q24 = SKP_abs( coefs_syn_Q24[ ind ] );\r
+        for( i = 2; i < order - 1; i++ ) {\r
+            tmp = SKP_abs( coefs_syn_Q24[ i ] );\r
+            if( tmp > maxabs_Q24 ) {\r
+                maxabs_Q24 = tmp;\r
+                ind = i;\r
+            }\r
+        }\r
+        if( maxabs_Q24 <= limit_Q24 ) {\r
+            return;\r
+        }\r
+\r
+        /* Convert to true warped coefficients */\r
+        for( i = 1; i < order; i++ ) {\r
+            coefs_syn_Q24[ i - 1 ] = SKP_SMLAWB( coefs_syn_Q24[ i - 1 ], coefs_syn_Q24[ i ], lambda_Q16 );\r
+            coefs_ana_Q24[ i - 1 ] = SKP_SMLAWB( coefs_ana_Q24[ i - 1 ], coefs_ana_Q24[ i ], lambda_Q16 );\r
+        }\r
+\r
+        /* Apply bandwidth expansion */\r
+        chirp_Q16 = SKP_FIX_CONST( 0.99, 16 ) - SKP_DIV32_varQ(\r
+            SKP_SMULWB( maxabs_Q24 - limit_Q24, SKP_SMLABB( SKP_FIX_CONST( 0.8, 10 ), SKP_FIX_CONST( 0.1, 10 ), iter ) ), \r
+            SKP_MUL( maxabs_Q24, ind + 1 ), 22 );\r
+        SKP_Silk_bwexpander_32( coefs_syn_Q24, order, chirp_Q16 );\r
+        SKP_Silk_bwexpander_32( coefs_ana_Q24, order, chirp_Q16 );\r
+\r
+        /* Convert back to monic warped coefficients */\r
+        lambda_Q16 = -lambda_Q16;\r
+        for( i = order - 1; i > 0; i-- ) {\r
+            coefs_syn_Q24[ i - 1 ] = SKP_SMLAWB( coefs_syn_Q24[ i - 1 ], coefs_syn_Q24[ i ], lambda_Q16 );\r
+            coefs_ana_Q24[ i - 1 ] = SKP_SMLAWB( coefs_ana_Q24[ i - 1 ], coefs_ana_Q24[ i ], lambda_Q16 );\r
+        }\r
+        lambda_Q16 = -lambda_Q16;\r
+    }\r
+}\r
 \r
 /**************************************************************/\r
 /* Compute noise shaping coefficients and initial gain values */\r
@@ -36,30 +124,35 @@ void SKP_Silk_noise_shape_analysis_FIX(
     SKP_Silk_encoder_state_FIX      *psEnc,         /* I/O  Encoder state FIX                           */\r
     SKP_Silk_encoder_control_FIX    *psEncCtrl,     /* I/O  Encoder control FIX                         */\r
     const SKP_int16                 *pitch_res,     /* I    LPC residual from pitch analysis            */\r
-    const SKP_int16                 *x              /* I    Input signal [ 2 * frame_length + la_shape ]*/\r
+    const SKP_int16                 *x              /* I    Input signal [ frame_length + la_shape ]    */\r
 )\r
 {\r
     SKP_Silk_shape_state_FIX *psShapeSt = &psEnc->sShape;\r
-    SKP_int     k, nSamples, lz, Qnrg, b_Q14, scale = 0, sz;\r
+    SKP_int     k, i, nSamples, Qnrg, b_Q14, scale = 0, sz;\r
     SKP_int32   SNR_adj_dB_Q7, HarmBoost_Q16, HarmShapeGain_Q16, Tilt_Q16, tmp32;\r
     SKP_int32   nrg, pre_nrg_Q30, log_energy_Q7, log_energy_prev_Q7, energy_variation_Q7;\r
     SKP_int32   delta_Q16, BWExp1_Q16, BWExp2_Q16, gain_mult_Q16, gain_add_Q16, strength_Q16, b_Q8;\r
-    SKP_int32   auto_corr[     SHAPE_LPC_ORDER_MAX + 1 ];\r
-    SKP_int32   refl_coef_Q16[ SHAPE_LPC_ORDER_MAX ];\r
-    SKP_int32   AR_Q24[        SHAPE_LPC_ORDER_MAX ];\r
+    SKP_int32   auto_corr[     MAX_SHAPE_LPC_ORDER + 1 ];\r
+    SKP_int32   refl_coef_Q16[ MAX_SHAPE_LPC_ORDER ];\r
+    SKP_int32   AR1_Q24[       MAX_SHAPE_LPC_ORDER ];\r
+    SKP_int32   AR2_Q24[       MAX_SHAPE_LPC_ORDER ];\r
     SKP_int16   x_windowed[    SHAPE_LPC_WIN_MAX ];\r
     const SKP_int16 *x_ptr, *pitch_res_ptr;\r
 \r
-    SKP_int32   sqrt_nrg[ NB_SUBFR ], Qnrg_vec[ NB_SUBFR ];\r
+    SKP_int32   sqrt_nrg[ MAX_NB_SUBFR ], Qnrg_vec[ MAX_NB_SUBFR ];\r
 \r
     /* Point to start of first LPC analysis block */\r
-    x_ptr = x + psEnc->sCmn.la_shape - SKP_SMULBB( SHAPE_LPC_WIN_MS, psEnc->sCmn.fs_kHz ) + psEnc->sCmn.frame_length / NB_SUBFR;\r
+    x_ptr = x + psEnc->sCmn.la_shape - SKP_SMULBB( SHAPE_LPC_WIN_MS, psEnc->sCmn.fs_kHz ) + psEnc->sCmn.subfr_length;\r
 \r
     /****************/\r
     /* CONTROL SNR  */\r
     /****************/\r
+#if DEACTIVATE_SNR_FEEDBACK\r
+    psEncCtrl->current_SNR_dB_Q7 = psEnc->SNR_dB_Q7;\r
+#else\r
     /* Reduce SNR_dB values if recent bitstream has exceeded TargetRate */\r
     psEncCtrl->current_SNR_dB_Q7 = psEnc->SNR_dB_Q7 - SKP_SMULWB( SKP_LSHIFT( ( SKP_int32 )psEnc->BufferedInChannel_ms, 7 ), 3277 );\r
+#endif\r
 \r
     /* Reduce SNR_dB if inband FEC used */\r
     if( psEnc->speech_activity_Q8 > LBRR_SPEECH_ACTIVITY_THRES_Q8 ) {\r
@@ -72,8 +165,9 @@ void SKP_Silk_noise_shape_analysis_FIX(
     /* Input quality is the average of the quality in the lowest two VAD bands */\r
     psEncCtrl->input_quality_Q14 = ( SKP_int )SKP_RSHIFT( ( SKP_int32 )psEncCtrl->input_quality_bands_Q15[ 0 ] \r
         + psEncCtrl->input_quality_bands_Q15[ 1 ], 2 );\r
+\r
     /* Coding quality level, between 0.0_Q0 and 1.0_Q0, but in Q14 */\r
-    psEncCtrl->coding_quality_Q14 = SKP_RSHIFT( SKP_Silk_sigm_Q15( SKP_RSHIFT_ROUND( psEncCtrl->current_SNR_dB_Q7 - ( 18 << 7 ), 4 ) ), 1 );\r
+    psEncCtrl->coding_quality_Q14 = SKP_RSHIFT( SKP_Silk_sigm_Q15( SKP_RSHIFT_ROUND( psEncCtrl->current_SNR_dB_Q7 - ( 17 << 7 ), 4 ) ), 1 );\r
 \r
     /* Reduce coding SNR during low speech activity */\r
     b_Q8 = ( 1 << 8 ) - psEnc->speech_activity_Q8;\r
@@ -106,7 +200,7 @@ void SKP_Silk_noise_shape_analysis_FIX(
         energy_variation_Q7 = 0;\r
         log_energy_prev_Q7  = 0;\r
         pitch_res_ptr = pitch_res;\r
-        for( k = 0; k < FRAME_LENGTH_MS / 2; k++ ) {    \r
+        for( k = 0; k < SKP_SMULBB( SUB_FRAME_LENGTH_MS, psEnc->sCmn.nb_subfr ) / 2; k++ ) {\r
             SKP_Silk_sum_sqr_shift( &nrg, &scale, pitch_res_ptr, nSamples );\r
             nrg += SKP_RSHIFT( nSamples, scale );           // Q(-scale)\r
             \r
@@ -118,7 +212,7 @@ void SKP_Silk_noise_shape_analysis_FIX(
             pitch_res_ptr += nSamples;\r
         }\r
 \r
-        psEncCtrl->sparseness_Q8 = SKP_RSHIFT( SKP_Silk_sigm_Q15( SKP_SMULWB( energy_variation_Q7 - ( 5 << 7 ), 6554 ) ), 7 );    // 6554_Q16 = 0.1_Q0\r
+        psEncCtrl->sparseness_Q8 = SKP_RSHIFT( SKP_Silk_sigm_Q15( SKP_SMULWB( energy_variation_Q7 - ( 5 << 7 ), 6554 ) ), 7 ); // 6554_Q16 = 0.1_Q0\r
 \r
         /* Set quantization offset depending on sparseness measure */\r
         if( psEncCtrl->sparseness_Q8 > SPARSENESS_THRESHOLD_QNT_OFFSET_Q8 ) {\r
@@ -145,44 +239,50 @@ void SKP_Silk_noise_shape_analysis_FIX(
     /* BWExp1 will be applied after BWExp2, so make it relative */\r
     BWExp1_Q16 = SKP_DIV32_16( SKP_LSHIFT( BWExp1_Q16, 14 ), SKP_RSHIFT( BWExp2_Q16, 2 ) );\r
 \r
+    /* Warping coefficient */\r
+    psEncCtrl->sCmn.warping_Q16 = psEnc->sCmn.fs_kHz * WARPING_MULTIPLIER_Q16;\r
+    psEncCtrl->sCmn.warping_Q16 = SKP_min( psEncCtrl->sCmn.warping_Q16, 32767 );\r
+\r
     /********************************************/\r
     /* Compute noise shaping AR coefs and gains */\r
     /********************************************/\r
     sz = ( SKP_int )SKP_SMULBB( SHAPE_LPC_WIN_MS, psEnc->sCmn.fs_kHz );\r
-    for( k = 0; k < NB_SUBFR; k++ ) {\r
+    for( k = 0; k < psEnc->sCmn.nb_subfr; k++ ) {\r
         /* Apply window */\r
         SKP_Silk_apply_sine_window( x_windowed, x_ptr, 0, SHAPE_LPC_WIN_MS * psEnc->sCmn.fs_kHz );\r
 \r
         /* Update pointer: next LPC analysis block */\r
-        x_ptr += psEnc->sCmn.frame_length / NB_SUBFR;\r
+        x_ptr += psEnc->sCmn.subfr_length;\r
 \r
-        /* Calculate auto correlation */\r
-        SKP_Silk_autocorr( auto_corr, &scale, x_windowed, sz, psEnc->sCmn.shapingLPCOrder + 1 );\r
+        /* Calculate warped auto correlation */\r
+        SKP_Silk_warped_autocorrelation_FIX( auto_corr, &scale, x_windowed, psEncCtrl->sCmn.warping_Q16, sz, psEnc->sCmn.shapingLPCOrder ); \r
 \r
         /* Add white noise, as a fraction of energy */\r
         auto_corr[0] = SKP_ADD32( auto_corr[0], SKP_max_32( SKP_SMULWB( SKP_RSHIFT( auto_corr[ 0 ], 4 ), SHAPE_WHITE_NOISE_FRACTION_Q20 ), 1 ) ); \r
 \r
         /* Calculate the reflection coefficients using schur */\r
         nrg = SKP_Silk_schur64( refl_coef_Q16, auto_corr, psEnc->sCmn.shapingLPCOrder );\r
+        SKP_assert( nrg >= 0 );\r
 \r
         /* Convert reflection coefficients to prediction coefficients */\r
-        SKP_Silk_k2a_Q16( AR_Q24, refl_coef_Q16, psEnc->sCmn.shapingLPCOrder );\r
+        SKP_Silk_k2a_Q16( AR2_Q24, refl_coef_Q16, psEnc->sCmn.shapingLPCOrder );\r
 \r
-        /* Bandwidth expansion for synthesis filter shaping */\r
-        SKP_Silk_bwexpander_32( AR_Q24, psEnc->sCmn.shapingLPCOrder, BWExp2_Q16 );\r
+        /* Convert residual energy to non-warped scale */\r
+        gain_mult_Q16 = warped_gain( AR2_Q24, psEncCtrl->sCmn.warping_Q16, psEnc->sCmn.shapingLPCOrder );\r
+        gain_mult_Q16 = SKP_SMULWW( gain_mult_Q16, gain_mult_Q16 );\r
+        SKP_assert( gain_mult_Q16 >= 0 ); // If breaking, add dynamic scaling\r
+        nrg = SKP_SMULWW( nrg, gain_mult_Q16 );\r
+        SKP_assert( nrg >= 0 ); // If breaking, add dynamic scaling\r
 \r
-        /* Make sure to fit in Q13 SKP_int16 */\r
-        SKP_Silk_LPC_fit( &psEncCtrl->AR2_Q13[ k * SHAPE_LPC_ORDER_MAX ], AR_Q24, 13, psEnc->sCmn.shapingLPCOrder );\r
+        /* Bandwidth expansion for synthesis filter shaping */\r
+        SKP_Silk_bwexpander_32( AR2_Q24, psEnc->sCmn.shapingLPCOrder, BWExp2_Q16 );\r
 \r
         /* Compute noise shaping filter coefficients */\r
-        SKP_memcpy(\r
-            &psEncCtrl->AR1_Q13[ k * SHAPE_LPC_ORDER_MAX ], \r
-            &psEncCtrl->AR2_Q13[ k * SHAPE_LPC_ORDER_MAX ], \r
-            psEnc->sCmn.shapingLPCOrder * sizeof( SKP_int16 ) );\r
+        SKP_memcpy( AR1_Q24, AR2_Q24, psEnc->sCmn.shapingLPCOrder * sizeof( SKP_int32 ) );\r
 \r
         /* Bandwidth expansion for analysis filter shaping */\r
         SKP_assert( BWExp1_Q16 <= ( 1 << 16 ) ); // If ever breaking, use LPC_stabilize() in these cases to stay within range\r
-        SKP_Silk_bwexpander( &psEncCtrl->AR1_Q13[ k * SHAPE_LPC_ORDER_MAX ], psEnc->sCmn.shapingLPCOrder, BWExp1_Q16 );\r
+        SKP_Silk_bwexpander_32( AR1_Q24, psEnc->sCmn.shapingLPCOrder, BWExp1_Q16 );\r
 \r
         /* Increase residual energy */\r
         nrg = SKP_SMLAWB( nrg, SKP_RSHIFT( auto_corr[ 0 ], 8 ), SHAPE_MIN_ENERGY_RATIO_Q24 );\r
@@ -204,14 +304,27 @@ void SKP_Silk_noise_shape_analysis_FIX(
         Qnrg_vec[ k ] = Qnrg;\r
 \r
         psEncCtrl->Gains_Q16[ k ] = SKP_LSHIFT_SAT32( tmp32, 16 - Qnrg );\r
+\r
         /* Ratio of prediction gains, in energy domain */\r
-        SKP_Silk_LPC_inverse_pred_gain_Q13( &pre_nrg_Q30, &psEncCtrl->AR2_Q13[ k * SHAPE_LPC_ORDER_MAX ], psEnc->sCmn.shapingLPCOrder );\r
-        SKP_Silk_LPC_inverse_pred_gain_Q13( &nrg,         &psEncCtrl->AR1_Q13[ k * SHAPE_LPC_ORDER_MAX ], psEnc->sCmn.shapingLPCOrder );\r
+        SKP_Silk_LPC_inverse_pred_gain_Q24( &pre_nrg_Q30, AR2_Q24, psEnc->sCmn.shapingLPCOrder );\r
+        SKP_Silk_LPC_inverse_pred_gain_Q24( &nrg,         AR1_Q24, psEnc->sCmn.shapingLPCOrder );\r
+\r
+        //psEncCtrl->GainsPre[ k ] = 1.0f - 0.7f * ( 1.0f - pre_nrg / nrg ) = 0.3f + 0.7f * pre_nrg / nrg;\r
+        pre_nrg_Q30 = SKP_LSHIFT32( SKP_SMULWB( pre_nrg_Q30, SKP_FIX_CONST( 0.7, 15 ) ), 1 );\r
+        psEncCtrl->GainsPre_Q14[ k ] = ( SKP_int ) SKP_FIX_CONST( 0.3, 14 ) + SKP_DIV32_varQ( pre_nrg_Q30, nrg, 14 );\r
 \r
-        lz = SKP_min_32( SKP_Silk_CLZ32( pre_nrg_Q30 ) - 1, 19 );\r
-        pre_nrg_Q30 = SKP_DIV32( SKP_LSHIFT( pre_nrg_Q30, lz ), SKP_RSHIFT( nrg, 20 - lz ) + 1 ); // Q20\r
-        pre_nrg_Q30 = SKP_RSHIFT( SKP_LSHIFT_SAT32( pre_nrg_Q30, 9 ), 1 );  /* Q28 */\r
-        psEncCtrl->GainsPre_Q14[ k ] = ( SKP_int )SKP_Silk_SQRT_APPROX( pre_nrg_Q30 );\r
+        /* Convert to monic warped prediction coefficients */\r
+        warped_true2monic_coefs( AR1_Q24, psEncCtrl->sCmn.warping_Q16, psEnc->sCmn.shapingLPCOrder );\r
+        warped_true2monic_coefs( AR2_Q24, psEncCtrl->sCmn.warping_Q16, psEnc->sCmn.shapingLPCOrder );\r
+\r
+        /* Limit absolute values */\r
+        limit_warped_coefs( AR2_Q24, AR1_Q24, psEncCtrl->sCmn.warping_Q16, SKP_FIX_CONST( 3.999, 24 ), psEnc->sCmn.shapingLPCOrder );\r
+\r
+        /* Convert from Q24 to Q13 and store in int16 */\r
+        for( i = 0; i < psEnc->sCmn.shapingLPCOrder; i++ ) {\r
+            psEncCtrl->AR1_Q13[ k * MAX_SHAPE_LPC_ORDER + i ] = (SKP_int16)SKP_SAT16( SKP_RSHIFT_ROUND( AR1_Q24[ i ], 11 ) );\r
+            psEncCtrl->AR2_Q13[ k * MAX_SHAPE_LPC_ORDER + i ] = (SKP_int16)SKP_SAT16( SKP_RSHIFT_ROUND( AR2_Q24[ i ], 11 ) );\r
+        }\r
     }\r
 \r
     /*****************/\r
@@ -225,12 +338,12 @@ void SKP_Silk_noise_shape_analysis_FIX(
     gain_add_Q16 = SKP_ADD_SAT32( gain_add_Q16, tmp32 );\r
     SKP_assert( gain_mult_Q16 >= 0 );\r
 \r
-    for( k = 0; k < NB_SUBFR; k++ ) {\r
+    for( k = 0; k < psEnc->sCmn.nb_subfr; k++ ) {\r
         psEncCtrl->Gains_Q16[ k ] = SKP_SMULWW( psEncCtrl->Gains_Q16[ k ], gain_mult_Q16 );\r
         SKP_assert( psEncCtrl->Gains_Q16[ k ] >= 0 );\r
     }\r
 \r
-    for( k = 0; k < NB_SUBFR; k++ ) {\r
+    for( k = 0; k < psEnc->sCmn.nb_subfr; k++ ) {\r
         psEncCtrl->Gains_Q16[ k ] = SKP_ADD_POS_SAT32( psEncCtrl->Gains_Q16[ k ], gain_add_Q16 );\r
         psEnc->avgGain_Q16 = SKP_ADD_SAT32( \r
             psEnc->avgGain_Q16, \r
@@ -263,7 +376,7 @@ void SKP_Silk_noise_shape_analysis_FIX(
         }\r
     }\r
 \r
-    for( k = 0; k < NB_SUBFR; k++ ) {\r
+    for( k = 0; k < psEnc->sCmn.nb_subfr; k++ ) {\r
         psEncCtrl->GainsPre_Q14[ k ] = SKP_SMULWB( gain_mult_Q16, psEncCtrl->GainsPre_Q14[ k ] );\r
     }\r
 \r
@@ -276,7 +389,7 @@ void SKP_Silk_noise_shape_analysis_FIX(
         /* Reduce low frequencies quantization noise for periodic signals, depending on pitch lag */\r
         /*f = 400; freqz([1, -0.98 + 2e-4 * f], [1, -0.97 + 7e-4 * f], 2^12, Fs); axis([0, 1000, -10, 1])*/\r
         SKP_int fs_kHz_inv = SKP_DIV32_16( 3277, psEnc->sCmn.fs_kHz );      // 0.2_Q0 = 3277_Q14\r
-        for( k = 0; k < NB_SUBFR; k++ ) {\r
+        for( k = 0; k < psEnc->sCmn.nb_subfr; k++ ) {\r
             b_Q14 = fs_kHz_inv + SKP_DIV32_16( ( 3 << 14 ), psEncCtrl->sCmn.pitchL[ k ] ); \r
             /* Pack two coefficients in one int32 */\r
             psEncCtrl->LF_shp_Q14[ k ]  = SKP_LSHIFT( ( 1 << 14 ) - b_Q14 - SKP_SMULWB( strength_Q16, b_Q14 ), 16 );\r
@@ -290,7 +403,7 @@ void SKP_Silk_noise_shape_analysis_FIX(
         /* Pack two coefficients in one int32 */\r
         psEncCtrl->LF_shp_Q14[ 0 ]  = SKP_LSHIFT( ( 1 << 14 ) - b_Q14 - SKP_SMULWB( strength_Q16, SKP_SMULWB( 39322, b_Q14 ) ), 16 ); // 0.6_Q0 = 39322_Q16\r
         psEncCtrl->LF_shp_Q14[ 0 ] |= (SKP_uint16)( b_Q14 - ( 1 << 14 ) );\r
-        for( k = 1; k < NB_SUBFR; k++ ) {\r
+        for( k = 1; k < psEnc->sCmn.nb_subfr; k++ ) {\r
             psEncCtrl->LF_shp_Q14[ k ] = psEncCtrl->LF_shp_Q14[ k - 1 ];\r
         }\r
         Tilt_Q16 = -HP_NOISE_COEF_Q16;\r
@@ -323,7 +436,7 @@ void SKP_Silk_noise_shape_analysis_FIX(
     /*************************/\r
     /* Smooth over subframes */\r
     /*************************/\r
-    for( k = 0; k < NB_SUBFR; k++ ) {\r
+    for( k = 0; k < MAX_NB_SUBFR; k++ ) {\r
         psShapeSt->HarmBoost_smth_Q16 =\r
             SKP_SMLAWB( psShapeSt->HarmBoost_smth_Q16,     HarmBoost_Q16     - psShapeSt->HarmBoost_smth_Q16,     SUBFR_SMTH_COEF_Q16 );\r
         psShapeSt->HarmShapeGain_smth_Q16 =\r