1a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber/* ------------------------------------------------------------------
2a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber * Copyright (C) 1998-2009 PacketVideo
3a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber *
4a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber * Licensed under the Apache License, Version 2.0 (the "License");
5a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber * you may not use this file except in compliance with the License.
6a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber * You may obtain a copy of the License at
7a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber *
8a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber *      http://www.apache.org/licenses/LICENSE-2.0
9a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber *
10a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber * Unless required by applicable law or agreed to in writing, software
11a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber * distributed under the License is distributed on an "AS IS" BASIS,
12a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either
13a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber * express or implied.
14a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber * See the License for the specific language governing permissions
15a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber * and limitations under the License.
16a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber * -------------------------------------------------------------------
17a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber */
18a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber/****************************************************************************************
19a30d40083856cb4edd225faf8b488fab156e5976Andreas HuberPortions of this file are derived from the following 3GPP standard:
20a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
21a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    3GPP TS 26.073
22a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ANSI-C code for the Adaptive Multi-Rate (AMR) speech codec
23a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    Available from http://www.3gpp.org
24a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
25a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber(C) 2004, 3GPP Organizational Partners (ARIB, ATIS, CCSA, ETSI, TTA, TTC)
26a30d40083856cb4edd225faf8b488fab156e5976Andreas HuberPermission to distribute, modify and use this file under the standard license
27a30d40083856cb4edd225faf8b488fab156e5976Andreas Huberterms listed above has been obtained from the copyright holder.
28a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber****************************************************************************************/
29a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber/*
30a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
31a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Filename: /audio/gsm_amr/c/include/mult.h
32a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
33a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber------------------------------------------------------------------------------
34a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber REVISION HISTORY
35a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
36a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Description: Created separate header file for mult function.
37a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
38a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Description: Changed prototype of the mult() function. Instead of using global
39a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber              a pointer to overflow flag is now passed into the function.
40a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
41a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Description: Updated copyright information.
42a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber              Updated variable name from "overflow" to "pOverflow" to match
43a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber              with original function declaration.
44a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
45a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Description: Moved _cplusplus #ifdef after Include section.
46a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
47a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Description: Providing support for ARM and Linux-ARM assembly instructions.
48a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
49a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Who:                       Date:
50a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Description:
51a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
52a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber------------------------------------------------------------------------------
53a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber INCLUDE DESCRIPTION
54a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
55a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber This file contains all the constant definitions and prototype definitions
56a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber needed by the mult function.
57a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
58a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber------------------------------------------------------------------------------
59a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber*/
60a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
61a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber#ifndef MULT_H
62a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber#define MULT_H
63a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
64a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber/*----------------------------------------------------------------------------
65a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber; INCLUDES
66a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber----------------------------------------------------------------------------*/
67a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
68a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber#include    "basicop_malloc.h"
69a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
70a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber/*--------------------------------------------------------------------------*/
71a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber#ifdef __cplusplus
72a30d40083856cb4edd225faf8b488fab156e5976Andreas Huberextern "C"
73a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber{
74a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber#endif
75a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
76a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    /*----------------------------------------------------------------------------
77a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ; MACROS
78a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ; Define module specific macros here
79a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ----------------------------------------------------------------------------*/
80a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
81a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    /*----------------------------------------------------------------------------
82a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ; DEFINES
83a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ; Include all pre-processor statements here.
84a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ----------------------------------------------------------------------------*/
85a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
86a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    /*----------------------------------------------------------------------------
87a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ; EXTERNAL VARIABLES REFERENCES
88a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ; Declare variables used in this module but defined elsewhere
89a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ----------------------------------------------------------------------------*/
90a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
91a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    /*----------------------------------------------------------------------------
92a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ; SIMPLE TYPEDEF'S
93a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ----------------------------------------------------------------------------*/
94a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
95a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    /*----------------------------------------------------------------------------
96a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ; ENUMERATED TYPEDEF'S
97a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ----------------------------------------------------------------------------*/
98a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
99a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    /*----------------------------------------------------------------------------
100a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ; STRUCTURES TYPEDEF'S
101a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ----------------------------------------------------------------------------*/
102a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
103a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    /*----------------------------------------------------------------------------
104a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ; GLOBAL FUNCTION DEFINITIONS
105a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ; Function Prototype declaration
106a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ----------------------------------------------------------------------------*/
107a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber#if defined(PV_ARM_V5)
108a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
109a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    __inline Word16 mult(Word16 var1, Word16 var2, Flag *pOverflow)
110a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    {
111a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        Word32 product;
112a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
113a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        OSCL_UNUSED_ARG(pOverflow);
114a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
115a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        __asm
116a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        {
117a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber            SMULBB product, var1, var2
118a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber            MOV    product, product, ASR #15
119a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber            CMP    product, 0x7FFF
120a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber            MOVGE  product, 0x7FFF
121a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        }
122a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
123a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        return ((Word16) product);
124a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    }
125a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
126a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber#elif defined(PV_ARM_GCC_V5)
127a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
128a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    __inline Word16 mult(Word16 var1, Word16 var2, Flag *pOverflow)
129a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    {
130a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        register Word32 ra = var1;
131a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        register Word32 rb = var2;
132a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        Word32 product;
133a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        Word32 temp = 0x7FFF;
134a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
135a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        OSCL_UNUSED_ARG(pOverflow);
136a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
137a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        asm volatile("smulbb %0, %1, %2"
138a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber             : "=r"(product)
139a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber                             : "r"(ra), "r"(rb)
140a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber                            );
141a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        asm volatile("mov %0, %1, ASR #15"
142a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber             : "=r"(product)
143a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber                             : "r"(product)
144a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber                            );
145a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        asm volatile("cmp %0, %1"
146a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber             : "=r"(product)
147a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber                             : "r"(temp)
148a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber                            );
149a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        asm volatile("movge %0, %1"
150a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber             : "=r"(product)
151a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber                             : "r"(temp)
152a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber                            );
153a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
154a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        return ((Word16) product);
155a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    }
156a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
157a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber#else /* C EQUIVALENT */
158a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
159a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    static inline Word16 mult(Word16 var1, Word16 var2, Flag *pOverflow)
160a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    {
161a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        register Word32 product;
162a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
163a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        product = ((Word32) var1 * var2) >> 15;
164a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
165a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        /* Saturate result (if necessary). */
166a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        /* var1 * var2 >0x00007fff is the only case */
167a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        /* that saturation occurs. */
168a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
169a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        if (product > 0x00007fffL)
170a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        {
171a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber            *pOverflow = 1;
172a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber            product = (Word32) MAX_16;
173a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        }
174a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
175a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
176a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        /* Return the product as a 16 bit value by type casting Word32 to Word16 */
177a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
178a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        return ((Word16) product);
179a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    }
180a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
181a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber#endif
182a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    /*----------------------------------------------------------------------------
183a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ; END
184a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ----------------------------------------------------------------------------*/
185a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber#ifdef __cplusplus
186a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber}
187a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber#endif
188a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
189a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber#endif  /* _MULT_H_ */
190a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
191