view src/g23m-fad/fad/fad_rbm.c @ 702:9394305d4ff5 default tip

etm_audio.c: fix off-by-one error in auw of FIR coefficients This fix was already made in FC Tourmaline a while back, but it is also the kind of bugfix that deserves to be backported to Magnetite and Selenite as well.
author Mychaela Falconia <falcon@freecalypso.org>
date Mon, 31 Oct 2022 00:14:44 +0000
parents 90eb61ecd093
children
line wrap: on
line source

/* 
+----------------------------------------------------------------------------- 
|  Project :  GSM-F&D (8411)
|  Modul   :  FAD_RBM
+----------------------------------------------------------------------------- 
|  Copyright 2002 Texas Instruments Berlin, AG 
|                 All rights reserved. 
| 
|                 This file is confidential and a trade secret of Texas 
|                 Instruments Berlin, AG 
|                 The receipt of or possession of this file does not convey 
|                 any rights to reproduce or disclose its contents or to 
|                 manufacture, use, or sell anything it may describe, in 
|                 whole, or in part, without the specific written consent of 
|                 Texas Instruments Berlin, AG. 
+----------------------------------------------------------------------------- 
|  Purpose :  This Modul defines the receive buffer manager for
|             the component Fax Adaptation 3.45 of the mobile station
+----------------------------------------------------------------------------- 
*/ 

#ifndef FAD_RBM_C
#define FAD_RBM_C
#endif

#define ENTITY_FAD

/*==== INCLUDES ===================================================*/

#include <string.h>
#include "typedefs.h"
#include "pconst.cdg"
#include "vsi.h"
#include "custom.h"
#include "gsm.h"
#include "cnf_fad.h"
#include "mon_fad.h"
#include "prim.h"
#include "pei.h"
#include "tok.h"
#include "ccdapi.h"
#include "fad.h"
#include "ra_l1int.h"

/*==== CONST =======================================================*/

/*==== TYPES =======================================================*/

/*==== VAR EXPORT ==================================================*/

/*==== VAR LOCAL ===================================================*/

/*==== FUNCTIONS ===================================================*/

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-F&D (8411)            MODULE  : FAD_RBM              |
| STATE   : code                      ROUTINE : rbmi_alloc_curr_prim |
+--------------------------------------------------------------------+

  PURPOSE : 

*/

LOCAL BOOL rbmi_alloc_curr_prim(void)
{
  T_RBM_FAD *rbm = &fad_data->rbm;

  PALLOC_SDU (fad_data_ind, FAD_DATA_IND, (USHORT)(rbm->FramesPerPrim * FRAME_SIZE * 8));

  TRACE_FUNCTION ("rbmi_alloc_curr_prim()");

  fad_data_ind->sdu.l_buf = 0;
  fad_data_ind->sdu.o_buf = 0;

  rbm->CurrPrim         = fad_data_ind;
  rbm->FramesInCurrPrim = 0;

  return (rbm->CurrPrim NEQ NULL);
}

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-F&D (8411)             MODULE  : FAD_RBM             |
| STATE   : code                       ROUTINE : rbm_init            |
+--------------------------------------------------------------------+

  PURPOSE : 

*/

GLOBAL void rbm_init(USHORT framesPerPrim)
{
  T_RBM_FAD *rbm = &fad_data->rbm;

  TRACE_FUNCTION ("rbm_init()");

  cl_ribu_create(&rbm->ribu, MAX_SDU_SIZE, DL_RIBU_DEPTH);
  rbm->FramesPerPrim = framesPerPrim;
  rbm_deinit(FALSE);
  
  if (rbmi_alloc_curr_prim())
    rbm->Initialised = TRUE;
}

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-F&D (8411)             MODULE  : FAD_RBM             |
| STATE   : code                       ROUTINE : rbm_deinit          |
+--------------------------------------------------------------------+

  PURPOSE : This function frees all allocated T_FAD_DATA_IND primitives
            of the receive buffer manager.

*/

GLOBAL void rbm_deinit(BOOL final)
{
  T_RBM_FAD *rbm = &fad_data->rbm;
  U8 n;

  TRACE_FUNCTION ("rbm_deinit()");

  rbm->Initialised = FALSE;

  if (rbm->CurrPrim NEQ (T_FAD_DATA_IND *)NULL)
  {
    PFREE (rbm->CurrPrim)
    rbm->CurrPrim = (T_FAD_DATA_IND *) NULL;
  }

  for (n = 0; n < RBM_PQ_SIZE; n++)
  {
    if (rbm->PQ_Array[rbm->PQ.ri] NEQ (T_FAD_DATA_IND *)NULL)
    {
      PFREE (rbm->PQ_Array[rbm->PQ.ri])
      rbm->PQ_Array[rbm->PQ.ri] = (T_FAD_DATA_IND *)NULL;
    }
  }
  cl_ribu_init(&rbm->PQ, RBM_PQ_SIZE);
  rbm->FramesInCurrPrim = 0;

  if (final EQ TRUE) /* during deactivation */
  {
    cl_ribu_release(&rbm->ribu); /* frees downlink FIFO */
  }
}

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-F&D (8411)             MODULE  : FAD_RBM             |
| STATE   : code                       ROUTINE : rbmi_pq_enq         |
+--------------------------------------------------------------------+

  PURPOSE : A primitive is put into the primitive queue.

*/

LOCAL BOOL rbmi_pq_enq(T_FAD_DATA_IND *prim)
{
  T_RBM_FAD *rbm = &fad_data->rbm;

  TRACE_FUNCTION ("rbmi_pq_enq()");
  
  if (rbm->PQ_Array[rbm->PQ.wi] EQ NULL)
  {
    /*
     * empty PQ entry found
     */
    prim->sdu.l_buf = rbm->FramesPerPrim * FRAME_SIZE * 8;

    rbm->PQ_Array[cl_ribu_write_index(&rbm->PQ)] = prim;
    return TRUE;
  }
  else
    return FALSE; /* no available entry in PQ */
}

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-F&D (8411)    MODULE  : FAD_RBM                      |
| STATE   : code              ROUTINE : rbmi_copy_frame_to_curr_prim |
+--------------------------------------------------------------------+

  PURPOSE : 

*/

LOCAL BOOL rbmi_copy_frame_to_curr_prim(UBYTE *frame)
{
  T_RBM_FAD *rbm = &fad_data->rbm;
    
  TRACE_FUNCTION ("rbmi_copy_frame_to_curr_prim()");

  if (rbm->CurrPrim EQ NULL)
    if (!rbmi_alloc_curr_prim())
      return FALSE;

  if (rbm->FramesInCurrPrim < rbm->FramesPerPrim)
  {
    memcpy(&rbm->CurrPrim->sdu.buf[rbm->FramesInCurrPrim * FRAME_SIZE], frame, FRAME_SIZE);
    rbm->FramesInCurrPrim++;
  }

  if (rbm->FramesInCurrPrim >= rbm->FramesPerPrim)
  {
    /*
     * Current primitive is full.
     * Store it in the PQ and allocate a new current prim
     */
    if (rbmi_pq_enq(rbm->CurrPrim))
    {
      /*
       * Current prim is in PQ -> allocate a new current prim
       */
      return rbmi_alloc_curr_prim();
    }
    else
    {
      return FALSE;
    }
  }
  return TRUE;
}

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-F&D (8411)             MODULE  : FAD_RBM             |
| STATE   : code                       ROUTINE : rbmi_pq_deq         |
+--------------------------------------------------------------------+

  PURPOSE : A fad_data_ind primitive is taken from the queue. This
            is done when the queue is not empty and a FAD_GETDATA_REQ
            is executed. Of after storing a primitive in the queue,
            when the upper layer is waiting for data.

*/

LOCAL T_FAD_DATA_IND *rbmi_pq_deq(void)
{
  T_RBM_FAD *rbm = &fad_data->rbm;
  T_FAD_DATA_IND *prim = rbm->PQ_Array[rbm->PQ.ri];
  
  TRACE_FUNCTION ("rbmi_pq_deq()");

  if (prim NEQ NULL)
  {
    rbm->PQ_Array[cl_ribu_read_index(&rbm->PQ)] = NULL;
  }
  return prim;
}

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-F&D (8411)             MODULE  : FAD_RBM             |
| STATE   : code                       ROUTINE : rbm_reset           |
+--------------------------------------------------------------------+

  PURPOSE : This function must be called once at startup before any
            other procedures of the RBM is invoked. (Coldstart)

*/

GLOBAL void rbm_reset(void)
{
  T_RBM_FAD *rbm = &fad_data->rbm;

  TRACE_FUNCTION ("rbm_reset()");

  rbm->CurrPrim         = (T_FAD_DATA_IND *) NULL;
  rbm->FramesInCurrPrim = 0;
  cl_ribu_init(&rbm->PQ, RBM_PQ_SIZE);
  rbm->FramesPerPrim    = 1;
  rbm->Initialised      = FALSE;
}

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-F&D (8411)             MODULE  : FAD_RBM             |
| STATE   : code                       ROUTINE : rbm_store_frames    |
+--------------------------------------------------------------------+

  PURPOSE : This procedure is only used in the simulation environment
            to store multiple frames in the receive buffer.
            In the implementation the copy is performed by the RA layer
            which have access to the shared memory area of the DSP.
*/

GLOBAL BOOL rbm_store_frames(T_FD *pFD, BOOL *primIsReady)
{
  T_RBM_FAD *rbm = &fad_data->rbm;

  if (rbm->Initialised)
  {
    USHORT n;
    BOOL flag = FALSE;

    for (n = 0; n < pFD->len/FRAME_SIZE; n++)
    {
      if (!rbmi_copy_frame_to_curr_prim(&pFD->buf[n * FRAME_SIZE]))
      {
		flag = TRUE;
		break;
      }
    }
    if (flag)
	  return FALSE;
  }
  *primIsReady = rbm->PQ.filled;
  return TRUE;
}

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-F&D (8411)             MODULE  : FAD_RBM             |
| STATE   : code                       ROUTINE : rbm_get_prim        |
+--------------------------------------------------------------------+

  PURPOSE : This is just a wrapper for rbmi_pq_deq. The queu is an
            internal matter of the RBM, therefore the function
            rbmi_pq_deq should not be used directly by the user.

*/

GLOBAL T_FAD_DATA_IND *rbm_get_prim(void)
{
  TRACE_FUNCTION ("rbm_get_prim()");

  return rbmi_pq_deq();
}

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-F&D (8411)             MODULE  : FAD_RBM             |
| STATE   : code                       ROUTINE : rbm_get_curr_prim   |
+--------------------------------------------------------------------+

  PURPOSE : 

*/

GLOBAL T_FAD_DATA_IND *rbm_get_curr_prim(void)
{
  T_RBM_FAD *rbm = &fad_data->rbm;
  T_FAD_DATA_IND *prim;

  TRACE_FUNCTION ("rbm_get_curr_prim()");

  prim = rbm->CurrPrim;
  if (prim NEQ NULL)
  {
    rbm->CurrPrim->sdu.l_buf = rbm->FramesInCurrPrim * FRAME_SIZE * 8;
    rbm->CurrPrim = (T_FAD_DATA_IND *) NULL;
  }
  return prim;
}