convolve.c revision 5d5c3a132bb446ac78a37dfaac24a46cacf0dd73
1e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard/*
2e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** Copyright 2003-2010, VisualOn, Inc.
3e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard **
4e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** Licensed under the Apache License, Version 2.0 (the "License");
5e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** you may not use this file except in compliance with the License.
6e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** You may obtain a copy of the License at
7e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard **
8e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard **     http://www.apache.org/licenses/LICENSE-2.0
9e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard **
10e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** Unless required by applicable law or agreed to in writing, software
11e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** distributed under the License is distributed on an "AS IS" BASIS,
12e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
13e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** See the License for the specific language governing permissions and
14e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** limitations under the License.
15e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard */
16e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
17e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard/***********************************************************************
18e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard       File: convolve.c
19e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
205d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen       Description:Perform the convolution between two vectors x[] and h[]
215d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen                   and write the result in the vector y[]
22e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
23e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard************************************************************************/
24e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
25e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#include "typedef.h"
26e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#include "basic_op.h"
27e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
2884333e0475bc911adc16417f4ca327c975cf6c36Andreas Huber#define UNUSED(x) (void)(x)
2984333e0475bc911adc16417f4ca327c975cf6c36Andreas Huber
30e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgardvoid Convolve (
315d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        Word16 x[],        /* (i)     : input vector                           */
325d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        Word16 h[],        /* (i)     : impulse response                       */
335d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        Word16 y[],        /* (o)     : output vector                          */
345d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        Word16 L           /* (i)     : vector size                            */
355d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen          )
36e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard{
375d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen    Word32  i, n;
385d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen    Word16 *tmpH,*tmpX;
395d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen    Word32 s;
4084333e0475bc911adc16417f4ca327c975cf6c36Andreas Huber        UNUSED(L);
4184333e0475bc911adc16417f4ca327c975cf6c36Andreas Huber
425d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen    for (n = 0; n < 64;)
435d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen    {
445d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        tmpH = h+n;
455d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        tmpX = x;
465d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        i=n+1;
475d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        s = vo_mult32((*tmpX++), (*tmpH--));i--;
485d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        while(i>0)
495d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        {
505d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            s += vo_mult32((*tmpX++), (*tmpH--));
515d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            s += vo_mult32((*tmpX++), (*tmpH--));
525d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            s += vo_mult32((*tmpX++), (*tmpH--));
535d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            s += vo_mult32((*tmpX++), (*tmpH--));
545d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            i -= 4;
555d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        }
565d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        y[n] = ((s<<1) + 0x8000)>>16;
575d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        n++;
58e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
595d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        tmpH = h+n;
605d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        tmpX = x;
615d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        i=n+1;
625d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        s =  vo_mult32((*tmpX++), (*tmpH--));i--;
635d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        s += vo_mult32((*tmpX++), (*tmpH--));i--;
64e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
655d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        while(i>0)
665d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        {
675d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            s += vo_mult32((*tmpX++), (*tmpH--));
685d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            s += vo_mult32((*tmpX++), (*tmpH--));
695d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            s += vo_mult32((*tmpX++), (*tmpH--));
705d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            s += vo_mult32((*tmpX++), (*tmpH--));
715d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            i -= 4;
725d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        }
735d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        y[n] = ((s<<1) + 0x8000)>>16;
745d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        n++;
75e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
765d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        tmpH = h+n;
775d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        tmpX = x;
785d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        i=n+1;
795d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        s =  vo_mult32((*tmpX++), (*tmpH--));i--;
805d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        s += vo_mult32((*tmpX++), (*tmpH--));i--;
815d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        s += vo_mult32((*tmpX++), (*tmpH--));i--;
82e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
835d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        while(i>0)
845d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        {
855d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            s += vo_mult32((*tmpX++), (*tmpH--));
865d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            s += vo_mult32((*tmpX++), (*tmpH--));
875d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            s += vo_mult32((*tmpX++), (*tmpH--));
885d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            s += vo_mult32((*tmpX++), (*tmpH--));
895d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            i -= 4;
905d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        }
915d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        y[n] = ((s<<1) + 0x8000)>>16;
925d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        n++;
93e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
945d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        s = 0;
955d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        tmpH = h+n;
965d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        tmpX = x;
975d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        i=n+1;
985d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        while(i>0)
995d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        {
1005d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            s += vo_mult32((*tmpX++), (*tmpH--));
1015d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            s += vo_mult32((*tmpX++), (*tmpH--));
1025d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            s += vo_mult32((*tmpX++), (*tmpH--));
1035d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            s += vo_mult32((*tmpX++), (*tmpH--));
1045d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen            i -= 4;
1055d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        }
1065d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        y[n] = ((s<<1) + 0x8000)>>16;
1075d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen        n++;
1085d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen    }
1095d5c3a132bb446ac78a37dfaac24a46cacf0dd73Marco Nelissen    return;
110e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard}
111e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
112e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
113e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
114