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 Pathname: ./gsm-amr/c/src/shr_r.c
32a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
33a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber------------------------------------------------------------------------------
34a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber REVISION HISTORY
35a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
36a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Description: Created separate file for the shr_r function. Sync'ed up
37a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber          with the current template and fixed tabs.
38a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
39a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Description: Passing around pOverflow as per EPOC changes.
40a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
41a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Who:                           Date:
42a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Description:
43a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
44a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber------------------------------------------------------------------------------
45a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber INPUT AND OUTPUT DEFINITIONS
46a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
47a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Inputs:
48a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    var1 = 16 bit short signed integer (Word16) whose value falls in
49a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber           the range : 0xffff 8000 <= var1 <= 0x0000 7fff.
50a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    var2 = 16 bit short signed integer (Word16) whose value falls in
51a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber           the range : 0xffff 8000 <= var2 <= 0x0000 7fff.
52a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
53a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Local Stores/Buffers/Pointers Needed:
54a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    None
55a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
56a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Global Stores/Buffers/Pointers Needed:
57a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    None
58a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
59a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Outputs:
60a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    var_out = shifted input w/ rounding (Word16)
61a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
62a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Pointers and Buffers Modified:
63a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    None
64a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
65a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Local Stores Modified:
66a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    None
67a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
68a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber Global Stores Modified:
69a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    None
70a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
71a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber------------------------------------------------------------------------------
72a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber FUNCTION DESCRIPTION
73a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
74a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber This function arithmetically shifts the 16 bit input var1 right var2 positions
75a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber with rounding. If var2 is negative, arithmetically shift var1 left by
76a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber -var2 with rounding. Saturate the result in case of underflows or
77a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber overflows.
78a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
79a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    - If var2 is greater than zero :
80a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        if (sub(shl(shr(var1,var2),1),shr(var1,sub(var2,1))))
81a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        is equal to zero
82a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        then
83a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber            shr_r(var1,var2) = shr(var1,var2)
84a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        else
85a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber            shr_r(var1,var2) = add(shr(var1,var2),1)
86a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    - If var2 is less than or equal to zero :
87a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        shr_r(var1,var2) = shr(var1,var2).
88a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
89a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber------------------------------------------------------------------------------
90a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber REQUIREMENTS
91a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
92a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber None
93a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
94a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber------------------------------------------------------------------------------
95a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber REFERENCES
96a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
97a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber [1] basicop2.c, ETS Version 2.0.0, February 8, 1999
98a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
99a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber------------------------------------------------------------------------------
100a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber PSEUDO-CODE
101a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
102a30d40083856cb4edd225faf8b488fab156e5976Andreas HuberWord16 shr_r (Word16 var1, Word16 var2)
103a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber{
104a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    Word16 var_out;
105a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
106a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    if (var2 > 15)
107a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    {
108a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        var_out = 0;
109a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    }
110a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    else
111a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    {
112a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        var_out = shr (var1, var2);
113a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber#if (WMOPS)
114a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        multiCounter[currCounter].shr--;
115a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber#endif
116a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
117a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        if (var2 > 0)
118a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        {
119a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber            if ((var1 & ((Word16) 1 << (var2 - 1))) != 0)
120a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber            {
121a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber                var_out++;
122a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber            }
123a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        }
124a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    }
125a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber#if (WMOPS)
126a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    multiCounter[currCounter].shr_r++;
127a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber#endif
128a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    return (var_out);
129a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber}
130a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
131a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber------------------------------------------------------------------------------
132a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber RESOURCES USED
133a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber   When the code is written for a specific target processor the
134a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber     the resources used should be documented below.
135a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
136a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber STACK USAGE: [stack count for this module] + [variable to represent
137a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber          stack usage for each subroutine called]
138a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
139a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber     where: [stack usage variable] = stack usage for [subroutine
140a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber         name] (see [filename].ext)
141a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
142a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber DATA MEMORY USED: x words
143a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
144a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber PROGRAM MEMORY USED: x words
145a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
146a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber CLOCK CYCLES: [cycle count equation for this module] + [variable
147a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber           used to represent cycle count for each subroutine
148a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber           called]
149a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
150a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber     where: [cycle count variable] = cycle count for [subroutine
151a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        name] (see [filename].ext)
152a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
153a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber------------------------------------------------------------------------------
154a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber*/
155a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
156a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
157a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber/*----------------------------------------------------------------------------
158a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber; INCLUDES
159a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber----------------------------------------------------------------------------*/
160a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber#include    "basic_op.h"
161a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
162a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber/*----------------------------------------------------------------------------
163a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber; MACROS
164a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber; Define module specific macros here
165a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber----------------------------------------------------------------------------*/
166a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
167a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber/*----------------------------------------------------------------------------
168a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber; DEFINES
169a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber; Include all pre-processor statements here. Include conditional
170a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber; compile variables also.
171a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber----------------------------------------------------------------------------*/
172a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
173a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber/*----------------------------------------------------------------------------
174a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber; LOCAL FUNCTION DEFINITIONS
175a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber; Function Prototype declaration
176a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber----------------------------------------------------------------------------*/
177a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
178a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber/*----------------------------------------------------------------------------
179a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber; LOCAL STORE/BUFFER/POINTER DEFINITIONS
180a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber; Variable declaration - defined here and used outside this module
181a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber----------------------------------------------------------------------------*/
182a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
183a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber/*----------------------------------------------------------------------------
184a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber; EXTERNAL FUNCTION REFERENCES
185a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber; Declare functions defined elsewhere and referenced in this module
186a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber----------------------------------------------------------------------------*/
187a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
188a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber/*----------------------------------------------------------------------------
189a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber; EXTERNAL GLOBAL STORE/BUFFER/POINTER REFERENCES
190a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber; Declare variables used in this module but defined elsewhere
191a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber----------------------------------------------------------------------------*/
192a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
193a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber/*----------------------------------------------------------------------------
194a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber; FUNCTION CODE
195a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber----------------------------------------------------------------------------*/
196a30d40083856cb4edd225faf8b488fab156e5976Andreas HuberWord16 shr_r(register Word16 var1, register Word16 var2, Flag *pOverflow)
197a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber{
198a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    /*----------------------------------------------------------------------------
199a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ; Define all local variables
200a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ----------------------------------------------------------------------------*/
201a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    Word16 var_out;
202a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
203a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    /*----------------------------------------------------------------------------
204a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ; Function body here
205a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ----------------------------------------------------------------------------*/
206a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    if (var2 > 15)
207a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    {
208a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        var_out = 0;
209a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    }
210a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    else
211a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    {
212a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        var_out = shr(var1, var2, pOverflow);
213a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        if (var2 > 0)
214a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        {
215a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber            if ((var1 & ((Word16) 1 << (var2 - 1))) != 0)
216a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber            {
217a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber                var_out++;
218a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber            }
219a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber        }
220a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    }
221a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber
222a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    /*----------------------------------------------------------------------------
223a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ; Return nothing or data or data pointer
224a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    ----------------------------------------------------------------------------*/
225a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber    return (var_out);
226a30d40083856cb4edd225faf8b488fab156e5976Andreas Huber}
227