source: trunk/IPs/systemC/processor/Morpheo/Behavioural/Core/Multi_OOO_Engine/OOO_Engine/Commit_unit/src/Commit_unit_genMealy_insert.cpp @ 145

#ifdef SYSTEMC
/*
 * $Id: Commit_unit_genMealy_insert.cpp 145 2010-10-13 18:15:51Z rosiere $
 *
 * [ Description ]
 * 
 */

#include "Behavioural/Core/Multi_OOO_Engine/OOO_Engine/Commit_unit/include/Commit_unit.h"

namespace morpheo                    {
namespace behavioural {
namespace core {
namespace multi_ooo_engine {
namespace ooo_engine {
namespace commit_unit {


#undef  FUNCTION
#define FUNCTION "Commit_unit::genMealy_insert"
  void Commit_unit::genMealy_insert (void)
  {
    log_begin(Commit_unit,FUNCTION);
    log_function(Commit_unit,FUNCTION,_name.c_str());

    if (PORT_READ(in_NRESET))
      {
    Tcontrol_t bank_full         [_param->_nb_bank];
    Tcontrol_t insert_ack        [_param->_nb_rename_unit][_param->_max_nb_inst_insert];
#ifdef SYSTEMC_VHDL_COMPATIBILITY
    Tpacket_t  insert_packet_id  [_param->_nb_rename_unit][_param->_max_nb_inst_insert];
#endif
    bool       can_rename_select [_param->_nb_rename_unit];
//     bool       event_stop;
    
//     //     Initialisation
//     event_stop = false; // one signal for all context.
//     for (uint32_t i=0; i<_param->_nb_front_end; ++i)
//       for (uint32_t j=0; j<_param->_nb_context[i]; ++j)
//         event_stop |= reg_EVENT_STOP [i][j];   

//     Initialisation
    for (uint32_t i=0; i<_param->_nb_bank; i++)
      {
        internal_BANK_INSERT_VAL  [i] = false;
        bank_full [i] = not (_rob[i].size() < _param->_size_bank); 
      }
    for (uint32_t i=0; i<_param->_nb_rename_unit; i++)
      {
        can_rename_select [i] = true;
        for (uint32_t j=0; j<_param->_nb_inst_insert[i]; j++)
          {
            insert_ack       [i][j] = false;
#ifdef SYSTEMC_VHDL_COMPATIBILITY
            insert_packet_id [i][j] = false;
#endif
          }
      }

    // insert interface
//     log_printf(TRACE,Commit_unit,FUNCTION,"  * reg_NUM_BANK_TAIL : %d",reg_NUM_BANK_TAIL);

//     if (not event_stop)
      {
        std::list<generic::priority::select_t> * select_insert = _priority_insert ->select(); // same select for all insert
        std::list<generic::priority::select_t>::iterator it=select_insert ->begin();
        
        // Scan all bank ...
        for (uint32_t i=0; i<_param->_nb_bank; i++)
          {
            // compute the bank number (num_bank_tail is the older write slot)
            uint32_t num_bank = (reg_NUM_BANK_TAIL+i)%_param->_nb_bank;
      
//          log_printf(TRACE,Commit_unit,FUNCTION,"  * BANK : %d", num_bank);
//          log_printf(TRACE,Commit_unit,FUNCTION,"    * val  : %d", internal_BANK_INSERT_VAL [num_bank]);
//          log_printf(TRACE,Commit_unit,FUNCTION,"    * full : %d", bank_full [num_bank]);
      
            // Scan all insert interface to find a valid transaction
            while (it!=select_insert ->end())
              {
                uint32_t num_rename_unit = it->grp;
                uint32_t num_inst_insert = it->elt;
      
                it++;
      
                log_printf(TRACE,Commit_unit,FUNCTION,"  * INSERT [%d][%d]", num_rename_unit,num_inst_insert);
//                  log_printf(TRACE,Commit_unit,FUNCTION,"    * INSERT_VAL        : %d", PORT_READ(in_INSERT_VAL [num_rename_unit][num_inst_insert]));
                log_printf(TRACE,Commit_unit,FUNCTION,"    * can_rename_select : %d", can_rename_select [num_rename_unit]);
      
                // Test if have instruction
                //   -> rename_unit_glue test the in-order insert !!!!!
                if (can_rename_select [num_rename_unit] // and 
//              PORT_READ(in_INSERT_VAL [num_rename_unit][num_inst_insert])
                    )
                  {
                    log_printf(TRACE,Commit_unit,FUNCTION,"      * have instruction");
                    log_printf(TRACE,Commit_unit,FUNCTION,"      * num_bank  : %d",num_bank);
                    log_printf(TRACE,Commit_unit,FUNCTION,"      * bank_full : %d",bank_full [num_bank]);
                    
                    // test if bank is not busy (full or previous access)
                    if (not bank_full [num_bank])
                      {
                        bool cond = true;

                        if (_param->_rat_scheme[num_rename_unit] == RAT_DEPTH_SAVE)
                          {
                            Tcontext_t front_end_id = (_param->_have_port_front_end_id)?PORT_READ(in_INSERT_FRONT_END_ID [num_rename_unit][num_inst_insert]):0;
                            Tcontext_t context_id   = (_param->_have_port_context_id  )?PORT_READ(in_INSERT_CONTEXT_ID   [num_rename_unit][num_inst_insert]):0;
                            Tdepth_t   depth        = (_param->_have_port_depth       )?PORT_READ(in_INSERT_DEPTH        [num_rename_unit][num_inst_insert]):0;
                            Tcontrol_t save_rat     =                                   PORT_READ(in_INSERT_SAVE_RAT     [num_rename_unit][num_inst_insert]);

                            cond = not (save_rat and (reg_NB_INST_DEPTH[front_end_id][context_id][depth]>0));

                            log_printf(TRACE,Commit_unit,FUNCTION,"        * front_end_id : %d",front_end_id);
                            log_printf(TRACE,Commit_unit,FUNCTION,"        * context_id   : %d",context_id  );
                            log_printf(TRACE,Commit_unit,FUNCTION,"        * depth        : %d",depth       );
                            log_printf(TRACE,Commit_unit,FUNCTION,"        * save_rat     : %d",save_rat    );
                            log_printf(TRACE,Commit_unit,FUNCTION,"        * cond         : %d",cond        );
                            
                          }
                        
                        if (cond)
                          {
                            // find !!!
                            insert_ack       [num_rename_unit][num_inst_insert] = true;
                            
                            Tpacket_t packet_id = ((reg_BANK_PTR [num_bank] << _param->_shift_num_slot) | num_bank);
                            
#ifdef SYSTEMC_VHDL_COMPATIBILITY
                            insert_packet_id [num_rename_unit][num_inst_insert] = packet_id;
#else
                            if (_param->_have_port_rob_ptr  )
                              PORT_WRITE(out_INSERT_PACKET_ID [num_rename_unit][num_inst_insert],packet_id);
#endif
                            internal_BANK_INSERT_VAL             [num_bank] = true;
                            internal_BANK_INSERT_NUM_RENAME_UNIT [num_bank] = num_rename_unit;
                            internal_BANK_INSERT_NUM_INST        [num_bank] = num_inst_insert;
                            
                            break;
                          }
                      }
                  }
                
                // is a valid instruction, but it's not send at a bank
                //  ... invalid this rename_unit (because, insert in_order)
                can_rename_select [num_rename_unit] = false;
              }
          }
      }
    
    // Write output
    for (uint32_t i=0; i<_param->_nb_rename_unit; i++)
      for (uint32_t j=0; j<_param->_nb_inst_insert[i]; j++)
        {
          PORT_WRITE(out_INSERT_ACK       [i][j],insert_ack       [i][j]);
          log_printf(TRACE,Commit_unit,FUNCTION,"  * INSERT [%d][%d] -> ack %d",i,j,insert_ack[i][j]);

#ifdef SYSTEMC_VHDL_COMPATIBILITY
          if (_param->_have_port_rob_ptr  )
          PORT_WRITE(out_INSERT_PACKET_ID [i][j],insert_packet_id [i][j]);
#endif
        }
      }    
    else
      {
        for (uint32_t i=0; i<_param->_nb_bank; i++)
          internal_BANK_INSERT_VAL  [i] = false;
        for (uint32_t i=0; i<_param->_nb_rename_unit; i++)
          for (uint32_t j=0; j<_param->_nb_inst_insert[i]; j++)
            PORT_WRITE(out_INSERT_ACK       [i][j],0);

      }

    log_end(Commit_unit,FUNCTION);
  };

}; // end namespace commit_unit
}; // end namespace ooo_engine
}; // end namespace multi_ooo_engine
}; // end namespace core
}; // end namespace behavioural
}; // end namespace morpheo              
#endif