lte-enb.c 45.6 KB
Newer Older
1 2 3 4 5
/*
 * Licensed to the OpenAirInterface (OAI) Software Alliance under one or more
 * contributor license agreements.  See the NOTICE file distributed with
 * this work for additional information regarding copyright ownership.
 * The OpenAirInterface Software Alliance licenses this file to You under
6
 * the OAI Public License, Version 1.1  (the "License"); you may not use this file
7 8 9 10 11 12 13 14 15 16 17 18 19 20
 * except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *      http://www.openairinterface.org/?page_id=698
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 *-------------------------------------------------------------------------------
 * For more information about the OpenAirInterface (OAI) Software Alliance:
 *      contact@openairinterface.org
 */
21 22 23 24 25 26 27 28 29 30 31

/*! \file lte-enb.c
 * \brief Top-level threads for eNodeB
 * \author R. Knopp, F. Kaltenberger, Navid Nikaein
 * \date 2012
 * \version 0.1
 * \company Eurecom
 * \email: knopp@eurecom.fr,florian.kaltenberger@eurecom.fr, navid.nikaein@eurecom.fr
 * \note
 * \warning
 */
32

Raymond Knopp's avatar
Raymond Knopp committed
33 34
#define _GNU_SOURCE
#include <pthread.h>
35

36

37 38
#undef MALLOC //there are two conflicting definitions, so we better make sure we don't use it at all

39 40
#include "rt_wrapper.h"

41
#include "assertions.h"
42

43 44 45

#include "PHY/types.h"

46 47 48 49 50 51
#include "PHY/INIT/phy_init.h"

#include "PHY/defs_eNB.h"
#include "SCHED/sched_eNB.h"
#include "PHY/LTE_TRANSPORT/transport_proto.h"

52 53 54 55 56 57 58
#undef MALLOC //there are two conflicting definitions, so we better make sure we don't use it at all
//#undef FRAME_LENGTH_COMPLEX_SAMPLES //there are two conflicting definitions, so we better make sure we don't use it at all

#include "../../ARCH/COMMON/common_lib.h"

//#undef FRAME_LENGTH_COMPLEX_SAMPLES //there are two conflicting definitions, so we better make sure we don't use it at all

59
#include "PHY/LTE_TRANSPORT/if4_tools.h"
60
#include "PHY/LTE_TRANSPORT/if5_tools.h"
61

62 63 64 65 66 67 68 69
#include "PHY/phy_extern.h"


#include "LAYER2/MAC/mac.h"
#include "LAYER2/MAC/mac_extern.h"
#include "LAYER2/MAC/mac_proto.h"
#include "RRC/LTE/rrc_extern.h"
#include "PHY_INTERFACE/phy_interface.h"
70
#include "common/utils/LOG/log.h"
71 72 73
#include "UTIL/OTG/otg_tx.h"
#include "UTIL/OTG/otg_externs.h"
#include "UTIL/MATH/oml.h"
74
#include "common/utils/LOG/vcd_signal_dumper.h"
75 76
#include "UTIL/OPT/opt.h"
#include "enb_config.h"
77

78 79

#ifndef OPENAIR2
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
80
  #include "UTIL/OTG/otg_extern.h"
81 82 83
#endif

#if defined(ENABLE_ITTI)
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
84 85 86 87 88 89
  #if defined(ENABLE_USE_MME)
    #include "s1ap_eNB.h"
    #ifdef PDCP_USE_NETLINK
      #include "SIMULATION/ETH_TRANSPORT/proto.h"
    #endif
  #endif
90 91
#endif

Rohit Gupta's avatar
Rohit Gupta committed
92 93
#include "T.h"

94 95 96 97 98 99 100 101 102 103
//#define DEBUG_THREADS 1

//#define USRP_DEBUG 1
struct timing_info_t {
  //unsigned int frame, hw_slot, last_slot, next_slot;
  RTIME time_min, time_max, time_avg, time_last, time_now;
  //unsigned int mbox0, mbox1, mbox2, mbox_target;
  unsigned int n_samples;
} timing_info;

104 105
// Fix per CC openair rf/if device update
// extern openair0_device openair0;
106

107

108
#if defined(ENABLE_ITTI)
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
109 110
  extern volatile int             start_eNB;
  extern volatile int             start_UE;
111 112 113
#endif
extern volatile int                    oai_exit;

Cedric Roux's avatar
Cedric Roux committed
114
extern int transmission_mode;
115

116 117
extern int oaisim_flag;

118 119 120
//uint16_t sf_ahead=4;
extern uint16_t sf_ahead;

121

122
//pthread_t                       main_eNB_thread;
123 124 125

time_stats_t softmodem_stats_mt; // main thread
time_stats_t softmodem_stats_hw; //  hw acquisition
126
time_stats_t softmodem_stats_rxtx_sf; // total tx time
127
time_stats_t nfapi_meas; // total tx time
128
time_stats_t softmodem_stats_rx_sf; // total rx time
129 130 131 132 133 134 135 136 137

/* mutex, cond and variable to serialize phy proc TX calls
 * (this mechanism may be relaxed in the future for better
 * performances)
 */
static struct {
  pthread_mutex_t  mutex_phy_proc_tx;
  pthread_cond_t   cond_phy_proc_tx;
  volatile uint8_t phy_proc_CC_id;
138
} sync_phy_proc;
139

140 141
extern double cpuf;

142

143
void init_eNB(int,int);
144
void stop_eNB(int nb_inst);
145

Wang Tsu-Han's avatar
Wang Tsu-Han committed
146
int wakeup_tx(PHY_VARS_eNB *eNB);
147
int wakeup_txfh(L1_rxtx_proc_t *proc,PHY_VARS_eNB *eNB);
148
void wakeup_prach_eNB(PHY_VARS_eNB *eNB,RU_t *ru,int frame,int subframe);
149
#if (LTE_RRC_VERSION >= MAKE_VERSION(14, 0, 0))
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
150
  void wakeup_prach_eNB_br(PHY_VARS_eNB *eNB,RU_t *ru,int frame,int subframe);
151
#endif
152

153 154 155 156 157 158
extern uint8_t nfapi_mode;
extern void oai_subframe_ind(uint16_t sfn, uint16_t sf);
extern void add_subframe(uint16_t *frameP, uint16_t *subframeP, int offset);

//#define TICK_TO_US(ts) (ts.diff)
#define TICK_TO_US(ts) (ts.trials==0?0:ts.diff/ts.trials)
Raymond Knopp's avatar
Raymond Knopp committed
159

160

161
static inline int rxtx(PHY_VARS_eNB *eNB,L1_rxtx_proc_t *proc, char *thread_name) {
Raymond Knopp's avatar
Raymond Knopp committed
162
  start_meas(&softmodem_stats_rxtx_sf);
163
  //L1_rxtx_proc_t *L1_proc_tx = &eNB->proc.L1_proc_tx;
164

165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183
  // *******************************************************************

  if (nfapi_mode == 1) {
    // I am a PNF and I need to let nFAPI know that we have a (sub)frame tick
    uint16_t frame = proc->frame_rx;
    uint16_t subframe = proc->subframe_rx;
    //add_subframe(&frame, &subframe, 4);
    //oai_subframe_ind(proc->frame_tx, proc->subframe_tx);
    //LOG_D(PHY, "oai_subframe_ind(frame:%u, subframe:%d) - NOT CALLED ********\n", frame, subframe);
    start_meas(&nfapi_meas);
    oai_subframe_ind(frame, subframe);
    stop_meas(&nfapi_meas);

    if (eNB->UL_INFO.rx_ind.rx_indication_body.number_of_pdus||
        eNB->UL_INFO.harq_ind.harq_indication_body.number_of_harqs ||
        eNB->UL_INFO.crc_ind.crc_indication_body.number_of_crcs ||
        eNB->UL_INFO.rach_ind.rach_indication_body.number_of_preambles ||
        eNB->UL_INFO.cqi_ind.number_of_cqis
       ) {
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
184 185 186 187 188 189 190 191
      LOG_D(PHY, "UL_info[rx_ind:%05d:%d harqs:%05d:%d crcs:%05d:%d preambles:%05d:%d cqis:%d] RX:%04d%d TX:%04d%d num_pdcch_symbols:%d\n",
            NFAPI_SFNSF2DEC(eNB->UL_INFO.rx_ind.sfn_sf),   eNB->UL_INFO.rx_ind.rx_indication_body.number_of_pdus,
            NFAPI_SFNSF2DEC(eNB->UL_INFO.harq_ind.sfn_sf), eNB->UL_INFO.harq_ind.harq_indication_body.number_of_harqs,
            NFAPI_SFNSF2DEC(eNB->UL_INFO.crc_ind.sfn_sf),  eNB->UL_INFO.crc_ind.crc_indication_body.number_of_crcs,
            NFAPI_SFNSF2DEC(eNB->UL_INFO.rach_ind.sfn_sf), eNB->UL_INFO.rach_ind.rach_indication_body.number_of_preambles,
            eNB->UL_INFO.cqi_ind.number_of_cqis,
            proc->frame_rx, proc->subframe_rx,
            proc->frame_tx, proc->subframe_tx, eNB->pdcch_vars[proc->subframe_tx&1].num_pdcch_symbols);
192 193 194 195 196 197 198 199
    }
  }

  if (nfapi_mode == 1 && eNB->pdcch_vars[proc->subframe_tx&1].num_pdcch_symbols == 0) {
    LOG_E(PHY, "eNB->pdcch_vars[proc->subframe_tx&1].num_pdcch_symbols == 0");
    return 0;
  }

Raymond Knopp's avatar
Raymond Knopp committed
200 201
  // ****************************************
  // Common RX procedures subframe n
Cedric Roux's avatar
Cedric Roux committed
202 203
  T(T_ENB_PHY_DL_TICK, T_INT(eNB->Mod_id), T_INT(proc->frame_tx), T_INT(proc->subframe_tx));

204
  // if this is IF5 or 3GPP_eNB
205
  if (eNB && eNB->RU_list && eNB->RU_list[0] && eNB->RU_list[0]->function < NGFI_RAU_IF4p5) {
206
    wakeup_prach_eNB(eNB,NULL,proc->frame_rx,proc->subframe_rx);
207
#if (LTE_RRC_VERSION >= MAKE_VERSION(14, 0, 0))
208 209 210
    wakeup_prach_eNB_br(eNB,NULL,proc->frame_rx,proc->subframe_rx);
#endif
  }
Wang Tsu-Han's avatar
Wang Tsu-Han committed
211 212 213

  release_UE_in_freeList(eNB->Mod_id);

Raymond Knopp's avatar
Raymond Knopp committed
214
  // UE-specific RX processing for subframe n
215
  if (nfapi_mode == 0 || nfapi_mode == 1) {
216
    phy_procedures_eNB_uespec_RX(eNB, proc);
217
  }
218

Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
219 220
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME(VCD_SIGNAL_DUMPER_FUNCTIONS_ENB_DLSCH_ULSCH_SCHEDULER, 1 );

221

222
  pthread_mutex_lock(&eNB->UL_INFO_mutex);
223 224 225 226 227
  eNB->UL_INFO.frame     = proc->frame_rx;
  eNB->UL_INFO.subframe  = proc->subframe_rx;
  eNB->UL_INFO.module_id = eNB->Mod_id;
  eNB->UL_INFO.CC_id     = eNB->CC_id;
  eNB->if_inst->UL_indication(&eNB->UL_INFO);
228
  pthread_mutex_unlock(&eNB->UL_INFO_mutex);
Wang Tsu-Han's avatar
Wang Tsu-Han committed
229 230
  /* this conflict resolution may be totally wrong, to be tested */
  /* CONFLICT RESOLUTION: BEGIN */
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
231 232
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME(VCD_SIGNAL_DUMPER_FUNCTIONS_ENB_DLSCH_ULSCH_SCHEDULER, 0 );

233
  if(oai_exit) return(-1);
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
234 235

  if(get_thread_parallel_conf() == PARALLEL_SINGLE_THREAD) {
Wang Tsu-Han's avatar
Wang Tsu-Han committed
236
#ifndef PHY_TX_THREAD
237
    phy_procedures_eNB_TX(eNB, proc, 1);
Wang Tsu-Han's avatar
Wang Tsu-Han committed
238
#endif
239
  }
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
240

Wang Tsu-Han's avatar
Wang Tsu-Han committed
241 242 243
  /* CONFLICT RESOLUTION: what about this release_thread call, has it to be done? if yes, where? */
  //if (release_thread(&proc->mutex_rxtx,&proc->instance_cnt_rxtx,thread_name)<0) return(-1);
  /* CONFLICT RESOLUTION: END */
Raymond Knopp's avatar
Raymond Knopp committed
244
  stop_meas( &softmodem_stats_rxtx_sf );
245
  LOG_D(PHY,"%s() Exit proc[rx:%d%d tx:%d%d]\n", __FUNCTION__, proc->frame_rx, proc->subframe_rx, proc->frame_tx, proc->subframe_tx);
246
  LOG_D(PHY, "rxtx:%lld nfapi:%lld tx:%lld rx:%lld prach:%lld ofdm:%lld ",
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
247 248 249 250 251 252
        softmodem_stats_rxtx_sf.p_time, nfapi_meas.p_time,
        TICK_TO_US(eNB->phy_proc_tx),
        TICK_TO_US(eNB->phy_proc_rx),
        TICK_TO_US(eNB->rx_prach),
        TICK_TO_US(eNB->ofdm_mod_stats)
       );
253
  LOG_D(PHY,
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
254 255 256 257 258 259 260 261
        "dlsch[enc:%lld mod:%lld scr:%lld rm:%lld t:%lld i:%lld] rx_dft:%lld ",
        TICK_TO_US(eNB->dlsch_encoding_stats),
        TICK_TO_US(eNB->dlsch_modulation_stats),
        TICK_TO_US(eNB->dlsch_scrambling_stats),
        TICK_TO_US(eNB->dlsch_rate_matching_stats),
        TICK_TO_US(eNB->dlsch_turbo_encoding_stats),
        TICK_TO_US(eNB->dlsch_interleaving_stats),
        TICK_TO_US(eNB->rx_dft_stats));
262
  LOG_D(PHY," ulsch[ch:%lld freq:%lld dec:%lld demod:%lld ru:%lld ",
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
263 264 265 266 267
        TICK_TO_US(eNB->ulsch_channel_estimation_stats),
        TICK_TO_US(eNB->ulsch_freq_offset_estimation_stats),
        TICK_TO_US(eNB->ulsch_decoding_stats),
        TICK_TO_US(eNB->ulsch_demodulation_stats),
        TICK_TO_US(eNB->ulsch_rate_unmatching_stats));
268
  LOG_D(PHY, "td:%lld dei:%lld dem:%lld llr:%lld tci:%lld ",
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
269 270 271 272 273 274 275 276 277 278 279 280 281
        TICK_TO_US(eNB->ulsch_turbo_decoding_stats),
        TICK_TO_US(eNB->ulsch_deinterleaving_stats),
        TICK_TO_US(eNB->ulsch_demultiplexing_stats),
        TICK_TO_US(eNB->ulsch_llr_stats),
        TICK_TO_US(eNB->ulsch_tc_init_stats));
  LOG_D(PHY, "tca:%lld tcb:%lld tcg:%lld tce:%lld l1:%lld l2:%lld]\n\n",
        TICK_TO_US(eNB->ulsch_tc_alpha_stats),
        TICK_TO_US(eNB->ulsch_tc_beta_stats),
        TICK_TO_US(eNB->ulsch_tc_gamma_stats),
        TICK_TO_US(eNB->ulsch_tc_ext_stats),
        TICK_TO_US(eNB->ulsch_tc_intl1_stats),
        TICK_TO_US(eNB->ulsch_tc_intl2_stats)
       );
Raymond Knopp's avatar
Raymond Knopp committed
282 283 284
  return(0);
}

285

Wang Tsu-Han's avatar
Wang Tsu-Han committed
286
static void* L1_thread_tx(void* param) {
287

288 289
  L1_proc_t *eNB_proc  = (L1_proc_t*)param;
  L1_rxtx_proc_t *proc = &eNB_proc->L1_proc_tx;
290 291
  PHY_VARS_eNB *eNB = RC.eNB[0][proc->CC_id];
  char thread_name[100];
Wang Tsu-Han's avatar
Wang Tsu-Han committed
292
  sprintf(thread_name,"TXnp4_%d\n",&eNB->proc.L1_proc == proc ? 0 : 1);
293
  thread_top_init(thread_name,1,470000,500000,500000);
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
294

295
  //wait_sync("tx_thread");
296

Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
297
  while (!oai_exit) {
Wang Tsu-Han's avatar
Wang Tsu-Han committed
298
    if (wait_on_condition(&proc->mutex,&proc->cond,&proc->instance_cnt,thread_name)<0) break;
299
    if (oai_exit) break;  
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
300

301 302 303 304 305
    // *****************************************
    // TX processing for subframe n+4
    // run PHY TX procedures the one after the other for all CCs to avoid race conditions
    // (may be relaxed in the future for performance reasons)
    // *****************************************
306 307 308 309
    VCD_SIGNAL_DUMPER_DUMP_VARIABLE_BY_NAME(VCD_SIGNAL_DUMPER_VARIABLES_SUBFRAME_NUMBER_TX1_ENB,proc->subframe_tx);
    VCD_SIGNAL_DUMPER_DUMP_VARIABLE_BY_NAME(VCD_SIGNAL_DUMPER_VARIABLES_SUBFRAME_NUMBER_RX1_ENB,proc->subframe_rx);
    VCD_SIGNAL_DUMPER_DUMP_VARIABLE_BY_NAME(VCD_SIGNAL_DUMPER_VARIABLES_FRAME_NUMBER_TX1_ENB,proc->frame_tx);
    VCD_SIGNAL_DUMPER_DUMP_VARIABLE_BY_NAME(VCD_SIGNAL_DUMPER_VARIABLES_FRAME_NUMBER_RX1_ENB,proc->frame_rx);
310
    phy_procedures_eNB_TX(eNB, proc, 1);
311

Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
312

Wang Tsu-Han's avatar
Wang Tsu-Han committed
313
    pthread_mutex_lock( &proc->mutex );
314
    proc->instance_cnt = -1;
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
315

316
    // the thread can now be woken up
Wang Tsu-Han's avatar
Wang Tsu-Han committed
317
    if (pthread_cond_signal(&proc->cond) != 0) {
318 319 320
      LOG_E( PHY, "[eNB] ERROR pthread_cond_signal for eNB TXnp4 thread\n");
      exit_fun( "ERROR pthread_cond_signal" );
    }
Wang Tsu-Han's avatar
Wang Tsu-Han committed
321
    pthread_mutex_unlock( &proc->mutex );
Wang Tsu-Han's avatar
Wang Tsu-Han committed
322
    wakeup_txfh(proc,eNB);
323 324 325 326 327
  }

  return 0;
}

328
/*!
329
 * \brief The RX UE-specific and TX thread of eNB.
330
 * \param param is a \ref L1_proc_t structure which contains the info what to process.
331 332
 * \returns a pointer to an int. The storage is not on the heap and must not be freed.
 */
333

Wang Tsu-Han's avatar
Wang Tsu-Han committed
334
static void* L1_thread( void* param ) {
335

336
  static int eNB_thread_rxtx_status;
337 338
  //L1_proc_t *eNB_proc  = (L1_proc_t*)param;
  L1_rxtx_proc_t *proc;
339 340 341

  // Working
  if(nfapi_mode ==2){
342
    proc = (L1_rxtx_proc_t*)param;
343 344
  }
  else{
345 346
    L1_proc_t *eNB_proc  = (L1_proc_t*)param;
    proc = &eNB_proc->L1_proc;
347 348
  }

349
  PHY_VARS_eNB *eNB = RC.eNB[0][proc->CC_id];
350

Raymond Knopp's avatar
Raymond Knopp committed
351
  char thread_name[100];
352 353
  cpu_set_t cpuset;
  CPU_ZERO(&cpuset);
354
  // set default return value
355
  eNB_thread_rxtx_status = 0;
356

Wang Tsu-Han's avatar
Wang Tsu-Han committed
357
  sprintf(thread_name,"RXn_TXnp4_%d\n",&eNB->proc.L1_proc == proc ? 0 : 1);
358 359 360
  thread_top_init(thread_name,1,470000,500000,500000);
  pthread_setname_np( pthread_self(),"rxtx processing");
  LOG_I(PHY,"thread rxtx created id=%ld\n", syscall(__NR_gettid));
361 362

  while (!oai_exit) {
363
    VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME( VCD_SIGNAL_DUMPER_FUNCTIONS_eNB_PROC_RXTX0+(proc->subframe_rx&1), 0 );
364
    T(T_ENB_MASTER_TICK, T_INT(0), T_INT(proc->frame_rx), T_INT(proc->subframe_rx));
365

Wang Tsu-Han's avatar
Wang Tsu-Han committed
366
    if (wait_on_condition(&proc->mutex,&proc->cond,&proc->instance_cnt,thread_name)<0) break;
367

368
    VCD_SIGNAL_DUMPER_DUMP_VARIABLE_BY_NAME(VCD_SIGNAL_DUMPER_VARIABLES_CPUID_ENB_THREAD_RXTX,sched_getcpu());
369
    VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME( VCD_SIGNAL_DUMPER_FUNCTIONS_eNB_PROC_RXTX0+(proc->subframe_rx&1), 1 );
370 371 372 373
    VCD_SIGNAL_DUMPER_DUMP_VARIABLE_BY_NAME(VCD_SIGNAL_DUMPER_VARIABLES_SUBFRAME_NUMBER_TX0_ENB,proc->subframe_tx);
    VCD_SIGNAL_DUMPER_DUMP_VARIABLE_BY_NAME(VCD_SIGNAL_DUMPER_VARIABLES_SUBFRAME_NUMBER_RX0_ENB,proc->subframe_rx);
    VCD_SIGNAL_DUMPER_DUMP_VARIABLE_BY_NAME(VCD_SIGNAL_DUMPER_VARIABLES_FRAME_NUMBER_TX0_ENB,proc->frame_tx);
    VCD_SIGNAL_DUMPER_DUMP_VARIABLE_BY_NAME(VCD_SIGNAL_DUMPER_VARIABLES_FRAME_NUMBER_RX0_ENB,proc->frame_rx);
374

375 376
    if (oai_exit) break;

Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
377
    if (eNB->CC_id==0) {
378
      if (rxtx(eNB,proc,thread_name) < 0) break;
379
    }
380

381
    if(get_thread_parallel_conf() == PARALLEL_RU_L1_SPLIT)              phy_procedures_eNB_TX(eNB, proc, 1);
Wang Tsu-Han's avatar
Wang Tsu-Han committed
382
    if (release_thread(&proc->mutex,&proc->instance_cnt,thread_name)<0) break;
Wang Tsu-Han's avatar
Wang Tsu-Han committed
383
    if (nfapi_mode!=2){
Wang Tsu-Han's avatar
Wang Tsu-Han committed
384
    	if(get_thread_parallel_conf() == PARALLEL_RU_L1_TRX_SPLIT)      wakeup_tx(eNB);
385
    	else if(get_thread_parallel_conf() == PARALLEL_RU_L1_SPLIT)     wakeup_txfh(proc,eNB);
386
    }
Raymond Knopp's avatar
Raymond Knopp committed
387
  } // while !oai_exit
388

389
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME( VCD_SIGNAL_DUMPER_FUNCTIONS_eNB_PROC_RXTX0+(proc->subframe_rx&1), 0 );
390
  LOG_D(PHY, " *** Exiting eNB thread RXn_TXnp4\n");
391 392
  eNB_thread_rxtx_status = 0;
  return &eNB_thread_rxtx_status;
393 394
}

395
void eNB_top(PHY_VARS_eNB *eNB, int frame_rx, int subframe_rx, char *string,RU_t *ru)
Cedric Roux's avatar
Cedric Roux committed
396
{
397 398
  L1_proc_t *proc           = &eNB->proc;
  L1_rxtx_proc_t *L1_proc = &proc->L1_proc;
Raymond Knopp's avatar
Raymond Knopp committed
399 400
  LTE_DL_FRAME_PARMS *fp = &ru->frame_parms;
  RU_proc_t *ru_proc=&ru->proc;
401 402
  proc->frame_rx    = frame_rx;
  proc->subframe_rx = subframe_rx;
Raymond Knopp's avatar
Raymond Knopp committed
403

Cedric Roux's avatar
Cedric Roux committed
404
  if (!oai_exit) {
405
    T(T_ENB_MASTER_TICK, T_INT(0), T_INT(proc->frame_rx), T_INT(proc->subframe_rx));
Raymond Knopp's avatar
Raymond Knopp committed
406

Wang Tsu-Han's avatar
Wang Tsu-Han committed
407 408 409 410 411
    L1_proc->timestamp_tx = ru_proc->timestamp_rx + (sf_ahead*fp->samples_per_tti);
    L1_proc->frame_rx     = ru_proc->frame_rx;
    L1_proc->subframe_rx  = ru_proc->subframe_rx;
    L1_proc->frame_tx     = (L1_proc->subframe_rx > (9-sf_ahead)) ? (L1_proc->frame_rx+1)&1023 : L1_proc->frame_rx;
    L1_proc->subframe_tx  = (L1_proc->subframe_rx + sf_ahead)%10;
Raymond Knopp's avatar
Raymond Knopp committed
412

Wang Tsu-Han's avatar
Wang Tsu-Han committed
413 414 415 416
    if (rxtx(eNB,L1_proc,string) < 0) LOG_E(PHY,"eNB %d CC_id %d failed during execution\n",eNB->Mod_id,eNB->CC_id);
    ru_proc->timestamp_tx = L1_proc->timestamp_tx;
    ru_proc->subframe_tx  = L1_proc->subframe_tx;
    ru_proc->frame_tx     = L1_proc->frame_tx;
417
  }
Raymond Knopp's avatar
Raymond Knopp committed
418 419
}

420
int wakeup_txfh(L1_rxtx_proc_t *proc,PHY_VARS_eNB *eNB) {
Wang Tsu-Han's avatar
Wang Tsu-Han committed
421 422 423 424 425

  RU_t *ru;
  RU_proc_t *ru_proc;


426 427 428
  struct timespec wait;
  wait.tv_sec=0;
  wait.tv_nsec=5000000L;
Wang Tsu-Han's avatar
Wang Tsu-Han committed
429

430
  if(wait_on_condition(&proc->mutex_RUs,&proc->cond_RUs,&proc->instance_cnt_RUs,"wakeup_txfh")<0) {
Wang Tsu-Han's avatar
Wang Tsu-Han committed
431
    LOG_E(PHY,"Frame %d, subframe %d: TX FH not ready\n", proc->frame_tx, proc->subframe_tx);
432
    return(-1);
433
  }
Wang Tsu-Han's avatar
Wang Tsu-Han committed
434 435 436
  pthread_mutex_lock(&eNB->proc.mutex_RU_tx);
  eNB->proc.RU_mask_tx = 0;
  pthread_mutex_unlock(&eNB->proc.mutex_RU_tx);
437
  if (release_thread(&proc->mutex_RUs,&proc->instance_cnt_RUs,"wakeup_txfh")<0) return(-1);
438

Wang Tsu-Han's avatar
Wang Tsu-Han committed
439 440 441 442 443 444 445 446 447 448 449 450 451 452
  for(int i=0; i<eNB->num_RU; i++)
  {
    ru      = eNB->RU_list[i];
    ru_proc = &ru->proc;
    if (ru_proc->instance_cnt_eNBs == 0) {
      LOG_E(PHY,"Frame %d, subframe %d: TX FH thread busy, dropping Frame %d, subframe %d\n", ru_proc->frame_tx, ru_proc->subframe_tx, proc->frame_rx, proc->subframe_rx);
      return(-1);
    }
    if (pthread_mutex_timedlock(&ru_proc->mutex_eNBs,&wait) != 0) {
      LOG_E( PHY, "[eNB] ERROR pthread_mutex_lock for eNB TX1 thread %d (IC %d)\n", ru_proc->subframe_rx&1,ru_proc->instance_cnt_eNBs );
      exit_fun( "error locking mutex_eNB" );
      return(-1);
    }

453
    ru_proc->instance_cnt_eNBs = 0;
Wang Tsu-Han's avatar
Wang Tsu-Han committed
454 455 456
    ru_proc->timestamp_tx = proc->timestamp_tx;
    ru_proc->subframe_tx  = proc->subframe_tx;
    ru_proc->frame_tx     = proc->frame_tx;
457

458
  
Wang Tsu-Han's avatar
Wang Tsu-Han committed
459 460 461 462 463 464
    // the thread can now be woken up
    if (pthread_cond_signal(&ru_proc->cond_eNBs) != 0) {
      LOG_E( PHY, "[eNB] ERROR pthread_cond_signal for eNB TXnp4 thread\n");
      exit_fun( "ERROR pthread_cond_signal" );
      return(-1);
    }
465
  
Wang Tsu-Han's avatar
Wang Tsu-Han committed
466 467
    pthread_mutex_unlock( &ru_proc->mutex_eNBs );
  }
468 469 470 471

  return(0);
}

Wang Tsu-Han's avatar
Wang Tsu-Han committed
472
int wakeup_tx(PHY_VARS_eNB *eNB) {
473

474
  L1_proc_t *proc=&eNB->proc;
475

476 477
  L1_rxtx_proc_t *L1_proc_tx = &proc->L1_proc_tx;
  L1_rxtx_proc_t *L1_proc    = &proc->L1_proc;
478 479 480 481 482 483

  
  struct timespec wait;
  wait.tv_sec=0;
  wait.tv_nsec=5000000L;
  
484
  
Wang Tsu-Han's avatar
Wang Tsu-Han committed
485
  if (pthread_mutex_timedlock(&L1_proc_tx->mutex,&wait) != 0) {
486 487
    LOG_E(PHY, "[SCHED][eNB] ERROR locking mutex for eNB L1_thread_tx\n");
    exit_fun("ERROR pthread_lock");
488 489
    return(-1);
  }
490 491 492
  while(L1_proc_tx->instance_cnt == 0){
    pthread_cond_wait(&L1_proc_tx->cond,&L1_proc_tx->mutex);
  }
493

494
  L1_proc_tx->instance_cnt = 0;
495 496

  
Wang Tsu-Han's avatar
Wang Tsu-Han committed
497 498 499 500 501
  L1_proc_tx->subframe_rx   = L1_proc->subframe_rx;
  L1_proc_tx->frame_rx      = L1_proc->frame_rx;
  L1_proc_tx->subframe_tx   = L1_proc->subframe_tx;
  L1_proc_tx->frame_tx      = L1_proc->frame_tx;
  L1_proc_tx->timestamp_tx  = L1_proc->timestamp_tx;
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
502

503
  // the thread can now be woken up
Wang Tsu-Han's avatar
Wang Tsu-Han committed
504
  if (pthread_cond_signal(&L1_proc_tx->cond) != 0) {
505
    LOG_E( PHY, "[eNB] ERROR pthread_cond_signal for eNB TXnp4 thread\n");
506 507 508 509
    exit_fun( "ERROR pthread_cond_signal" );
    return(-1);
  }
  
Wang Tsu-Han's avatar
Wang Tsu-Han committed
510
  pthread_mutex_unlock( &L1_proc_tx->mutex);
511 512
  return(0);
}
Raymond Knopp's avatar
Raymond Knopp committed
513

514 515
int wakeup_rxtx(PHY_VARS_eNB *eNB,RU_t *ru) {

516
  L1_proc_t *proc=&eNB->proc;
517
  RU_proc_t *ru_proc=&ru->proc;
518

519
  L1_rxtx_proc_t *L1_proc=&proc->L1_proc;
520
  
521
  LTE_DL_FRAME_PARMS *fp = &eNB->frame_parms;
522 523
  int i;
  struct timespec wait;
524
  pthread_mutex_lock(&proc->mutex_RU);
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
525 526

  for (i=0; i<eNB->num_RU; i++) {
527 528
    if (ru == eNB->RU_list[i]) {
      if ((proc->RU_mask&(1<<i)) > 0)
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
529 530 531
        LOG_E(PHY,"eNB %d frame %d, subframe %d : previous information from RU %d (num_RU %d,mask %x) has not been served yet!\n",
              eNB->Mod_id,proc->frame_rx,proc->subframe_rx,ru->idx,eNB->num_RU,proc->RU_mask);

532 533 534
      proc->RU_mask |= (1<<i);
    }
  }
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
535

536
  if (proc->RU_mask != (1<<eNB->num_RU)-1) {  // not all RUs have provided their information so return
537
    LOG_E(PHY,"Not all RUs have provided their info\n");
538 539
    pthread_mutex_unlock(&proc->mutex_RU);
    return(0);
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
540
  } else { // all RUs have provided their information so continue on and wakeup eNB processing
541 542 543 544
    proc->RU_mask = 0;
    pthread_mutex_unlock(&proc->mutex_RU);
  }

545 546
  wait.tv_sec=0;
  wait.tv_nsec=5000000L;
547

Wang Tsu-Han's avatar
Wang Tsu-Han committed
548 549 550
    
  if (L1_proc->instance_cnt == 0) {
    LOG_E(PHY,"Frame %d, subframe %d: RXTX0 thread busy, dropping\n",L1_proc->frame_rx,L1_proc->subframe_rx);
551 552 553
    return(-1);
  }

Cedric Roux's avatar
Cedric Roux committed
554
  // wake up TX for subframe n+sf_ahead
555
  // lock the TX mutex and make sure the thread is ready
Wang Tsu-Han's avatar
Wang Tsu-Han committed
556 557
  if (pthread_mutex_timedlock(&L1_proc->mutex,&wait) != 0) {
    LOG_E( PHY, "[eNB] ERROR pthread_mutex_lock for eNB RXTX thread %d (IC %d)\n", L1_proc->subframe_rx&1,L1_proc->instance_cnt );
558 559 560
    exit_fun( "error locking mutex_rxtx" );
    return(-1);
  }
561

Wang Tsu-Han's avatar
Wang Tsu-Han committed
562
  ++L1_proc->instance_cnt;
563 564 565 566
  
  // We have just received and processed the common part of a subframe, say n. 
  // TS_rx is the last received timestamp (start of 1st slot), TS_tx is the desired 
  // transmitted timestamp of the next TX slot (first).
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
567
  // The last (TS_rx mod samples_per_frame) was n*samples_per_tti,
568 569
  // we want to generate subframe (n+sf_ahead), so TS_tx = TX_rx+sf_ahead*samples_per_tti,
  // and proc->subframe_tx = proc->subframe_rx+sf_ahead
Wang Tsu-Han's avatar
Wang Tsu-Han committed
570 571 572 573 574
  L1_proc->timestamp_tx = ru_proc->timestamp_rx + (sf_ahead*fp->samples_per_tti);
  L1_proc->frame_rx     = ru_proc->frame_rx;
  L1_proc->subframe_rx  = ru_proc->subframe_rx;
  L1_proc->frame_tx     = (L1_proc->subframe_rx > (9-sf_ahead)) ? (L1_proc->frame_rx+1)&1023 : L1_proc->frame_rx;
  L1_proc->subframe_tx  = (L1_proc->subframe_rx + sf_ahead)%10;
575

576
  // the thread can now be woken up
Wang Tsu-Han's avatar
Wang Tsu-Han committed
577
  if (pthread_cond_signal(&L1_proc->cond) != 0) {
578 579 580 581 582
    LOG_E( PHY, "[eNB] ERROR pthread_cond_signal for eNB RXn-TXnp4 thread\n");
    exit_fun( "ERROR pthread_cond_signal" );
    return(-1);
  }

583
  pthread_mutex_unlock( &L1_proc->mutex);
584 585 586
  return(0);
}

587
void wakeup_prach_eNB(PHY_VARS_eNB *eNB,RU_t *ru,int frame,int subframe) {
588

589
  L1_proc_t *proc = &eNB->proc;
590
  LTE_DL_FRAME_PARMS *fp=&eNB->frame_parms;
591
  int i;
592

593 594
  if (ru!=NULL) {
    pthread_mutex_lock(&proc->mutex_RU_PRACH);
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
595 596

    for (i=0; i<eNB->num_RU; i++) {
597
      if (ru == eNB->RU_list[i]) {
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
598 599 600 601 602 603 604
        LOG_D(PHY,"frame %d, subframe %d: RU %d for eNB %d signals PRACH (mask %x, num_RU %d)\n",frame,subframe,i,eNB->Mod_id,proc->RU_mask_prach,eNB->num_RU);

        if ((proc->RU_mask_prach&(1<<i)) > 0)
          LOG_E(PHY,"eNB %d frame %d, subframe %d : previous information (PRACH) from RU %d (num_RU %d, mask %x) has not been served yet!\n",
                eNB->Mod_id,frame,subframe,ru->idx,eNB->num_RU,proc->RU_mask_prach);

        proc->RU_mask_prach |= (1<<i);
605 606
      }
    }
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
607

608 609
    if (proc->RU_mask_prach != (1<<eNB->num_RU)-1) {  // not all RUs have provided their information so return
      pthread_mutex_unlock(&proc->mutex_RU_PRACH);
Raymond Knopp's avatar
Raymond Knopp committed
610
      return;
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
611
    } else { // all RUs have provided their information so continue on and wakeup eNB processing
612 613 614 615
      proc->RU_mask_prach = 0;
      pthread_mutex_unlock(&proc->mutex_RU_PRACH);
    }
  }
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
616

617
  // check if we have to detect PRACH first
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
618
  if (is_prach_subframe(fp,frame,subframe)>0) {
619
    LOG_D(PHY,"Triggering prach processing, frame %d, subframe %d\n",frame,subframe);
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
620

621
    if (proc->instance_cnt_prach == 0) {
622
      LOG_W(PHY,"[eNB] Frame %d Subframe %d, dropping PRACH\n", frame,subframe);
623 624
      return;
    }
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
625

626 627 628 629 630 631
    // wake up thread for PRACH RX
    if (pthread_mutex_lock(&proc->mutex_prach) != 0) {
      LOG_E( PHY, "[eNB] ERROR pthread_mutex_lock for eNB PRACH thread %d (IC %d)\n", proc->thread_index, proc->instance_cnt_prach);
      exit_fun( "error locking mutex_prach" );
      return;
    }
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
632

633 634
    ++proc->instance_cnt_prach;
    // set timing for prach thread
635 636
    proc->frame_prach = frame;
    proc->subframe_prach = subframe;
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
637

638 639 640 641 642 643
    // the thread can now be woken up
    if (pthread_cond_signal(&proc->cond_prach) != 0) {
      LOG_E( PHY, "[eNB] ERROR pthread_cond_signal for eNB PRACH thread %d\n", proc->thread_index);
      exit_fun( "ERROR pthread_cond_signal" );
      return;
    }
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
644

645 646 647 648
    pthread_mutex_unlock( &proc->mutex_prach );
  }
}

649
#if (LTE_RRC_VERSION >= MAKE_VERSION(14, 0, 0))
650 651
void wakeup_prach_eNB_br(PHY_VARS_eNB *eNB,RU_t *ru,int frame,int subframe) {

652
  L1_proc_t *proc = &eNB->proc;
653 654 655 656 657
  LTE_DL_FRAME_PARMS *fp=&eNB->frame_parms;
  int i;

  if (ru!=NULL) {
    pthread_mutex_lock(&proc->mutex_RU_PRACH_br);
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
658 659

    for (i=0; i<eNB->num_RU; i++) {
660
      if (ru == eNB->RU_list[i]) {
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
661 662 663 664 665 666 667
        LOG_D(PHY,"frame %d, subframe %d: RU %d for eNB %d signals PRACH BR (mask %x, num_RU %d)\n",frame,subframe,i,eNB->Mod_id,proc->RU_mask_prach_br,eNB->num_RU);

        if ((proc->RU_mask_prach_br&(1<<i)) > 0)
          LOG_E(PHY,"eNB %d frame %d, subframe %d : previous information (PRACH BR) from RU %d (num_RU %d, mask %x) has not been served yet!\n",
                eNB->Mod_id,frame,subframe,ru->idx,eNB->num_RU,proc->RU_mask_prach_br);

        proc->RU_mask_prach_br |= (1<<i);
668 669
      }
    }
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
670

671 672
    if (proc->RU_mask_prach_br != (1<<eNB->num_RU)-1) {  // not all RUs have provided their information so return
      pthread_mutex_unlock(&proc->mutex_RU_PRACH_br);
Raymond Knopp's avatar
Raymond Knopp committed
673
      return;
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
674
    } else { // all RUs have provided their information so continue on and wakeup eNB processing
675 676 677 678
      proc->RU_mask_prach_br = 0;
      pthread_mutex_unlock(&proc->mutex_RU_PRACH_br);
    }
  }
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
679

680
  // check if we have to detect PRACH first
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
681
  if (is_prach_subframe(fp,frame,subframe)>0) {
682
    LOG_D(PHY,"Triggering prach br processing, frame %d, subframe %d\n",frame,subframe);
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
683

684 685 686 687
    if (proc->instance_cnt_prach_br == 0) {
      LOG_W(PHY,"[eNB] Frame %d Subframe %d, dropping PRACH BR\n", frame,subframe);
      return;
    }
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
688

689 690 691 692 693 694
    // wake up thread for PRACH RX
    if (pthread_mutex_lock(&proc->mutex_prach_br) != 0) {
      LOG_E( PHY, "[eNB] ERROR pthread_mutex_lock for eNB PRACH thread %d (IC %d)\n", proc->thread_index, proc->instance_cnt_prach_br);
      exit_fun( "error locking mutex_prach" );
      return;
    }
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
695

696 697 698 699
    ++proc->instance_cnt_prach_br;
    // set timing for prach thread
    proc->frame_prach_br = frame;
    proc->subframe_prach_br = subframe;
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
700

701 702 703 704 705 706
    // the thread can now be woken up
    if (pthread_cond_signal(&proc->cond_prach_br) != 0) {
      LOG_E( PHY, "[eNB] ERROR pthread_cond_signal for eNB PRACH BR thread %d\n", proc->thread_index);
      exit_fun( "ERROR pthread_cond_signal" );
      return;
    }
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
707

708 709 710 711 712
    pthread_mutex_unlock( &proc->mutex_prach_br );
  }
}
#endif

Wang Tsu-Han's avatar
Wang Tsu-Han committed
713

714 715
/*!
 * \brief The prach receive thread of eNB.
716
 * \param param is a \ref L1_proc_t structure which contains the info what to process.
717 718
 * \returns a pointer to an int. The storage is not on the heap and must not be freed.
 */
719
static void *eNB_thread_prach( void *param ) {
720
  static int eNB_thread_prach_status;
721
  PHY_VARS_eNB *eNB= (PHY_VARS_eNB *)param;
722
  L1_proc_t *proc = &eNB->proc;
Raymond Knopp's avatar
Raymond Knopp committed
723

724 725
  // set default return value
  eNB_thread_prach_status = 0;
726
  thread_top_init("eNB_thread_prach",1,500000,1000000,20000000);
727

728
  //wait_sync("eNB_thread_prach");
729

730
  while (!oai_exit) {
Raymond Knopp's avatar
Raymond Knopp committed
731
    if (wait_on_condition(&proc->mutex_prach,&proc->cond_prach,&proc->instance_cnt_prach,"eNB_prach_thread") < 0) break;
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
732

733
    if (oai_exit) break;
734 735

    LOG_D(PHY,"Running eNB prach procedures\n");
736
    prach_procedures(eNB
737
#if (LTE_RRC_VERSION >= MAKE_VERSION(14, 0, 0))
738
                     ,0
739
#endif
740
                    );
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
741

Raymond Knopp's avatar
Raymond Knopp committed
742
    if (release_thread(&proc->mutex_prach,&proc->instance_cnt_prach,"eNB_prach_thread") < 0) break;
743
  }
744

745
  LOG_I(PHY, "Exiting eNB thread PRACH\n");
746 747
  eNB_thread_prach_status = 0;
  return &eNB_thread_prach_status;
748 749
}

750
#if (LTE_RRC_VERSION >= MAKE_VERSION(14, 0, 0))
751 752
/*!
 * \brief The prach receive thread of eNB for BL/CE UEs.
753
 * \param param is a \ref L1_proc_t structure which contains the info what to process.
754 755
 * \returns a pointer to an int. The storage is not on the heap and must not be freed.
 */
756
static void *eNB_thread_prach_br( void *param ) {
757 758
  static int eNB_thread_prach_status;
  PHY_VARS_eNB *eNB= (PHY_VARS_eNB *)param;
759
  L1_proc_t *proc = &eNB->proc;
760 761 762

  // set default return value
  eNB_thread_prach_status = 0;
763
  thread_top_init("eNB_thread_prach_br",1,500000,1000000,20000000);
764 765 766

  while (!oai_exit) {
    if (wait_on_condition(&proc->mutex_prach_br,&proc->cond_prach_br,&proc->instance_cnt_prach_br,"eNB_prach_thread_br") < 0) break;
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
767

768
    if (oai_exit) break;
769 770 771

    LOG_D(PHY,"Running eNB prach procedures for BL/CE UEs\n");
    prach_procedures(eNB,1);
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
772

773 774 775 776 777 778 779 780 781
    if (release_thread(&proc->mutex_prach_br,&proc->instance_cnt_prach_br,"eNB_prach_thread_br") < 0) break;
  }

  LOG_I(PHY, "Exiting eNB thread PRACH BR\n");
  eNB_thread_prach_status = 0;
  return &eNB_thread_prach_status;
}

#endif
Raymond Knopp's avatar
Raymond Knopp committed
782

Raymond Knopp's avatar
Raymond Knopp committed
783

784

Wang Tsu-Han's avatar
Wang Tsu-Han committed
785
extern void init_td_thread(PHY_VARS_eNB *);
Eurecom's avatar
Eurecom committed
786
extern void init_te_thread(PHY_VARS_eNB *);
Wang Tsu-Han's avatar
Wang Tsu-Han committed
787 788
extern void kill_td_thread(PHY_VARS_eNB *);
extern void kill_te_thread(PHY_VARS_eNB *);
789

790 791
static void *process_stats_thread(void *param) {
  PHY_VARS_eNB     *eNB      = (PHY_VARS_eNB *)param;
792
  wait_sync("process_stats_thread");
793 794

  while (!oai_exit) {
Wang Tsu-Han's avatar
Wang Tsu-Han committed
795
    sleep(1);
796 797

    if (opp_enabled == 1) {
798 799
      if ( eNB->ulsch_decoding_stats.trials>0)
        print_meas(&eNB->ulsch_decoding_stats,"ulsch_decoding",NULL,NULL);
800

801
      if (eNB->dlsch_encoding_stats.trials >0) {
802 803 804 805 806 807 808 809 810 811 812
        print_meas(&eNB->dlsch_turbo_encoding_preperation_stats,"dlsch_coding_crc",NULL,NULL);
        print_meas(&eNB->dlsch_turbo_encoding_segmentation_stats,"dlsch_segmentation",NULL,NULL);
        print_meas(&eNB->dlsch_encoding_stats,"dlsch_encoding",NULL,NULL);
        print_meas(&eNB->dlsch_turbo_encoding_signal_stats,"coding_signal",NULL,NULL);
        print_meas(&eNB->dlsch_turbo_encoding_main_stats,"coding_main",NULL,NULL);
        print_meas(&eNB->dlsch_turbo_encoding_stats,"turbo_encoding",NULL,NULL);
        print_meas(&eNB->dlsch_interleaving_stats,"turbo_interleaving",NULL,NULL);
        print_meas(&eNB->dlsch_rate_matching_stats,"turbo_rate_matching",NULL,NULL);
        print_meas(&eNB->dlsch_turbo_encoding_waiting_stats,"coding_wait",NULL,NULL);
        print_meas(&eNB->dlsch_turbo_encoding_wakeup_stats0,"coding_worker_0",NULL,NULL);
        print_meas(&eNB->dlsch_turbo_encoding_wakeup_stats1,"coding_worker_1",NULL,NULL);
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
813
      }
814

815 816
      print_meas(&eNB->dlsch_modulation_stats,"dlsch_modulation",NULL,NULL);
    }
817
  }
818

819 820 821
  return(NULL);
}

822

823
void init_eNB_proc(int inst) {
824
  /*int i=0;*/
825
  int CC_id;
826
  PHY_VARS_eNB *eNB;
827 828
  L1_proc_t *proc;
  L1_rxtx_proc_t *L1_proc, *L1_proc_tx;
Wang Tsu-Han's avatar
Wang Tsu-Han committed
829
  pthread_attr_t *attr0=NULL,*attr1=NULL,*attr_prach=NULL;
830
#if (LTE_RRC_VERSION >= MAKE_VERSION(14, 0, 0))
831 832
  pthread_attr_t *attr_prach_br=NULL;
#endif
833 834
  LOG_I(PHY,"%s(inst:%d) RC.nb_CC[inst]:%d \n",__FUNCTION__,inst,RC.nb_CC[inst]);

835
  for (CC_id=0; CC_id<RC.nb_CC[inst]; CC_id++) {
836
    eNB = RC.eNB[inst][CC_id];
laurent's avatar
laurent committed
837
#ifndef OCP_FRAMEWORK
838
    LOG_I(PHY,"Initializing eNB processes instance:%d CC_id %d \n",inst,CC_id);
laurent's avatar
laurent committed
839
#endif
840
    proc = &eNB->proc;
Raymond Knopp's avatar
Raymond Knopp committed
841

Wang Tsu-Han's avatar
Wang Tsu-Han committed
842 843 844 845
    L1_proc                        = &proc->L1_proc;
    L1_proc_tx                     = &proc->L1_proc_tx;
    L1_proc->instance_cnt          = -1;
    L1_proc_tx->instance_cnt       = -1;
846 847
    L1_proc->instance_cnt_RUs      = 0;
    L1_proc_tx->instance_cnt_RUs   = 0;
848
    proc->instance_cnt_prach       = -1;
849
    proc->instance_cnt_asynch_rxtx = -1;
Eurecom's avatar
Eurecom committed
850
    proc->instance_cnt_synch       = -1;
851
    proc->CC_id                    = CC_id;    
852

Wang Tsu-Han's avatar
Wang Tsu-Han committed
853 854
    proc->first_rx                 =1;
    proc->first_tx                 =1;
Wang Tsu-Han's avatar
Wang Tsu-Han committed
855
    proc->RU_mask_tx               = (1<<eNB->num_RU)-1;
Wang Tsu-Han's avatar
Wang Tsu-Han committed
856 857
    proc->RU_mask                  =0;
    proc->RU_mask_prach            =0;
Raymond Knopp's avatar
Raymond Knopp committed
858

859
    pthread_mutex_init( &eNB->UL_INFO_mutex, NULL);
Wang Tsu-Han's avatar
Wang Tsu-Han committed
860 861 862 863
    pthread_mutex_init( &L1_proc->mutex, NULL);
    pthread_mutex_init( &L1_proc_tx->mutex, NULL);
    pthread_cond_init( &L1_proc->cond, NULL);
    pthread_cond_init( &L1_proc_tx->cond, NULL);
864 865 866 867
    pthread_mutex_init( &L1_proc->mutex_RUs, NULL);
    pthread_mutex_init( &L1_proc_tx->mutex_RUs, NULL);
    pthread_cond_init( &L1_proc->cond_RUs, NULL);
    pthread_cond_init( &L1_proc_tx->cond_RUs, NULL);
Raymond Knopp's avatar
Raymond Knopp committed
868 869 870

    pthread_mutex_init( &proc->mutex_prach, NULL);
    pthread_mutex_init( &proc->mutex_asynch_rxtx, NULL);
871
    pthread_mutex_init( &proc->mutex_RU,NULL);
Wang Tsu-Han's avatar
Wang Tsu-Han committed
872
    pthread_mutex_init( &proc->mutex_RU_tx,NULL);
873
    pthread_mutex_init( &proc->mutex_RU_PRACH,NULL);
874
    pthread_cond_init( &proc->cond_prach, NULL);
875
    pthread_cond_init( &proc->cond_asynch_rxtx, NULL);
876 877
    pthread_attr_init( &proc->attr_prach);
    pthread_attr_init( &proc->attr_asynch_rxtx);
Wang Tsu-Han's avatar
Wang Tsu-Han committed
878 879
    pthread_attr_init( &L1_proc->attr);
    pthread_attr_init( &L1_proc_tx->attr);
880
#if (LTE_RRC_VERSION >= MAKE_VERSION(14, 0, 0))
881 882 883 884 885 886 887
    proc->instance_cnt_prach_br    = -1;
    proc->RU_mask_prach_br=0;
    pthread_mutex_init( &proc->mutex_prach_br, NULL);
    pthread_mutex_init( &proc->mutex_RU_PRACH_br,NULL);
    pthread_cond_init( &proc->cond_prach_br, NULL);
    pthread_attr_init( &proc->attr_prach_br);
#endif
888
#ifndef DEADLINE_SCHEDULER
Wang Tsu-Han's avatar
Wang Tsu-Han committed
889 890
    attr0       = &L1_proc->attr;
    attr1       = &L1_proc_tx->attr;
Raymond Knopp's avatar
Raymond Knopp committed
891
    attr_prach  = &proc->attr_prach;
892
#if (LTE_RRC_VERSION >= MAKE_VERSION(14, 0, 0))
893 894
    attr_prach_br  = &proc->attr_prach_br;
#endif
Raymond Knopp's avatar
Raymond Knopp committed
895
    //    attr_td     = &proc->attr_td;
896
    //    attr_te     = &proc->attr_te;
Raymond Knopp's avatar
Raymond Knopp committed
897
#endif
Wang Tsu-Han's avatar
Wang Tsu-Han committed
898

899
    if(get_thread_worker_conf() == WORKER_ENABLE) {
900
      init_te_thread(eNB);
Wang Tsu-Han's avatar
Wang Tsu-Han committed
901
      init_td_thread(eNB);
902
    }
Raymond Knopp's avatar
Raymond Knopp committed
903

904 905
    LOG_I(PHY,"eNB->single_thread_flag:%d\n", eNB->single_thread_flag);

906
    if ((get_thread_parallel_conf() == PARALLEL_RU_L1_SPLIT || get_thread_parallel_conf() == PARALLEL_RU_L1_TRX_SPLIT) && nfapi_mode!=2) {
Wang Tsu-Han's avatar
Wang Tsu-Han committed
907 908
      pthread_create( &L1_proc->pthread, attr0, L1_thread, proc );
      pthread_create( &L1_proc_tx->pthread, attr1, L1_thread_tx, proc);
909
    }
910

911
    pthread_create( &proc->pthread_prach, attr_prach, eNB_thread_prach, eNB );
912
#if (LTE_RRC_VERSION >= MAKE_VERSION(14, 0, 0))
913 914
    pthread_create( &proc->pthread_prach_br, attr_prach_br, eNB_thread_prach_br, eNB );
#endif
915 916 917

    AssertFatal(proc->instance_cnt_prach == -1,"instance_cnt_prach = %d\n",proc->instance_cnt_prach);

918
    if (opp_enabled == 1) pthread_create(&proc->process_stats_thread,NULL,process_stats_thread,(void *)eNB);
919
  }
920

921
  //for multiple CCs: setup master and slaves
922
  /*
923 924
     for (CC_id=0; CC_id<MAX_NUM_CCs; CC_id++) {
     eNB = PHY_vars_eNB_g[inst][CC_id];
925

926 927
     if (eNB->node_timing == synch_to_ext_device) { //master
     eNB->proc.num_slaves = MAX_NUM_CCs-1;
928
     eNB->proc.slave_proc = (L1_proc_t**)malloc(eNB->proc.num_slaves*sizeof(L1_proc_t*));
929

930 931 932 933 934 935 936
     for (i=0; i< eNB->proc.num_slaves; i++) {
     if (i < CC_id)  eNB->proc.slave_proc[i] = &(PHY_vars_eNB_g[inst][i]->proc);
     if (i >= CC_id)  eNB->proc.slave_proc[i] = &(PHY_vars_eNB_g[inst][i+1]->proc);
     }
     }
     }
  */
937 938 939 940
  /* setup PHY proc TX sync mechanism */
  pthread_mutex_init(&sync_phy_proc.mutex_phy_proc_tx, NULL);
  pthread_cond_init(&sync_phy_proc.cond_phy_proc_tx, NULL);
  sync_phy_proc.phy_proc_CC_id = 0;
941 942
}

943

944

945 946 947
/*!
 * \brief Terminate eNB TX and RX threads.
 */
948
void kill_eNB_proc(int inst) {
949
  int *status;
950
  PHY_VARS_eNB *eNB;
951 952
  L1_proc_t *proc;
  L1_rxtx_proc_t *L1_proc, *L1_proc_tx;
953

954
  for (int CC_id=0; CC_id<MAX_NUM_CCs; CC_id++) {
955
    eNB=RC.eNB[inst][CC_id];
956
    
Wang Tsu-Han's avatar
Wang Tsu-Han committed
957 958 959
    proc        = &eNB->proc;
    L1_proc     = &proc->L1_proc;
    L1_proc_tx  = &proc->L1_proc_tx;
960

961
    if(get_thread_worker_conf() == WORKER_ENABLE) {
962 963 964
      kill_td_thread(eNB);
      kill_te_thread(eNB);
    }
965

966
    LOG_I(PHY, "Killing TX CC_id %d inst %d\n", CC_id, inst );
Wang Tsu-Han's avatar
Wang Tsu-Han committed
967

968 969 970 971 972 973 974 975 976 977 978
    if ((get_thread_parallel_conf() == PARALLEL_RU_L1_SPLIT || get_thread_parallel_conf() == PARALLEL_RU_L1_TRX_SPLIT) && nfapi_mode!=2) {
      pthread_mutex_lock(&L1_proc->mutex);
      L1_proc->instance_cnt = 0;
      pthread_cond_signal(&L1_proc->cond);
      pthread_mutex_unlock(&L1_proc->mutex);

      pthread_mutex_lock(&L1_proc_tx->mutex);
      L1_proc_tx->instance_cnt = 0;
      pthread_cond_signal(&L1_proc_tx->cond);
      pthread_mutex_unlock(&L1_proc_tx->mutex);
    }
Wang Tsu-Han's avatar
Wang Tsu-Han committed
979

Robert Schmidt's avatar
Robert Schmidt committed
980
    pthread_mutex_lock(&proc->mutex_prach);
Raymond Knopp's avatar
Raymond Knopp committed
981 982
    proc->instance_cnt_prach = 0;
    pthread_cond_signal( &proc->cond_prach );
Robert Schmidt's avatar
Robert Schmidt committed
983
    pthread_mutex_unlock(&proc->mutex_prach);
984
    pthread_cond_signal( &proc->cond_asynch_rxtx );
985
    pthread_cond_broadcast(&sync_phy_proc.cond_phy_proc_tx);
986
    LOG_D(PHY, "joining pthread_prach\n");
987
    pthread_join( proc->pthread_prach, (void **)&status );
988
    LOG_I(PHY, "Destroying prach mutex/cond\n");
989
    pthread_mutex_destroy( &proc->mutex_prach );
990
    pthread_cond_destroy( &proc->cond_prach );
991
#if (LTE_RRC_VERSION >= MAKE_VERSION(14, 0, 0))
992
    proc->instance_cnt_prach_br = 0;
993
    pthread_cond_signal( &proc->cond_prach_br );
994
    pthread_join( proc->pthread_prach_br, (void **)&status );
995 996
    pthread_mutex_destroy( &proc->mutex_prach_br );
    pthread_cond_destroy( &proc->cond_prach_br );
Wang Tsu-Han's avatar
Wang Tsu-Han committed
997
#endif
998
    LOG_I(PHY, "Destroying UL_INFO mutex\n");
999
    pthread_mutex_destroy(&eNB->UL_INFO_mutex);
Wang Tsu-Han's avatar
Wang Tsu-Han committed
1000 1001 1002 1003 1004 1005

    if ((get_thread_parallel_conf() == PARALLEL_RU_L1_SPLIT || get_thread_parallel_conf() == PARALLEL_RU_L1_TRX_SPLIT) && nfapi_mode!=2) {
      LOG_I(PHY, "Joining L1_proc mutex/cond\n");
      pthread_join( L1_proc->pthread, (void**)&status );
      LOG_I(PHY, "Joining L1_proc_tx mutex/cond\n");
      pthread_join( L1_proc_tx->pthread, (void**)&status );
1006
    }
Wang Tsu-Han's avatar
Wang Tsu-Han committed
1007 1008 1009
    LOG_I(PHY, "Destroying L1_proc mutex/cond\n");
    pthread_mutex_destroy( &L1_proc->mutex );
    pthread_cond_destroy( &L1_proc->cond );
1010 1011
    pthread_mutex_destroy( &L1_proc->mutex_RUs );
    pthread_cond_destroy( &L1_proc->cond_RUs );
Wang Tsu-Han's avatar
Wang Tsu-Han committed
1012 1013 1014
    LOG_I(PHY, "Destroying L1_proc_tx mutex/cond\n");
    pthread_mutex_destroy( &L1_proc_tx->mutex );
    pthread_cond_destroy( &L1_proc_tx->cond );
1015 1016
    pthread_mutex_destroy( &L1_proc_tx->mutex_RUs );
    pthread_cond_destroy( &L1_proc_tx->cond_RUs );
Robert Schmidt's avatar
Robert Schmidt committed
1017 1018 1019

    pthread_attr_destroy(&proc->attr_prach);
    pthread_attr_destroy(&proc->attr_asynch_rxtx);
Wang Tsu-Han's avatar
Wang Tsu-Han committed
1020 1021
    pthread_attr_destroy(&L1_proc->attr);
    pthread_attr_destroy(&L1_proc_tx->attr);
1022
#if (LTE_RRC_VERSION >= MAKE_VERSION(14, 0, 0))
Robert Schmidt's avatar
Robert Schmidt committed
1023 1024 1025
    pthread_mutex_destroy(&proc->mutex_RU_PRACH_br);
    pthread_attr_destroy(&proc->attr_prach_br);
#endif
1026
  }
1027 1028
}

1029

1030 1031 1032 1033 1034 1035


void reset_opp_meas(void) {
  int sfn;
  reset_meas(&softmodem_stats_mt);
  reset_meas(&softmodem_stats_hw);
1036

1037
  for (sfn=0; sfn < 10; sfn++) {
1038
    reset_meas(&softmodem_stats_rxtx_sf);
1039
    reset_meas(&softmodem_stats_rx_sf);
1040 1041 1042
  }
}

1043

1044 1045 1046 1047
void print_opp_meas(void) {
  int sfn=0;
  print_meas(&softmodem_stats_mt, "Main ENB Thread", NULL, NULL);
  print_meas(&softmodem_stats_hw, "HW Acquisation", NULL, NULL);
1048

1049
  for (sfn=0; sfn < 10; sfn++) {
1050
    print_meas(&softmodem_stats_rxtx_sf,"[eNB][total_phy_proc_rxtx]",NULL, NULL);
1051
    print_meas(&softmodem_stats_rx_sf,"[eNB][total_phy_proc_rx]",NULL,NULL);
1052 1053
  }
}
1054

1055
void free_transport(PHY_VARS_eNB *eNB) {
1056 1057 1058 1059
  int i;
  int j;

  for (i=0; i<NUMBER_OF_UE_MAX; i++) {
1060
    LOG_D(PHY, "Freeing Transport Channel Buffers for DLSCH, UE %d\n",i);
1061 1062 1063

    for (j=0; j<2; j++) free_eNB_dlsch(eNB->dlsch[i][j]);

1064
    LOG_D(PHY, "Freeing Transport Channel Buffer for ULSCH, UE %d\n",i);
1065 1066
    free_eNB_ulsch(eNB->ulsch[1+i]);
  }
1067

1068 1069 1070
  free_eNB_ulsch(eNB->ulsch[0]);
}

1071 1072 1073 1074
void init_transport(PHY_VARS_eNB *eNB) {
  int i;
  int j;
  LTE_DL_FRAME_PARMS *fp = &eNB->frame_parms;
Cedric Roux's avatar
Cedric Roux committed
1075
  LOG_I(PHY, "Initialise transport\n");
1076

1077
  for (i=0; i<NUMBER_OF_UE_MAX; i++) {
Wang Tsu-Han's avatar
Wang Tsu-Han committed
1078
    LOG_D(PHY,"Allocating Transport Channel Buffers for DLSCH, UE %d\n",i);
1079

1080 1081
    for (j=0; j<2; j++) {
      eNB->dlsch[i][j] = new_eNB_dlsch(1,8,NSOFT,fp->N_RB_DL,0,fp);
1082

1083
      if (!eNB->dlsch[i][j]) {
1084
        LOG_E(PHY,"Can't get eNB dlsch structures for UE %d \n", i);
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
1085
        exit(-1);
1086
      } else {
1087 1088
        eNB->dlsch[i][j]->rnti=0;
        LOG_D(PHY,"dlsch[%d][%d] => %p rnti:%d\n",i,j,eNB->dlsch[i][j], eNB->dlsch[i][j]->rnti);
1089 1090
      }
    }
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
1091

Wang Tsu-Han's avatar
Wang Tsu-Han committed
1092
    LOG_D(PHY,"Allocating Transport Channel Buffer for ULSCH, UE %d\n",i);
1093
    eNB->ulsch[1+i] = new_eNB_ulsch(MAX_TURBO_ITERATIONS,fp->N_RB_UL, 0);
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
1094

1095 1096
    if (!eNB->ulsch[1+i]) {
      LOG_E(PHY,"Can't get eNB ulsch structures\n");
1097 1098
      exit(-1);
    }
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
1099

1100 1101 1102
    // this is the transmission mode for the signalling channels
    // this will be overwritten with the real transmission mode by the RRC once the UE is connected
    eNB->transmission_mode[i] = fp->nb_antenna_ports_eNB==1 ? 1 : 2;
1103
  }
1104

1105 1106
  // ULSCH for RA
  eNB->ulsch[0] = new_eNB_ulsch(MAX_TURBO_ITERATIONS, fp->N_RB_UL, 0);
1107

1108 1109 1110 1111
  if (!eNB->ulsch[0]) {
    LOG_E(PHY,"Can't get eNB ulsch structures\n");
    exit(-1);
  }
1112

1113 1114 1115 1116 1117 1118 1119
  eNB->dlsch_SI  = new_eNB_dlsch(1,8,NSOFT,fp->N_RB_DL, 0, fp);
  LOG_D(PHY,"eNB %d.%d : SI %p\n",eNB->Mod_id,eNB->CC_id,eNB->dlsch_SI);
  eNB->dlsch_ra  = new_eNB_dlsch(1,8,NSOFT,fp->N_RB_DL, 0, fp);
  LOG_D(PHY,"eNB %d.%d : RA %p\n",eNB->Mod_id,eNB->CC_id,eNB->dlsch_ra);
  eNB->dlsch_MCH = new_eNB_dlsch(1,8,NSOFT,fp->N_RB_DL, 0, fp);
  LOG_D(PHY,"eNB %d.%d : MCH %p\n",eNB->Mod_id,eNB->CC_id,eNB->dlsch_MCH);
  eNB->rx_total_gain_dB=130;
1120

1121 1122
  for(i=0; i<NUMBER_OF_UE_MAX; i++)
    eNB->mu_mimo_mode[i].dl_pow_off = 2;
1123

1124 1125 1126 1127 1128
  eNB->check_for_total_transmissions = 0;
  eNB->check_for_MUMIMO_transmissions = 0;
  eNB->FULL_MUMIMO_transmissions = 0;
  eNB->check_for_SUMIMO_transmissions = 0;
  fp->pucch_config_common.deltaPUCCH_Shift = 1;
1129
}
Raymond Knopp's avatar
Raymond Knopp committed
1130 1131

void init_eNB_afterRU(void) {
1132 1133
  int inst,CC_id,ru_id,i,aa;
  PHY_VARS_eNB *eNB;
1134
  LOG_I(PHY,"%s() RC.nb_inst:%d\n", __FUNCTION__, RC.nb_inst);
1135

1136
  for (inst=0; inst<RC.nb_inst; inst++) {
1137 1138
    LOG_I(PHY,"RC.nb_CC[inst]:%d\n", RC.nb_CC[inst]);

1139
    for (CC_id=0; CC_id<RC.nb_CC[inst]; CC_id++) {
1140
      LOG_I(PHY,"RC.nb_CC[inst:%d][CC_id:%d]:%p\n", inst, CC_id, RC.eNB[inst][CC_id]);
1141 1142
      eNB                                  =  RC.eNB[inst][CC_id];
      phy_init_lte_eNB(eNB,0,0);
1143

1144
      // map antennas and PRACH signals to eNB RX
1145
      if (0) AssertFatal(eNB->num_RU>0,"Number of RU attached to eNB %d is zero\n",eNB->Mod_id);
1146

1147
      LOG_I(PHY,"Mapping RX ports from %d RUs to eNB %d\n",eNB->num_RU,eNB->Mod_id);
1148
      eNB->frame_parms.nb_antennas_rx       = 0;
Cedric Roux's avatar
Cedric Roux committed
1149
      LOG_I(PHY,"Overwriting eNB->prach_vars.rxsigF[0]:%p\n", eNB->prach_vars.rxsigF[0]);
1150
      eNB->prach_vars.rxsigF[0] = (int16_t **)malloc16(64*sizeof(int16_t *));
1151
#if (LTE_RRC_VERSION >= MAKE_VERSION(14, 0, 0))
1152

1153
      for (int ce_level=0; ce_level<4; ce_level++) {
Cedric Roux's avatar
Cedric Roux committed
1154
        LOG_I(PHY,"Overwriting eNB->prach_vars_br.rxsigF.rxsigF[0]:%p\n", eNB->prach_vars_br.rxsigF[ce_level]);
1155
        eNB->prach_vars_br.rxsigF[ce_level] = (int16_t **)malloc16(64*sizeof(int16_t *));
1156 1157
      }

Raymond Knopp's avatar
Raymond Knopp committed
1158
#endif
1159 1160
      LOG_I(PHY,"eNB->num_RU:%d\n", eNB->num_RU);

1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172
      for (ru_id=0,aa=0; ru_id<eNB->num_RU; ru_id++) {
        eNB->frame_parms.nb_antennas_rx    += eNB->RU_list[ru_id]->nb_rx;
        AssertFatal(eNB->RU_list[ru_id]->common.rxdataF!=NULL,
                    "RU %d : common.rxdataF is NULL\n",
                    eNB->RU_list[ru_id]->idx);
        AssertFatal(eNB->RU_list[ru_id]->prach_rxsigF!=NULL,
                    "RU %d : prach_rxsigF is NULL\n",
                    eNB->RU_list[ru_id]->idx);

        for (i=0; i<eNB->RU_list[ru_id]->nb_rx; aa++,i++) {
          LOG_I(PHY,"Attaching RU %d antenna %d to eNB antenna %d\n",eNB->RU_list[ru_id]->idx,i,aa);
          eNB->prach_vars.rxsigF[0][aa]    =  eNB->RU_list[ru_id]->prach_rxsigF[i];
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
1173
#if (LTE_RRC_VERSION >= MAKE_VERSION(14, 0, 0))
1174

1175 1176
          for (int ce_level=0; ce_level<4; ce_level++)
            eNB->prach_vars_br.rxsigF[ce_level][aa] = eNB->RU_list[ru_id]->prach_rxsigF_br[ce_level][i];
1177

Raymond Knopp's avatar
Raymond Knopp committed
1178
#endif
1179
          eNB->common_vars.rxdataF[aa]     =  eNB->RU_list[ru_id]->common.rxdataF[i];
Louis Adrien Dufrene's avatar
Louis Adrien Dufrene committed
1180
        }
1181
      }
1182

Cedric Roux's avatar
Cedric Roux committed
1183 1184 1185 1186
      /* TODO: review this code, there is something wrong.
       * In monolithic mode, we come here with nb_antennas_rx == 0
       * (not tested in other modes).
       */
1187
      if (eNB->frame_parms.nb_antennas_rx < 1) {
1188 1189
        LOG_I(PHY, "%s() ************* DJP ***** eNB->frame_parms.nb_antennas_rx:%d - GOING TO HARD CODE TO 1", __FUNCTION__, eNB->frame_parms.nb_antennas_rx);
        eNB->frame_parms.nb_antennas_rx = 1;
1190
      } else {
Cedric Roux's avatar
Cedric Roux committed
1191
        //LOG_I(PHY," Delete code\n");
1192 1193
      }

1194
      if (eNB->frame_parms.nb_antennas_tx < 1) {
1195 1196
        LOG_I(PHY, "%s() ************* DJP ***** eNB->frame_parms.nb_antennas_tx:%d - GOING TO HARD CODE TO 1", __FUNCTION__, eNB->frame_parms.nb_antennas_tx);
        eNB->frame_parms.nb_antennas_tx = 1;
1197
      } else {
Cedric Roux's avatar
Cedric Roux committed
1198
        //LOG_I(PHY," Delete code\n");
1199 1200
      }

1201
      AssertFatal(eNB->frame_parms.nb_antennas_rx >0,
1202
                  "inst %d, CC_id %d : nb_antennas_rx %d\n",inst,CC_id,eNB->frame_parms.nb_antennas_rx);
1203
      LOG_I(PHY,"inst %d, CC_id %d : nb_antennas_rx %d\n",inst,CC_id,eNB->frame_parms.nb_antennas_rx);
1204
      init_transport(eNB);
Raymond Knopp's avatar
Raymond Knopp committed
1205
      //init_precoding_weights(RC.eNB[inst][CC_id]);
1206
    }
1207

1208 1209
    init_eNB_proc(inst);
  }
1210

1211
  for (ru_id=0; ru_id<RC.nb_RU; ru_id++) {
1212
    AssertFatal(RC.ru[ru_id]!=NULL,"ru_id %d is null\n",ru_id);
1213 1214
    RC.ru[ru_id]->wakeup_rxtx         = wakeup_rxtx;
    RC.ru[ru_id]->wakeup_prach_eNB    = wakeup_prach_eNB;
1215
#if (LTE_RRC_VERSION >= MAKE_VERSION(14, 0, 0))
1216
    RC.ru[ru_id]->wakeup_prach_eNB_br = wakeup_prach_eNB_br;
1217
#endif
1218
    RC.ru[ru_id]->eNB_top             = eNB_top;
1219 1220
  }
}
1221

1222
void init_eNB(int single_thread_flag,int wait_for_sync) {
1223
  int CC_id;
1224
  int inst;
1225
  PHY_VARS_eNB *eNB;
1226 1227
  LOG_I(PHY,"[lte-softmodem.c] eNB structure about to allocated RC.nb_L1_inst:%d RC.nb_L1_CC[0]:%d\n",RC.nb_L1_inst,RC.nb_L1_CC[0]);

1228
  if (RC.eNB == NULL) RC.eNB = (PHY_VARS_eNB ** *) malloc(RC.nb_L1_inst*sizeof(PHY_VARS_eNB **));
Raymond Knopp's avatar
Raymond Knopp committed
1229

1230
  LOG_I(PHY,"[lte-softmodem.c] eNB structure RC.eNB allocated\n");
1231

1232 1233
  for (inst=0; inst<RC.nb_L1_inst; inst++) {
    if (RC.eNB[inst] == NULL) RC.eNB[inst] = (PHY_VARS_eNB **) malloc(RC.nb_CC[inst]*sizeof(PHY_VARS_eNB *));
1234

1235 1236
    for (CC_id=0; CC_id<RC.nb_L1_CC[inst]; CC_id++) {
      if (RC.eNB[inst][CC_id] == NULL) RC.eNB[inst][CC_id] = (PHY_VARS_eNB *) malloc(sizeof(PHY_VARS_eNB));
1237

1238 1239 1240
      eNB                     = RC.eNB[inst][CC_id];
      eNB->abstraction_flag   = 0;
      eNB->single_thread_flag = single_thread_flag;
1241
      LOG_I(PHY,"Initializing eNB %d CC_id %d single_thread_flag:%d\n",inst,CC_id,single_thread_flag);
laurent's avatar
laurent committed
1242
#ifndef OCP_FRAMEWORK
1243
      LOG_I(PHY,"Initializing eNB %d CC_id %d\n",inst,CC_id);
laurent's avatar
laurent committed
1244
#endif
1245
      LOG_I(PHY,"Registering with MAC interface module\n");
1246 1247 1248
      AssertFatal((eNB->if_inst         = IF_Module_init(inst))!=NULL,"Cannot register interface");
      eNB->if_inst->schedule_response   = schedule_response;
      eNB->if_inst->PHY_config_req      = phy_config_request;
1249 1250
      memset((void *)&eNB->UL_INFO,0,sizeof(eNB->UL_INFO));
      memset((void *)&eNB->Sched_INFO,0,sizeof(eNB->Sched_INFO));
1251
      LOG_I(PHY,"Setting indication lists\n");
1252 1253 1254 1255
      eNB->UL_INFO.rx_ind.rx_indication_body.rx_pdu_list   = eNB->rx_pdu_list;
      eNB->UL_INFO.crc_ind.crc_indication_body.crc_pdu_list = eNB->crc_pdu_list;
      eNB->UL_INFO.sr_ind.sr_indication_body.sr_pdu_list = eNB->sr_pdu_list;
      eNB->UL_INFO.harq_ind.harq_indication_body.harq_pdu_list = eNB->harq_pdu_list;
1256 1257
      eNB->UL_INFO.cqi_ind.cqi_pdu_list = eNB->cqi_pdu_list;
      eNB->UL_INFO.cqi_ind.cqi_raw_pdu_list = eNB->cqi_raw_pdu_list;
1258
      eNB->prach_energy_counter = 0;
1259
    }
1260
  }
1261

1262
  LOG_I(PHY,"[lte-softmodem.c] eNB structure allocated\n");
1263 1264 1265
}


1266
void stop_eNB(int nb_inst) {
1267
  for (int inst=0; inst<nb_inst; inst++) {
1268
    LOG_I(PHY,"Killing eNB %d processing threads\n",inst);
1269 1270
    kill_eNB_proc(inst);
  }
1271
}