gsm-codec-lib: libgsmefr/cod

annotate libgsmefr/cod_12k2.c @ 55:92dc7f0082a3

libgsmefr: autocorr.c compiles

author	Mychaela Falconia <falcon@freecalypso.org>
date	Fri, 25 Nov 2022 16:38:54 +0000
parents	49dd1ac8e75b
children	d285877fc4cc

rev	line source
53 49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	1 /***************************************************************************
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	2 *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	3 * FILE NAME: cod_12k2.c
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	4 *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	5 * FUNCTIONS DEFINED IN THIS FILE:
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	6 * Coder_12k2 and Init_Coder_12k2
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	7 *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	8 *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	9 * Init_Coder_12k2(void):
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	10 * Initialization of variables for the coder section.
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	11 *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	12 * Coder_12k2(Word16 ana[], Word16 synth[]):
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	13 * Speech encoder routine operating on a frame basis.
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	14 *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	15
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	16 ***************************************************************************/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	17
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	18 #include "typedef.h"
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	19 #include "basic_op.h"
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	20 #include "sig_proc.h"
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	21 #include "count.h"
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	22 #include "codec.h"
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	23 #include "cnst.h"
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	24
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	25 #include "window2.tab"
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	26
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	27 #include "vad.h"
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	28 #include "dtx.h"
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	29
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	30 /-----------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	31 * Coder constant parameters (defined in "cnst.h") *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	32 -----------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	33 * L_WINDOW : LPC analysis window size *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	34 * L_FRAME : Frame size *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	35 * L_FRAME_BY2 : Half the frame size *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	36 * L_SUBFR : Sub-frame size *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	37 * M : LPC order *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	38 * MP1 : LPC order+1 *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	39 * L_TOTAL : Total size of speech buffer *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	40 * PIT_MIN : Minimum pitch lag *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	41 * PIT_MAX : Maximum pitch lag *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	42 * L_INTERPOL : Length of filter for interpolation *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	43 -----------------------------------------------------------/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	44
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	45 /--------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	46 * Static memory allocation. *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	47 --------------------------------------------------------/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	48
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	49 /* Speech vector */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	50
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	51 static Word16 old_speech[L_TOTAL];
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	52 static Word16 speech, p_window, *p_window_mid;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	53 Word16 new_speech; / Global variable */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	54
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	55 /* Weight speech vector */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	56
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	57 static Word16 old_wsp[L_FRAME + PIT_MAX];
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	58 static Word16 *wsp;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	59
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	60 /* Excitation vector */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	61
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	62 static Word16 old_exc[L_FRAME + PIT_MAX + L_INTERPOL];
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	63 static Word16 *exc;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	64
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	65 /* Zero vector */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	66
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	67 static Word16 ai_zero[L_SUBFR + MP1];
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	68 static Word16 *zero;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	69
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	70 /* Impulse response vector */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	71
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	72 static Word16 *h1;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	73 static Word16 hvec[L_SUBFR * 2];
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	74
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	75 /* Spectral expansion factors */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	76
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	77 static const Word16 F_gamma1[M] =
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	78 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	79 29491, 26542, 23888, 21499, 19349,
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	80 17414, 15672, 14105, 12694, 11425
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	81 };
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	82 static const Word16 F_gamma2[M] =
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	83 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	84 19661, 11797, 7078, 4247, 2548,
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	85 1529, 917, 550, 330, 198
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	86 };
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	87
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	88 /* Lsp (Line spectral pairs) */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	89
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	90 static Word16 lsp_old[M];
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	91 static Word16 lsp_old_q[M];
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	92
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	93 /* Filter's memory */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	94
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	95 static Word16 mem_syn[M], mem_w0[M], mem_w[M];
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	96 static Word16 mem_err[M + L_SUBFR], *error;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	97
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	98 /***************************************************************************
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	99 * FUNCTION: Init_Coder_12k2
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	100 *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	101 * PURPOSE: Initialization of variables for the coder section.
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	102 *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	103 * DESCRIPTION:
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	104 * - initilize pointers to speech buffer
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	105 * - initialize static pointers
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	106 * - set static vectors to zero
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	107 *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	108 ***************************************************************************/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	109
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	110 void Init_Coder_12k2 (void)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	111 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	112
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	113 /--------------------------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	114 * Initialize pointers to speech vector. *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	115 --------------------------------------------------------------------------/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	116
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	117 new_speech = old_speech + L_TOTAL - L_FRAME;/* New speech */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	118 speech = new_speech; /* Present frame */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	119 p_window = old_speech + L_TOTAL - L_WINDOW; /* For LPC window */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	120 p_window_mid = p_window; /* For LPC window */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	121
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	122 /* Initialize static pointers */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	123
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	124 wsp = old_wsp + PIT_MAX;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	125 exc = old_exc + PIT_MAX + L_INTERPOL;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	126 zero = ai_zero + MP1;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	127 error = mem_err + M;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	128 h1 = &hvec[L_SUBFR];
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	129
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	130 /* Static vectors to zero */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	131
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	132 Set_zero (old_speech, L_TOTAL);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	133 Set_zero (old_exc, PIT_MAX + L_INTERPOL);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	134 Set_zero (old_wsp, PIT_MAX);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	135 Set_zero (mem_syn, M);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	136 Set_zero (mem_w, M);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	137 Set_zero (mem_w0, M);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	138 Set_zero (mem_err, M);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	139 Set_zero (zero, L_SUBFR);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	140 Set_zero (hvec, L_SUBFR); /* set to zero "h1[-L_SUBFR..-1]" */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	141
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	142 /* Initialize lsp_old [] */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	143
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	144 lsp_old[0] = 30000;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	145 lsp_old[1] = 26000;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	146 lsp_old[2] = 21000;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	147 lsp_old[3] = 15000;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	148 lsp_old[4] = 8000;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	149 lsp_old[5] = 0;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	150 lsp_old[6] = -8000;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	151 lsp_old[7] = -15000;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	152 lsp_old[8] = -21000;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	153 lsp_old[9] = -26000;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	154
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	155 /* Initialize lsp_old_q[] */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	156
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	157 Copy (lsp_old, lsp_old_q, M);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	158
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	159 return;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	160 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	161
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	162 /***************************************************************************
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	163 * FUNCTION: Coder_12k2
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	164 *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	165 * PURPOSE: Principle encoder routine.
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	166 *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	167 * DESCRIPTION: This function is called every 20 ms speech frame,
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	168 * operating on the newly read 160 speech samples. It performs the
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	169 * principle encoding functions to produce the set of encoded parameters
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	170 * which include the LSP, adaptive codebook, and fixed codebook
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	171 * quantization indices (addresses and gains).
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	172 *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	173 * INPUTS:
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	174 * No input arguments are passed to this function. However, before
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	175 * calling this function, 160 new speech data samples should be copied to
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	176 * the vector new_speech[]. This is a global pointer which is declared in
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	177 * this file (it points to the end of speech buffer minus 160).
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	178 *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	179 * OUTPUTS:
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	180 *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	181 * ana[]: vector of analysis parameters.
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	182 * synth[]: Local synthesis speech (for debugging purposes)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	183 *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	184 ***************************************************************************/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	185
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	186 void Coder_12k2 (
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	187 Word16 ana[], /* output : Analysis parameters */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	188 Word16 synth[] /* output : Local synthesis */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	189 )
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	190 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	191 /* LPC coefficients */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	192
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	193 Word16 r_l[MP1], r_h[MP1]; /* Autocorrelations lo and hi */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	194 Word16 A_t[(MP1) * 4]; /* A(z) unquantized for the 4 subframes */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	195 Word16 Aq_t[(MP1) * 4]; /* A(z) quantized for the 4 subframes */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	196 Word16 Ap1[MP1]; /* A(z) with spectral expansion */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	197 Word16 Ap2[MP1]; /* A(z) with spectral expansion */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	198 Word16 A, Aq; /* Pointer on A_t and Aq_t */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	199 Word16 lsp_new[M], lsp_new_q[M];/* LSPs at 4th subframe */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	200 Word16 lsp_mid[M], lsp_mid_q[M];/* LSPs at 2nd subframe */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	201
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	202 /* Other vectors */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	203
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	204 Word16 xn[L_SUBFR]; /* Target vector for pitch search */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	205 Word16 xn2[L_SUBFR]; /* Target vector for codebook search */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	206 Word16 res2[L_SUBFR]; /* Long term prediction residual */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	207 Word16 code[L_SUBFR]; /* Fixed codebook excitation */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	208 Word16 y1[L_SUBFR]; /* Filtered adaptive excitation */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	209 Word16 y2[L_SUBFR]; /* Filtered fixed codebook excitation */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	210
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	211 /* Scalars */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	212
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	213 Word16 i, j, k, i_subfr;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	214 Word16 T_op, T0, T0_min, T0_max, T0_frac;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	215 Word16 gain_pit, gain_code, pit_flag, pit_sharp;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	216 Word16 temp;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	217 Word32 L_temp;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	218
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	219 Word16 scal_acf, VAD_flag, lags[2], rc[4];
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	220
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	221 extern Word16 ptch;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	222 extern Word16 txdtx_ctrl, CN_excitation_gain;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	223 extern Word32 L_pn_seed_tx;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	224 extern Word16 dtx_mode;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	225
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	226 /----------------------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	227 * - Perform LPC analysis: (twice per frame) *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	228 * * autocorrelation + lag windowing *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	229 * * Levinson-Durbin algorithm to find a[] *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	230 * * convert a[] to lsp[] *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	231 * * quantize and code the LSPs *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	232 * * find the interpolated LSPs and convert to a[] for all *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	233 * subframes (both quantized and unquantized) *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	234 ----------------------------------------------------------------------/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	235
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	236 /* LP analysis centered at 2nd subframe */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	237
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	238
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	239 scal_acf = Autocorr (p_window_mid, M, r_h, r_l, window_160_80);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	240 /* Autocorrelations */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	241
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	242 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	243 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	244 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	245
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	246 Lag_window (M, r_h, r_l); /* Lag windowing */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	247
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	248 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	249 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	250 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	251
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	252 Levinson (r_h, r_l, &A_t[MP1], rc); /* Levinson-Durbin */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	253
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	254 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	255 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	256 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	257
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	258 Az_lsp (&A_t[MP1], lsp_mid, lsp_old); /* From A(z) to lsp */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	259
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	260 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	261 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	262 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	263
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	264 /* LP analysis centered at 4th subframe */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	265
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	266 /* Autocorrelations */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	267 scal_acf = Autocorr (p_window, M, r_h, r_l, window_232_8);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	268
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	269 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	270 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	271 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	272
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	273 Lag_window (M, r_h, r_l); /* Lag windowing */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	274
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	275 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	276 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	277 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	278
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	279 Levinson (r_h, r_l, &A_t[MP1 * 3], rc); /* Levinson-Durbin */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	280
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	281 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	282 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	283 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	284
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	285 Az_lsp (&A_t[MP1 * 3], lsp_new, lsp_mid); /* From A(z) to lsp */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	286
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	287 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	288 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	289 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	290
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	291 if (dtx_mode == 1)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	292 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	293 /* DTX enabled, make voice activity decision */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	294 VAD_flag = vad_computation (r_h, r_l, scal_acf, rc, ptch);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	295 move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	296
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	297 tx_dtx (VAD_flag, &txdtx_ctrl); /* TX DTX handler */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	298 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	299 else
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	300 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	301 /* DTX disabled, active speech in every frame */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	302 VAD_flag = 1;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	303 txdtx_ctrl = TX_VAD_FLAG \| TX_SP_FLAG;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	304 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	305
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	306 /* LSP quantization (lsp_mid[] and lsp_new[] jointly quantized) */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	307
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	308 Q_plsf_5 (lsp_mid, lsp_new, lsp_mid_q, lsp_new_q, ana, txdtx_ctrl);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	309
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	310 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	311 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	312 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	313 ana += 5; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	314
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	315 /--------------------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	316 * Find interpolated LPC parameters in all subframes (both quantized *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	317 * and unquantized). *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	318 * The interpolated parameters are in array A_t[] of size (M+1)4
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	319 * and the quantized interpolated parameters are in array Aq_t[] *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	320 --------------------------------------------------------------------/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	321
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	322 Int_lpc2 (lsp_old, lsp_mid, lsp_new, A_t);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	323
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	324 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	325 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	326 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	327
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	328 test (); logic16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	329 if ((txdtx_ctrl & TX_SP_FLAG) != 0)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	330 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	331 Int_lpc (lsp_old_q, lsp_mid_q, lsp_new_q, Aq_t);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	332
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	333 /* update the LSPs for the next frame */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	334 for (i = 0; i < M; i++)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	335 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	336 lsp_old[i] = lsp_new[i]; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	337 lsp_old_q[i] = lsp_new_q[i]; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	338 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	339 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	340 else
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	341 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	342 /* Use unquantized LPC parameters in case of no speech activity */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	343 for (i = 0; i < MP1; i++)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	344 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	345 Aq_t[i] = A_t[i]; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	346 Aq_t[i + MP1] = A_t[i + MP1]; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	347 Aq_t[i + MP1 * 2] = A_t[i + MP1 * 2]; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	348 Aq_t[i + MP1 * 3] = A_t[i + MP1 * 3]; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	349 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	350
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	351 /* update the LSPs for the next frame */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	352 for (i = 0; i < M; i++)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	353 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	354 lsp_old[i] = lsp_new[i]; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	355 lsp_old_q[i] = lsp_new[i]; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	356 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	357 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	358
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	359 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	360 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	361 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	362
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	363 /----------------------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	364 * - Find the weighted input speech wsp[] for the whole speech frame *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	365 * - Find the open-loop pitch delay for first 2 subframes *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	366 * - Set the range for searching closed-loop pitch in 1st subframe *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	367 * - Find the open-loop pitch delay for last 2 subframes *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	368 ----------------------------------------------------------------------/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	369
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	370 A = A_t; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	371 for (i = 0; i < L_FRAME; i += L_SUBFR)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	372 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	373 Weight_Ai (A, F_gamma1, Ap1);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	374
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	375 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	376 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	377 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	378
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	379 Weight_Ai (A, F_gamma2, Ap2);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	380
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	381 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	382 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	383 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	384
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	385 Residu (Ap1, &speech[i], &wsp[i], L_SUBFR);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	386
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	387 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	388 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	389 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	390
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	391 Syn_filt (Ap2, &wsp[i], &wsp[i], L_SUBFR, mem_w, 1);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	392
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	393 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	394 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	395 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	396
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	397 A += MP1; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	398 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	399
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	400 /* Find open loop pitch lag for first two subframes */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	401
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	402 T_op = Pitch_ol (wsp, PIT_MIN, PIT_MAX, L_FRAME_BY2); move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	403
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	404 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	405 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	406 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	407
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	408 lags[0] = T_op; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	409
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	410 test (); logic16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	411 if ((txdtx_ctrl & TX_SP_FLAG) != 0)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	412 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	413 /* Range for closed loop pitch search in 1st subframe */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	414
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	415 T0_min = sub (T_op, 3);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	416 test ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	417 if (sub (T0_min, PIT_MIN) < 0)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	418 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	419 T0_min = PIT_MIN; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	420 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	421 T0_max = add (T0_min, 6);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	422 test ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	423 if (sub (T0_max, PIT_MAX) > 0)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	424 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	425 T0_max = PIT_MAX; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	426 T0_min = sub (T0_max, 6);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	427 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	428 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	429 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	430 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	431 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	432 /* Find open loop pitch lag for last two subframes */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	433
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	434 T_op = Pitch_ol (&wsp[L_FRAME_BY2], PIT_MIN, PIT_MAX, L_FRAME_BY2);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	435 move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	436
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	437 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	438 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	439 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	440
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	441 if (dtx_mode == 1)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	442 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	443 lags[1] = T_op; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	444 periodicity_update (lags, &ptch);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	445 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	446 /----------------------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	447 * Loop for every subframe in the analysis frame *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	448 ----------------------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	449 * To find the pitch and innovation parameters. The subframe size is *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	450 * L_SUBFR and the loop is repeated L_FRAME/L_SUBFR times. *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	451 * - find the weighted LPC coefficients *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	452 * - find the LPC residual signal res[] *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	453 * - compute the target signal for pitch search *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	454 * - compute impulse response of weighted synthesis filter (h1[]) *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	455 * - find the closed-loop pitch parameters *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	456 * - encode the pitch delay *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	457 * - update the impulse response h1[] by including pitch *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	458 * - find target vector for codebook search *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	459 * - codebook search *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	460 * - encode codebook address *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	461 * - VQ of pitch and codebook gains *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	462 * - find synthesis speech *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	463 * - update states of weighting filter *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	464 ----------------------------------------------------------------------/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	465
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	466 /* pointer to interpolated LPC parameters */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	467 A = A_t; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	468 /* pointer to interpolated quantized LPC parameters */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	469 Aq = Aq_t; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	470
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	471 for (i_subfr = 0; i_subfr < L_FRAME; i_subfr += L_SUBFR)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	472 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	473
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	474 test (); logic16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	475 if ((txdtx_ctrl & TX_SP_FLAG) != 0)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	476 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	477
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	478 /---------------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	479 * Find the weighted LPC coefficients for the weighting filter. *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	480 ---------------------------------------------------------------/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	481
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	482 Weight_Ai (A, F_gamma1, Ap1);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	483
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	484 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	485 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	486 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	487
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	488 Weight_Ai (A, F_gamma2, Ap2);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	489
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	490 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	491 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	492 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	493
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	494 /---------------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	495 * Compute impulse response, h1[], of weighted synthesis filter *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	496 ---------------------------------------------------------------/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	497
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	498 for (i = 0; i <= M; i++)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	499 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	500 ai_zero[i] = Ap1[i]; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	501 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	502
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	503 Syn_filt (Aq, ai_zero, h1, L_SUBFR, zero, 0);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	504
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	505 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	506 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	507 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	508
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	509 Syn_filt (Ap2, h1, h1, L_SUBFR, zero, 0);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	510
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	511 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	512 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	513 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	514
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	515 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	516 /---------------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	517 * Find the target vector for pitch search: *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	518 ---------------------------------------------------------------/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	519
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	520 Residu (Aq, &speech[i_subfr], res2, L_SUBFR); /* LPC residual */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	521
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	522 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	523 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	524 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	525
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	526 test (); logic16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	527 if ((txdtx_ctrl & TX_SP_FLAG) == 0)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	528 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	529 /* Compute comfort noise excitation gain based on
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	530 LP residual energy */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	531
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	532 CN_excitation_gain = compute_CN_excitation_gain (res2);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	533 move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	534 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	535 else
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	536 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	537 Copy (res2, &exc[i_subfr], L_SUBFR);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	538
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	539 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	540 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	541 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	542
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	543 Syn_filt (Aq, &exc[i_subfr], error, L_SUBFR, mem_err, 0);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	544
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	545 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	546 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	547 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	548
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	549 Residu (Ap1, error, xn, L_SUBFR);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	550
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	551 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	552 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	553 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	554
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	555 Syn_filt (Ap2, xn, xn, L_SUBFR, mem_w0, 0); /* target signal xn[]*/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	556
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	557 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	558 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	559 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	560
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	561 /--------------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	562 * Closed-loop fractional pitch search *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	563 --------------------------------------------------------------/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	564
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	565 /* flag for first and 3th subframe */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	566 pit_flag = i_subfr; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	567 test ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	568 /* set t0_min and t0_max for 3th subf.*/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	569 if (sub (i_subfr, L_FRAME_BY2) == 0)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	570 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	571 T0_min = sub (T_op, 3);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	572
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	573 test ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	574 if (sub (T0_min, PIT_MIN) < 0)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	575 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	576 T0_min = PIT_MIN; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	577 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	578 T0_max = add (T0_min, 6);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	579 test ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	580 if (sub (T0_max, PIT_MAX) > 0)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	581 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	582 T0_max = PIT_MAX; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	583 T0_min = sub (T0_max, 6);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	584 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	585 pit_flag = 0; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	586 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	587 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	588 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	589 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	590
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	591 T0 = Pitch_fr6 (&exc[i_subfr], xn, h1, L_SUBFR, T0_min, T0_max,
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	592 pit_flag, &T0_frac); move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	593
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	594 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	595 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	596 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	597
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	598 *ana = Enc_lag6 (T0, &T0_frac, &T0_min, &T0_max, PIT_MIN,
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	599 PIT_MAX, pit_flag);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	600 move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	601
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	602 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	603 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	604 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	605 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	606 ana++;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	607 /* Incrementation of ana is done here to work also
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	608 when no speech activity is present */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	609
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	610 test (); logic16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	611
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	612 if ((txdtx_ctrl & TX_SP_FLAG) != 0)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	613 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	614
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	615 /---------------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	616 * - find unity gain pitch excitation (adaptive codebook entry) *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	617 * with fractional interpolation. *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	618 * - find filtered pitch exc. y1[]=exc[] convolved with h1[] *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	619 * - compute pitch gain and limit between 0 and 1.2 *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	620 * - update target vector for codebook search *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	621 * - find LTP residual. *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	622 ---------------------------------------------------------------/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	623
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	624 Pred_lt_6 (&exc[i_subfr], T0, T0_frac, L_SUBFR);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	625
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	626 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	627 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	628 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	629
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	630 Convolve (&exc[i_subfr], h1, y1, L_SUBFR);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	631
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	632 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	633 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	634 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	635
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	636 gain_pit = G_pitch (xn, y1, L_SUBFR); move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	637
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	638 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	639 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	640 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	641
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	642 *ana = q_gain_pitch (&gain_pit); move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	643
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	644 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	645 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	646 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	647
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	648 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	649 else
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	650 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	651 gain_pit = 0; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	652 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	653
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	654 ana++; /* Incrementation of ana is done here to work
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	655 also when no speech activity is present */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	656
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	657 test (); logic16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	658
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	659 if ((txdtx_ctrl & TX_SP_FLAG) != 0)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	660 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	661 /* xn2[i] = xn[i] - y1[i] * gain_pit */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	662 /* res2[i] -= exc[i+i_subfr] * gain_pit */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	663
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	664 for (i = 0; i < L_SUBFR; i++)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	665 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	666 L_temp = L_mult (y1[i], gain_pit);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	667 L_temp = L_shl (L_temp, 3);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	668 xn2[i] = sub (xn[i], extract_h (L_temp)); move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	669
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	670 L_temp = L_mult (exc[i + i_subfr], gain_pit);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	671 L_temp = L_shl (L_temp, 3);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	672 res2[i] = sub (res2[i], extract_h (L_temp)); move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	673 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	674
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	675 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	676 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	677 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	678
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	679 /-------------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	680 * - include pitch contribution into impulse resp. h1[] *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	681 -------------------------------------------------------------/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	682
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	683 /* pit_sharp = gain_pit; */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	684 /* if (pit_sharp > 1.0) pit_sharp = 1.0; */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	685
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	686 pit_sharp = shl (gain_pit, 3);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	687
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	688 for (i = T0; i < L_SUBFR; i++)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	689 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	690 temp = mult (h1[i - T0], pit_sharp);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	691 h1[i] = add (h1[i], temp); move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	692 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	693
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	694 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	695 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	696 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	697
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	698 /--------------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	699 * - Innovative codebook search (find index and gain) *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	700 --------------------------------------------------------------/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	701
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	702 code_10i40_35bits (xn2, res2, h1, code, y2, ana);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	703
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	704 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	705 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	706 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	707
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	708 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	709 else
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	710 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	711 build_CN_code (code, &L_pn_seed_tx);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	712 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	713 ana += 10; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	714
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	715 test (); logic16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	716 if ((txdtx_ctrl & TX_SP_FLAG) != 0)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	717 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	718
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	719 /-------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	720 * - Add the pitch contribution to code[]. *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	721 -------------------------------------------------------/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	722
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	723 for (i = T0; i < L_SUBFR; i++)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	724 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	725 temp = mult (code[i - T0], pit_sharp);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	726 code[i] = add (code[i], temp); move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	727 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	728
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	729 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	730 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	731 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	732
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	733 /------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	734 * - Quantization of fixed codebook gain. *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	735 ------------------------------------------------------/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	736
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	737 gain_code = G_code (xn2, y2); move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	738
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	739 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	740 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	741 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	742
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	743 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	744 *ana++ = q_gain_code (code, L_SUBFR, &gain_code, txdtx_ctrl, i_subfr);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	745 move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	746
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	747 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	748 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	749 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	750
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	751 /------------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	752 * - Find the total excitation *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	753 * - find synthesis speech corresponding to exc[] *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	754 * - update filter memories for finding the target *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	755 * vector in the next subframe *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	756 * (update mem_err[] and mem_w0[]) *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	757 ------------------------------------------------------/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	758
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	759 for (i = 0; i < L_SUBFR; i++)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	760 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	761 /* exc[i] = gain_pitexc[i] + gain_codecode[i]; */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	762
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	763 L_temp = L_mult (exc[i + i_subfr], gain_pit);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	764 L_temp = L_mac (L_temp, code[i], gain_code);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	765 L_temp = L_shl (L_temp, 3);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	766 exc[i + i_subfr] = round (L_temp); move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	767 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	768
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	769 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	770 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	771 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	772
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	773 Syn_filt (Aq, &exc[i_subfr], &synth[i_subfr], L_SUBFR, mem_syn, 1);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	774
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	775 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	776 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	777 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	778
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	779 test (); logic16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	780 if ((txdtx_ctrl & TX_SP_FLAG) != 0)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	781 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	782
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	783 for (i = L_SUBFR - M, j = 0; i < L_SUBFR; i++, j++)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	784 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	785 mem_err[j] = sub (speech[i_subfr + i], synth[i_subfr + i]);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	786 move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	787 temp = extract_h (L_shl (L_mult (y1[i], gain_pit), 3));
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	788 k = extract_h (L_shl (L_mult (y2[i], gain_code), 5));
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	789 mem_w0[j] = sub (xn[i], add (temp, k)); move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	790 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	791 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	792 else
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	793 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	794 for (j = 0; j < M; j++)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	795 {
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	796 mem_err[j] = 0; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	797 mem_w0[j] = 0; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	798 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	799 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	800
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	801 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	802 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	803 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	804 /* interpolated LPC parameters for next subframe */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	805 A += MP1; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	806 Aq += MP1; move16 ();
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	807 }
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	808
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	809 /--------------------------------------------------
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	810 * Update signal for next frame. *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	811 * -> shift to the left by L_FRAME: *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	812 * speech[], wsp[] and exc[] *
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	813 --------------------------------------------------/
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	814
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	815 Copy (&old_speech[L_FRAME], &old_speech[0], L_TOTAL - L_FRAME);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	816
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	817 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	818 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	819 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	820
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	821 Copy (&old_wsp[L_FRAME], &old_wsp[0], PIT_MAX);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	822
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	823 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	824 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	825 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	826
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	827 Copy (&old_exc[L_FRAME], &old_exc[0], PIT_MAX + L_INTERPOL);
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	828
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	829 #if (WMOPS)
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	830 fwc (); /* function worst case */
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	831 #endif
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	832
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	833 return;
49dd1ac8e75b libgsmefr: import most .c files from ETSI source Mychaela Falconia <falcon@freecalypso.org>* parents: diff changeset	834 }

FreeCalypso > hg > gsm-codec-lib

annotate libgsmefr/cod_12k2.c @ 55:92dc7f0082a3