annotate libgsmefr/oper_32b.h @ 581:e2d5cad04cbf

libgsmhr1 RxFE: store CN R0+LPC separately from speech In the original GSM 06.06 code the ECU for speech mode is entirely separate from the CN generator, maintaining separate state. (The main intertie between them is the speech vs CN state variable, distinguishing between speech and CN BFIs, in addition to the CN-specific function of distinguishing between initial and update SIDs.) In the present RxFE implementation I initially thought that we could use the same saved_frame buffer for both ECU and CN, overwriting just the first 4 params (R0 and LPC) when a valid SID comes in. However, I now realize it was a bad idea: the original code has a corner case (long sequence of speech-mode BFIs to put the ECU in state 6, then SID and CN-mode BFIs, then a good speech frame) that would be broken by that buffer reuse approach. We could eliminate this corner case by resetting the ECU state when passing through a CN insertion period, but doing so would needlessly increase the behavioral diffs between GSM 06.06 and our version. Solution: use a separate CN-specific buffer for CN R0+LPC parameters, and match the behavior of GSM 06.06 code in this regard.
author Mychaela Falconia <falcon@freecalypso.org>
date Thu, 13 Feb 2025 10:02:45 +0000
parents 3da7ab45910d
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
39
36e1363ad885 libgsmefr: initial import of ETSI header files
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
1 /* Double precision operations */
36e1363ad885 libgsmefr: initial import of ETSI header files
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
2
348
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
3 /*****************************************************************************
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
4 * *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
5 * Function L_Extract() *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
6 * *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
7 * Extract from a 32 bit integer two 16 bit DPF. *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
8 * *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
9 * Arguments: *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
10 * *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
11 * L_32 : 32 bit integer. *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
12 * 0x8000 0000 <= L_32 <= 0x7fff ffff. *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
13 * hi : b16 to b31 of L_32 *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
14 * lo : (L_32 - hi<<16)>>1 *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
15 *****************************************************************************
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
16 */
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
17
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
18 static inline void L_Extract (Word32 L_32, Word16 *hi, Word16 *lo)
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
19 {
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
20 *hi = L_32 >> 16;
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
21 *lo = (L_32 & 0xFFFF) >> 1;
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
22 }
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
23
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
24 /*****************************************************************************
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
25 * *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
26 * Function L_Comp() *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
27 * *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
28 * Compose from two 16 bit DPF a 32 bit integer. *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
29 * *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
30 * L_32 = hi<<16 + lo<<1 *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
31 * *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
32 * Arguments: *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
33 * *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
34 * hi msb *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
35 * lo lsf (with sign) *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
36 * *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
37 * Return Value : *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
38 * *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
39 * 32 bit long signed integer (Word32) whose value falls in the *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
40 * range : 0x8000 0000 <= L_32 <= 0x7fff fff0. *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
41 * *
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
42 *****************************************************************************
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
43 */
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
44
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
45 static inline Word32 L_Comp (Word16 hi, Word16 lo)
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
46 {
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
47 return ((Word32) hi << 16) + ((Word32) lo << 1);
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
48 }
3da7ab45910d libgsmefr: inline L_Comp() and L_Extract()
Mychaela Falconia <falcon@freecalypso.org>
parents: 39
diff changeset
49
39
36e1363ad885 libgsmefr: initial import of ETSI header files
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
50 Word32 Mpy_32 (Word16 hi1, Word16 lo1, Word16 hi2, Word16 lo2);
36e1363ad885 libgsmefr: initial import of ETSI header files
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
51 Word32 Mpy_32_16 (Word16 hi, Word16 lo, Word16 n);
36e1363ad885 libgsmefr: initial import of ETSI header files
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
52 Word32 Div_32 (Word32 L_num, Word16 denom_hi, Word16 denom_lo);