1b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/* ------------------------------------------------------------------ 2b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * Copyright (C) 1998-2009 PacketVideo 3b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * 4b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * Licensed under the Apache License, Version 2.0 (the "License"); 5b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * you may not use this file except in compliance with the License. 6b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * You may obtain a copy of the License at 7b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * 8b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * http://www.apache.org/licenses/LICENSE-2.0 9b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * 10b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * Unless required by applicable law or agreed to in writing, software 11b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * distributed under the License is distributed on an "AS IS" BASIS, 12b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either 13b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * express or implied. 14b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * See the License for the specific language governing permissions 15b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * and limitations under the License. 16b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * ------------------------------------------------------------------- 17b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber */ 18b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/**************************************************************************************** 19b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas HuberPortions of this file are derived from the following 3GPP standard: 20b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 21b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 3GPP TS 26.073 22b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ANSI-C code for the Adaptive Multi-Rate (AMR) speech codec 23b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Available from http://www.3gpp.org 24b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 25b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber(C) 2004, 3GPP Organizational Partners (ARIB, ATIS, CCSA, ETSI, TTA, TTC) 26b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas HuberPermission to distribute, modify and use this file under the standard license 27b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huberterms listed above has been obtained from the copyright holder. 28b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber****************************************************************************************/ 29b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/* 30b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 31b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 32b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 33b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 34b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Pathname: ./audio/gsm-amr/c/src/cor_h_x.c 35b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 36b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Date: 09/07/2000 37b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 38b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 39b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber REVISION HISTORY 40b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 41b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Description: Created a separate file for cor_h_x function. 42b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 43b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Description: Synchronized file with UMTS versin 3.2.0. Updated coding 44b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber template. 45b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 46b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Description: Made the following changes per comments from Phase 2/3 review: 47b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 1. Modified FOR loop in the code to count down. 48b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 2. Fixed typecasting issue with TI C compiler. 49b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 50b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Description: Added call to round() and L_shl() functions in the last FOR 51b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber loop to make code bit-exact. Updated copyright year. 52b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 53b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Description: Modified to pass pOverflow in via a pointer, rather than 54b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber invoking it as a global variable. 55b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 56b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Description: Made the following changes 57b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 1. Unrolled the correlation loop and add mechanism control 58b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber to compute odd or even number of computations. 59b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 2. Use pointer to avoid continuos addresses calculation 60b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 2. Eliminated math operations that check for saturation. 61b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 62b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Description: Changed round function name to pv_round to avoid conflict with 63b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber round function in C standard library. 64b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 65b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Description: 66b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 67b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 68b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber*/ 69b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 70b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/*---------------------------------------------------------------------------- 71b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; INCLUDES 72b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber----------------------------------------------------------------------------*/ 73b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber#include "typedef.h" 74b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber#include "cnst.h" 75b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber#include "cor_h_x.h" 76b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber#include "basic_op.h" 77b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 78b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/*---------------------------------------------------------------------------- 79b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; MACROS 80b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; Define module specific macros here 81b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber----------------------------------------------------------------------------*/ 82b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 83b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 84b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/*---------------------------------------------------------------------------- 85b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; DEFINES 86b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; Include all pre-processor statements here. Include conditional 87b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; compile variables also. 88b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber----------------------------------------------------------------------------*/ 89b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 90b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/*---------------------------------------------------------------------------- 91b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; LOCAL FUNCTION DEFINITIONS 92b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; Function Prototype declaration 93b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber----------------------------------------------------------------------------*/ 94b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 95b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/*---------------------------------------------------------------------------- 96b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; LOCAL STORE/BUFFER/POINTER DEFINITIONS 97b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; Variable declaration - defined here and used outside this module 98b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber----------------------------------------------------------------------------*/ 99b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 100b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/*---------------------------------------------------------------------------- 101b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; EXTERNAL FUNCTION REFERENCES 102b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; Declare functions defined elsewhere and referenced in this module 103b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber----------------------------------------------------------------------------*/ 104b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 105b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/*---------------------------------------------------------------------------- 106b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; EXTERNAL GLOBAL STORE/BUFFER/POINTER REFERENCES 107b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; Declare variables used in this module but defined elsewhere 108b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber----------------------------------------------------------------------------*/ 109b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 110b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/* 111b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 112b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber FUNCTION NAME: cor_h_x 113b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 114b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber INPUT AND OUTPUT DEFINITIONS 115b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 116b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Inputs: 117b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber h = vector containing the impulse response of the weighted synthesis 118b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber filter; vector contents are of type Word16; vector length is 119b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 2 * L_SUBFR 120b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber x = target signal vector; vector contents are of type Word16; vector 121b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber length is L_SUBFR 122b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber dn = vector containing the correlation between the target and the 123b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber impulse response; vector contents are of type Word16; vector 124b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber length is L_CODE 125b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber sf = scaling factor of type Word16 ; 2 when mode is MR122, 1 for all 126b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber other modes 127b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 128b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Outputs: 129b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber dn contents are the newly calculated correlation values 130b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 131b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow = pointer of type Flag * to overflow indicator. 132b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 133b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Returns: 134b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber None 135b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 136b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Global Variables Used: 137b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber None 138b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 139b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Local Variables Needed: 140b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber None 141b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 142b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 143b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber FUNCTION DESCRIPTION 144b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 145b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber This function computes the correlation between the target signal (x) and the 146b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber impulse response (h). 147b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 148b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber The correlation is given by: d[n] = sum_{i=n}^{L-1} x[i] h[i-n], 149b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber where: n=0,...,L-1 150b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 151b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber d[n] is normalized such that the sum of 5 maxima of d[n] corresponding to 152b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber each position track does not saturate. 153b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 154b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 155b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber REQUIREMENTS 156b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 157b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber None 158b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 159b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 160b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber REFERENCES 161b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 162b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber cor_h.c, UMTS GSM AMR speech codec, R99 - Version 3.2.0, March 2, 2001 163b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 164b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 165b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber PSEUDO-CODE 166b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 167b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Hubervoid cor_h_x ( 168b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 h[], // (i): impulse response of weighted synthesis filter 169b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 x[], // (i): target 170b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 dn[], // (o): correlation between target and h[] 171b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 sf // (i): scaling factor: 2 for 12.2, 1 for others 172b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber) 173b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber{ 174b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber cor_h_x2(h, x, dn, sf, NB_TRACK, STEP); 175b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber} 176b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 177b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 178b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Hubervoid cor_h_x2 ( 179b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 h[], // (i): impulse response of weighted synthesis filter 180b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 x[], // (i): target 181b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 dn[], // (o): correlation between target and h[] 182b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 sf, // (i): scaling factor: 2 for 12.2, 1 for others 183b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 nb_track,// (i): the number of ACB tracks 184b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 step // (i): step size from one pulse position to the next 185b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber in one track 186b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber) 187b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber{ 188b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 i, j, k; 189b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word32 s, y32[L_CODE], max, tot; 190b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 191b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber // first keep the result on 32 bits and find absolute maximum 192b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 193b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber tot = 5; 194b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 195b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber for (k = 0; k < nb_track; k++) 196b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 197b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber max = 0; 198b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber for (i = k; i < L_CODE; i += step) 199b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 200b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s = 0; 201b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber for (j = i; j < L_CODE; j++) 202b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s = L_mac (s, x[j], h[j - i]); 203b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 204b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber y32[i] = s; 205b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 206b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s = L_abs (s); 207b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber if (L_sub (s, max) > (Word32) 0L) 208b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber max = s; 209b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 210b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber tot = L_add (tot, L_shr (max, 1)); 211b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 212b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 213b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber j = sub (norm_l (tot), sf); 214b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 215b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber for (i = 0; i < L_CODE; i++) 216b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 217b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber dn[i] = pv_round (L_shl (y32[i], j)); 218b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 219b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber} 220b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 221b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 222b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber RESOURCES USED [optional] 223b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 224b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber When the code is written for a specific target processor the 225b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber the resources used should be documented below. 226b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 227b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber HEAP MEMORY USED: x bytes 228b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 229b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber STACK MEMORY USED: x bytes 230b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 231b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber CLOCK CYCLES: (cycle count equation for this function) + (variable 232b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber used to represent cycle count for each subroutine 233b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber called) 234b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber where: (cycle count variable) = cycle count for [subroutine 235b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber name] 236b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 237b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 238b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber CAUTION [optional] 239b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber [State any special notes, constraints or cautions for users of this function] 240b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 241b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 242b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber*/ 243b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 244b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Hubervoid cor_h_x( 245b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 h[], /* (i): impulse response of weighted synthesis filter */ 246b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 x[], /* (i): target */ 247b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 dn[], /* (o): correlation between target and h[] */ 248b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 sf, /* (i): scaling factor: 2 for 12.2, 1 for others */ 249b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Flag *pOverflow /* (o): pointer to overflow flag */ 250b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber) 251b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber{ 2522d0ac425564ff9882ebaac5267d1a04d4af67d00Bernhard Rosenkränzer Word16 i; 2532d0ac425564ff9882ebaac5267d1a04d4af67d00Bernhard Rosenkränzer Word16 j; 2542d0ac425564ff9882ebaac5267d1a04d4af67d00Bernhard Rosenkränzer Word16 k; 255b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 256b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word32 s; 257b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word32 y32[L_CODE]; 258b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word32 max; 259b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word32 tot; 260b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 261b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 *p_x; 262b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 *p_ptr; 263b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word32 *p_y32; 264b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 265b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 266b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber tot = 5; 267b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber for (k = 0; k < NB_TRACK; k++) /* NB_TRACK = 5 */ 268b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 269b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber max = 0; 270b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber for (i = k; i < L_CODE; i += STEP) /* L_CODE = 40; STEP = 5 */ 271b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 272b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s = 0; 273b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber p_x = &x[i]; 274b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber p_ptr = h; 275b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 276b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber for (j = (L_CODE - i - 1) >> 1; j != 0; j--) 277b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 278b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s += ((Word32) * (p_x++) * *(p_ptr++)) << 1; 279b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s += ((Word32) * (p_x++) * *(p_ptr++)) << 1; 280b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 281b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 282b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s += ((Word32) * (p_x++) * *(p_ptr++)) << 1; 283b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 284b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber if (!((L_CODE - i) & 1)) /* if even number of iterations */ 285b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 286b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s += ((Word32) * (p_x++) * *(p_ptr++)) << 1; 287b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 288b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 289b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber y32[i] = s; 290b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 291b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber if (s < 0) 292b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 293b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s = -s; 294b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 295b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 296b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber if (s > max) 297b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 298b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber max = s; 299b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 300b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 301b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 302b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber tot += (max >> 1); 303b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 304b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 305b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 306b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber j = norm_l(tot) - sf; 307b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 308b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber p_ptr = dn; 309b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber p_y32 = y32;; 310b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 311b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber for (i = L_CODE >> 1; i != 0; i--) 312b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 313b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s = L_shl(*(p_y32++), j, pOverflow); 314b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber *(p_ptr++) = (s + 0x00008000) >> 16; 315b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s = L_shl(*(p_y32++), j, pOverflow); 316b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber *(p_ptr++) = (s + 0x00008000) >> 16; 317b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 318b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 319b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber return; 320b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber} 321