# HG changeset patch
# User Mychaela Falconia <falcon@freecalypso.org>
# Date 1713744301 0
# Node ID 3da7ab45910dbe8d23bcb913a2238175070f7781
# Parent  1c514150c033368618625e3d68b2fc14541f51ca
libgsmefr: inline L_Comp() and L_Extract()

diff -r 1c514150c033 -r 3da7ab45910d libgsmefr/oper_32b.c
--- a/libgsmefr/oper_32b.c	Sun Apr 21 23:17:21 2024 +0000
+++ b/libgsmefr/oper_32b.c	Mon Apr 22 00:05:01 2024 +0000
@@ -29,57 +29,6 @@
 #include "no_count.h"
 
 /*****************************************************************************
- *                                                                           *
- *  Function L_Extract()                                                     *
- *                                                                           *
- *  Extract from a 32 bit integer two 16 bit DPF.                            *
- *                                                                           *
- *  Arguments:                                                               *
- *                                                                           *
- *   L_32      : 32 bit integer.                                             *
- *               0x8000 0000 <= L_32 <= 0x7fff ffff.                         *
- *   hi        : b16 to b31 of L_32                                          *
- *   lo        : (L_32 - hi<<16)>>1                                          *
- *****************************************************************************
-*/
-
-void L_Extract (Word32 L_32, Word16 *hi, Word16 *lo)
-{
-    *hi = extract_h (L_32);
-    *lo = extract_l (L_msu (L_shr (L_32, 1), *hi, 16384));
-    return;
-}
-
-/*****************************************************************************
- *                                                                           *
- *  Function L_Comp()                                                        *
- *                                                                           *
- *  Compose from two 16 bit DPF a 32 bit integer.                            *
- *                                                                           *
- *     L_32 = hi<<16 + lo<<1                                                 *
- *                                                                           *
- *  Arguments:                                                               *
- *                                                                           *
- *   hi        msb                                                           *
- *   lo        lsf (with sign)                                               *
- *                                                                           *
- *   Return Value :                                                          *
- *                                                                           *
- *             32 bit long signed integer (Word32) whose value falls in the  *
- *             range : 0x8000 0000 <= L_32 <= 0x7fff fff0.                   *
- *                                                                           *
- *****************************************************************************
-*/
-
-Word32 L_Comp (Word16 hi, Word16 lo)
-{
-    Word32 L_32;
-
-    L_32 = L_deposit_h (hi);
-    return (L_mac (L_32, lo, 1));       /* = hi<<16 + lo<<1 */
-}
-
-/*****************************************************************************
  * Function Mpy_32()                                                         *
  *                                                                           *
  *   Multiply two 32 bit integers (DPF). The result is divided by 2**31      *
diff -r 1c514150c033 -r 3da7ab45910d libgsmefr/oper_32b.h
--- a/libgsmefr/oper_32b.h	Sun Apr 21 23:17:21 2024 +0000
+++ b/libgsmefr/oper_32b.h	Mon Apr 22 00:05:01 2024 +0000
@@ -1,7 +1,52 @@
 /* Double precision operations */
 
-void L_Extract (Word32 L_32, Word16 *hi, Word16 *lo);
-Word32 L_Comp (Word16 hi, Word16 lo);
+/*****************************************************************************
+ *                                                                           *
+ *  Function L_Extract()                                                     *
+ *                                                                           *
+ *  Extract from a 32 bit integer two 16 bit DPF.                            *
+ *                                                                           *
+ *  Arguments:                                                               *
+ *                                                                           *
+ *   L_32      : 32 bit integer.                                             *
+ *               0x8000 0000 <= L_32 <= 0x7fff ffff.                         *
+ *   hi        : b16 to b31 of L_32                                          *
+ *   lo        : (L_32 - hi<<16)>>1                                          *
+ *****************************************************************************
+*/
+
+static inline void L_Extract (Word32 L_32, Word16 *hi, Word16 *lo)
+{
+    *hi = L_32 >> 16;
+    *lo = (L_32 & 0xFFFF) >> 1;
+}
+
+/*****************************************************************************
+ *                                                                           *
+ *  Function L_Comp()                                                        *
+ *                                                                           *
+ *  Compose from two 16 bit DPF a 32 bit integer.                            *
+ *                                                                           *
+ *     L_32 = hi<<16 + lo<<1                                                 *
+ *                                                                           *
+ *  Arguments:                                                               *
+ *                                                                           *
+ *   hi        msb                                                           *
+ *   lo        lsf (with sign)                                               *
+ *                                                                           *
+ *   Return Value :                                                          *
+ *                                                                           *
+ *             32 bit long signed integer (Word32) whose value falls in the  *
+ *             range : 0x8000 0000 <= L_32 <= 0x7fff fff0.                   *
+ *                                                                           *
+ *****************************************************************************
+*/
+
+static inline Word32 L_Comp (Word16 hi, Word16 lo)
+{
+    return ((Word32) hi << 16) + ((Word32) lo << 1);
+}
+
 Word32 Mpy_32 (Word16 hi1, Word16 lo1, Word16 hi2, Word16 lo2);
 Word32 Mpy_32_16 (Word16 hi, Word16 lo, Word16 n);
 Word32 Div_32 (Word32 L_num, Word16 denom_hi, Word16 denom_lo);