source: trunk/IPs/systemC/processor/Morpheo/Behavioural/Core/Multi_Execute_loop/Execute_loop/Multi_Write_unit/Write_unit/Execute_queue/src/Execute_queue_vhdl_body.cpp @ 98

Last change on this file since 98 was 98, checked in by rosiere, 15 years ago

1) Fix bug (read unit, RAT -> write in R0, SPR desallocation ...)
2) Change VHDL Execute_queue -> use Generic/Queue?
3) Complete document on VHDL generation
4) Add soc test
  • Property svn:keywords set to Id
File size: 16.7 KB
Line 
1#ifdef VHDL
2/*
3 * $Id: Execute_queue_vhdl_body.cpp 98 2008-12-31 10:18:08Z rosiere $
4 *
5 * [ Description ]
6 *
7 */
8
9#include "Behavioural/Core/Multi_Execute_loop/Execute_loop/Multi_Write_unit/Write_unit/Execute_queue/include/Execute_queue.h"
10
11namespace morpheo                    {
12namespace behavioural {
13namespace core {
14namespace multi_execute_loop {
15namespace execute_loop {
16namespace multi_write_unit {
17namespace write_unit {
18namespace execute_queue {
19
20
21#undef  FUNCTION
22#define FUNCTION "Execute_queue::vhdl_body"
23  void Execute_queue::vhdl_body (Vhdl * & vhdl)
24  {
25    log_printf(FUNC,Execute_queue,FUNCTION,"Begin");
26
27    vhdl->set_comment(0,"");
28    vhdl->set_comment(0,"-----------------------------------");
29    vhdl->set_comment(0,"-- Instance queue                  ");
30    vhdl->set_comment(0,"-----------------------------------");
31    vhdl->set_comment(0,"");
32
33    vhdl->set_body   (0,"instance_"+_name+"_queue : "+_name+"_queue");
34    vhdl->set_body   (0,"port map (");
35    vhdl->set_body   (1,"  in_CLOCK       \t=>\t      in_CLOCK ");
36    vhdl->set_body   (1,", in_NRESET      \t=>\t      in_NRESET");
37    vhdl->set_body   (1,", in_INSERT_VAL  \t=>\tinternal_QUEUE_INSERT_VAL");
38    vhdl->set_body   (1,",out_INSERT_ACK  \t=>\tinternal_QUEUE_INSERT_ACK");
39    vhdl->set_body   (1,", in_INSERT_DATA \t=>\tinternal_QUEUE_INSERT_DATA");
40    vhdl->set_body   (1,",out_RETIRE_VAL  \t=>\tinternal_QUEUE_RETIRE_VAL");
41    vhdl->set_body   (1,", in_RETIRE_ACK  \t=>\tinternal_QUEUE_RETIRE_ACK");
42    vhdl->set_body   (1,",out_RETIRE_DATA \t=>\tinternal_QUEUE_RETIRE_DATA");
43    vhdl->set_body   (0,");");
44
45    vhdl->set_comment(0,"");
46    vhdl->set_comment(0,"-----------------------------------");
47    vhdl->set_comment(0,"-- Input  Buffer                   ");
48    vhdl->set_comment(0,"-----------------------------------");
49    vhdl->set_comment(0,"");
50
51    {
52    uint32_t min = 0;
53    uint32_t max, size;
54
55    if(_param->_have_port_context_id   )
56      {
57    size = _param->_size_context_id;
58    max = min-1+size;
59    vhdl->set_body   (0,"internal_QUEUE_INSERT_DATA "+std_logic_range(_param->_size_internal_queue,max,min)+" <= in_EXECUTE_QUEUE_IN_CONTEXT_ID;");
60    min = max+1;
61      }
62    if(_param->_have_port_front_end_id   )
63      {
64    size = _param->_size_front_end_id;
65    max = min-1+size;
66    vhdl->set_body   (0,"internal_QUEUE_INSERT_DATA "+std_logic_range(_param->_size_internal_queue,max,min)+" <= in_EXECUTE_QUEUE_IN_FRONT_END_ID;");
67    min = max+1;
68      }
69    if(_param->_have_port_ooo_engine_id   )
70      {
71    size = _param->_size_ooo_engine_id;
72    max = min-1+size;
73    vhdl->set_body   (0,"internal_QUEUE_INSERT_DATA "+std_logic_range(_param->_size_internal_queue,max,min)+" <= in_EXECUTE_QUEUE_IN_OOO_ENGINE_ID;");
74    min = max+1;
75      }
76    if(_param->_have_port_rob_ptr)
77      {
78    size = _param->_size_rob_ptr;
79    max = min-1+size;
80    vhdl->set_body   (0,"internal_QUEUE_INSERT_DATA "+std_logic_range(_param->_size_internal_queue,max,min)+" <= in_EXECUTE_QUEUE_IN_PACKET_ID;");
81    min = max+1;
82      }
83
84//  size = _param->_size_operation;
85//  max = min-1+size;
86//  vhdl->set_body   (0,"internal_QUEUE_INSERT_DATA "+std_logic_range(_param->_size_internal_queue,max,min)+" <= in_EXECUTE_QUEUE_IN_OPERATION;");
87//  min = max+1;
88//
89//  size = _param->_size_type;
90//  max = min-1+size;
91//  vhdl->set_body   (0,"internal_QUEUE_INSERT_DATA "+std_logic_range(_param->_size_internal_queue,max,min)+" <= in_EXECUTE_QUEUE_IN_TYPE;");
92//  min = max+1;
93
94    size = _param->_size_special_data;
95    max = min-1+size;
96    vhdl->set_body   (0,"internal_QUEUE_INSERT_DATA "+std_logic_range(_param->_size_internal_queue,max,min)+" <= in_EXECUTE_QUEUE_IN_FLAGS;");
97    min = max+1;
98
99    size = _param->_size_exception;   
100    max = min-1+size;
101    vhdl->set_body   (0,"internal_QUEUE_INSERT_DATA "+std_logic_range(_param->_size_internal_queue,max,min)+" <= in_EXECUTE_QUEUE_IN_EXCEPTION;");
102    min = max+1;
103
104    size = 1;
105    max = min-1+size;
106    vhdl->set_body   (0,"internal_QUEUE_INSERT_DATA "+std_logic_range(_param->_size_internal_queue,max,min)+" <= in_EXECUTE_QUEUE_IN_NO_SEQUENCE;");
107    min = max+1;
108
109    size = _param->_size_instruction_address;
110    max = min-1+size;
111    vhdl->set_body   (0,"internal_QUEUE_INSERT_DATA "+std_logic_range(_param->_size_internal_queue,max,min)+" <= in_EXECUTE_QUEUE_IN_ADDRESS;");
112    min = max+1;
113
114    size = _param->_size_general_data;
115    max = min-1+size;
116    vhdl->set_body   (0,"internal_QUEUE_INSERT_DATA "+std_logic_range(_param->_size_internal_queue,max,min)+" <= in_EXECUTE_QUEUE_IN_DATA;");
117    min = max+1;
118    }
119
120    vhdl->set_comment(0,"");
121    vhdl->set_comment(0,"-----------------------------------");
122    vhdl->set_comment(0,"-- Output Buffer                   ");
123    vhdl->set_comment(0,"-----------------------------------");
124    vhdl->set_comment(0,"");
125
126    if(_param->_have_port_context_id)
127    vhdl->set_body   (0,"out_EXECUTE_QUEUE_OUT_CONTEXT_ID    <= internal_EXECUTE_QUEUE_OUT_CONTEXT_ID   ;");
128    if(_param->_have_port_front_end_id)
129    vhdl->set_body   (0,"out_EXECUTE_QUEUE_OUT_FRONT_END_ID  <= internal_EXECUTE_QUEUE_OUT_FRONT_END_ID ;");
130    if(_param->_have_port_ooo_engine_id)
131    vhdl->set_body   (0,"out_EXECUTE_QUEUE_OUT_OOO_ENGINE_ID <= internal_EXECUTE_QUEUE_OUT_OOO_ENGINE_ID;");
132    if(_param->_have_port_rob_ptr)
133    vhdl->set_body   (0,"out_EXECUTE_QUEUE_OUT_PACKET_ID     <= internal_EXECUTE_QUEUE_OUT_PACKET_ID    ;");
134//  vhdl->set_body   (0,"out_EXECUTE_QUEUE_OUT_OPERATION     <= internal_EXECUTE_QUEUE_OUT_OPERATION    ;");
135//  vhdl->set_body   (0,"out_EXECUTE_QUEUE_OUT_TYPE          <= internal_EXECUTE_QUEUE_OUT_TYPE         ;");
136    vhdl->set_body   (0,"out_EXECUTE_QUEUE_OUT_FLAGS         <= internal_EXECUTE_QUEUE_OUT_FLAGS        ;");
137    vhdl->set_body   (0,"out_EXECUTE_QUEUE_OUT_EXCEPTION     <= internal_EXECUTE_QUEUE_OUT_EXCEPTION    ;");
138    vhdl->set_body   (0,"out_EXECUTE_QUEUE_OUT_NO_SEQUENCE   <= internal_EXECUTE_QUEUE_OUT_NO_SEQUENCE  ;");
139    vhdl->set_body   (0,"out_EXECUTE_QUEUE_OUT_ADDRESS       <= internal_EXECUTE_QUEUE_OUT_ADDRESS      ;");
140    vhdl->set_body   (0,"out_EXECUTE_QUEUE_OUT_DATA          <= internal_EXECUTE_QUEUE_OUT_DATA         ;");
141
142
143//     vhdl->set_body (0,"");
144//     vhdl->set_body (0,"process (in_CLOCK)");
145//     vhdl->set_body (0,"begin");
146//     vhdl->set_body (1,"if in_CLOCK'event and in_CLOCK = '1' then");
147// //     vhdl->set_body (2,"if in_NRESET = '0' then");
148// //     vhdl->set_body (3,"reg_CURRENT_STATE <= STATE_0;");
149// //     vhdl->set_body (2,"else");
150//     vhdl->set_body (3,"reg_CURRENT_STATE <= sig_NEXT_STATE;");
151// //     vhdl->set_body (2,"end if;");
152
153//     for (uint32_t i = 0; i <_param->_size_queue - 1; i++)
154//       {
155//      vhdl->set_body (2,"if sig_WEN_"+toString(i)+" = '1' then");
156//      vhdl->set_body (3,"if sig_SEL_"+toString(i)+" = '0' then");
157//      if (_param->_have_port_context_id)
158//      vhdl->set_body (4,"reg_CONTEXT_ID_"+toString(i)+"    <= in_EXECUTE_QUEUE_IN_CONTEXT_ID;");
159//      if (_param->_have_port_front_end_id)
160//      vhdl->set_body (4,"reg_FRONT_END_ID_"+toString(i)+"  <= in_EXECUTE_QUEUE_IN_FRONT_END_ID;");
161//      if (_param->_have_port_ooo_engine_id)
162//      vhdl->set_body (4,"reg_OOO_ENGINE_ID_"+toString(i)+" <= in_EXECUTE_QUEUE_IN_OOO_ENGINE_ID;");
163//      if (_param->_have_port_rob_ptr)
164//         vhdl->set_body (4,"reg_PACKET_ID_"+toString(i)+"     <= in_EXECUTE_QUEUE_IN_PACKET_ID;");
165//      vhdl->set_body (4, "reg_FLAGS_"+toString(i)+"        <= in_EXECUTE_QUEUE_IN_FLAGS;");
166//      vhdl->set_body (4, "reg_EXCEPTION_"+toString(i)+"    <= in_EXECUTE_QUEUE_IN_EXCEPTION;");
167//      vhdl->set_body (4, "reg_NO_SEQUENCE_"+toString(i)+"  <= in_EXECUTE_QUEUE_IN_NO_SEQUENCE;");
168//      vhdl->set_body (4, "reg_ADDRESS_"+toString(i)+"      <= in_EXECUTE_QUEUE_IN_ADDRESS;");
169//      vhdl->set_body (4, "reg_DATA_"+toString(i)+"         <= in_EXECUTE_QUEUE_IN_DATA;");
170
171//      vhdl->set_body (3, "else");
172//      if (_param->_have_port_context_id)
173//      vhdl->set_body (4,"reg_CONTEXT_ID_"+toString(i)+"    <= reg_CONTEXT_ID_"+toString(i+1)+";");
174//      if (_param->_have_port_front_end_id)
175//      vhdl->set_body (4,"reg_FRONT_END_ID_"+toString(i)+"  <= reg_FRONT_END_ID_"+toString(i+1)+";");
176//      if (_param->_have_port_ooo_engine_id)
177//      vhdl->set_body (4,"reg_OOO_ENGINE_ID_"+toString(i)+" <= reg_OOO_ENGINE_ID_"+toString(i+1)+";");
178//      if (_param->_have_port_rob_ptr)
179//         vhdl->set_body (4,"reg_PACKET_ID_"+toString(i)+"     <= reg_PACKET_ID_"+toString(i+1)+";");
180//      vhdl->set_body (4, "reg_FLAGS_"+toString(i)+"        <= reg_FLAGS_"+toString(i+1)+";");
181//      vhdl->set_body (4, "reg_EXCEPTION_"+toString(i)+"    <= reg_EXCEPTION_"+toString(i+1)+";");
182//      vhdl->set_body (4, "reg_NO_SEQUENCE_"+toString(i)+"  <= reg_NO_SEQUENCE_"+toString(i+1)+";");
183//      vhdl->set_body (4, "reg_ADDRESS_"+toString(i)+"      <= reg_ADDRESS_"+toString(i+1)+";");
184//      vhdl->set_body (4, "reg_DATA_"+toString(i)+"         <= reg_DATA_"+toString(i+1)+";");
185       
186//      vhdl->set_body (3,"end if;");
187
188//      vhdl->set_body (2,"end if;");
189//       }
190
191//     vhdl->set_body (2,"if sig_WEN_"+toString(_param->_size_queue-1)+" = '1' then");
192//     if (_param->_have_port_context_id)
193//       vhdl->set_body (3,"reg_CONTEXT_ID_"+toString(_param->_size_queue-1)+"    <= in_EXECUTE_QUEUE_IN_CONTEXT_ID;");
194//     if (_param->_have_port_front_end_id)
195//       vhdl->set_body (3,"reg_FRONT_END_ID_"+toString(_param->_size_queue-1)+"  <= in_EXECUTE_QUEUE_IN_FRONT_END_ID;");
196//     if (_param->_have_port_ooo_engine_id)
197//       vhdl->set_body (3,"reg_OOO_ENGINE_ID_"+toString(_param->_size_queue-1)+" <= in_EXECUTE_QUEUE_IN_OOO_ENGINE_ID;");
198//     if (_param->_have_port_rob_ptr)
199//       vhdl->set_body (3,"reg_PACKET_ID_"+toString(_param->_size_queue-1)+"     <= in_EXECUTE_QUEUE_IN_PACKET_ID;");
200//     vhdl->set_body (3, "reg_FLAGS_"+toString(_param->_size_queue-1)+"        <= in_EXECUTE_QUEUE_IN_FLAGS;");
201//     vhdl->set_body (3, "reg_EXCEPTION_"+toString(_param->_size_queue-1)+"    <= in_EXECUTE_QUEUE_IN_EXCEPTION;");
202//     vhdl->set_body (3, "reg_NO_SEQUENCE_"+toString(_param->_size_queue-1)+"  <= in_EXECUTE_QUEUE_IN_NO_SEQUENCE;");
203//     vhdl->set_body (3, "reg_ADDRESS_"+toString(_param->_size_queue-1)+"      <= in_EXECUTE_QUEUE_IN_ADDRESS;");
204//     vhdl->set_body (3, "reg_DATA_"+toString(_param->_size_queue-1)+"         <= in_EXECUTE_QUEUE_IN_DATA;");
205//     vhdl->set_body (2,"end if;");
206
207
208//     vhdl->set_body (1,"end if;");
209//     vhdl->set_body (0,"end process;");
210
211
212//     vhdl->set_body (0,"");
213//     vhdl->set_body (0,"");
214//     vhdl->set_body (0,"");
215
216//     vhdl->set_body (0,"out_EXECUTE_QUEUE_OUT_VAL <= sig_OUT_VAL;");
217//     vhdl->set_body (0,"out_EXECUTE_QUEUE_IN_ACK <= sig_IN_ACK;");
218//     if (_param->_have_port_context_id)
219//     vhdl->set_body (0,"out_EXECUTE_QUEUE_OUT_CONTEXT_ID <= reg_CONTEXT_ID_0;");
220//     if (_param->_have_port_front_end_id)
221//     vhdl->set_body (0,"out_EXECUTE_QUEUE_OUT_FRONT_END_ID <= reg_FRONT_END_ID_0;");
222//     if (_param->_have_port_ooo_engine_id)
223//     vhdl->set_body (0,"out_EXECUTE_QUEUE_OUT_OOO_ENGINE_ID <= reg_OOO_ENGINE_ID_0;");
224//     if (_param->_have_port_rob_ptr)
225//     vhdl->set_body (0,"out_EXECUTE_QUEUE_OUT_PACKET_ID <= reg_PACKET_ID_0;");
226//     vhdl->set_body (0, "out_EXECUTE_QUEUE_OUT_FLAGS <= reg_FLAGS_0;");
227//     vhdl->set_body (0, "out_EXECUTE_QUEUE_OUT_EXCEPTION <= reg_EXCEPTION_0;");
228//     vhdl->set_body (0, "out_EXECUTE_QUEUE_OUT_NO_SEQUENCE <= reg_NO_SEQUENCE_0;");
229//     vhdl->set_body (0, "out_EXECUTE_QUEUE_OUT_ADDRESS <= reg_ADDRESS_0;");
230//     vhdl->set_body (0, "out_EXECUTE_QUEUE_OUT_DATA <= reg_DATA_0;");
231
232
233//     vhdl->set_body (0,"");
234
235//     vhdl->set_body (0,"process (reg_CURRENT_STATE, in_EXECUTE_QUEUE_OUT_ACK, in_EXECUTE_QUEUE_IN_VAL, in_NRESET)");
236//     vhdl->set_body (0,"begin");
237//     vhdl->set_body (1,"if in_NRESET = '0' then");
238//     vhdl->set_body (2,"sig_NEXT_STATE <= STATE_0;");
239//     vhdl->set_body (1,"else");
240//     vhdl->set_body (2,"case reg_CURRENT_STATE is");
241//     for (uint32_t i = 0; i <_param->_size_queue + 1; i++)
242//       {
243//      vhdl->set_body (3,"when STATE_"+toString(i)+" =>");
244//      if (i == 0)
245//        {
246//          vhdl->set_body (4,"if in_EXECUTE_QUEUE_IN_VAL = '1' then");
247//          vhdl->set_body (5,"sig_NEXT_STATE <= reg_CURRENT_STATE ("+toString(_param->_size_queue-1)+" downto 0) & '0';");
248//          vhdl->set_body (4,"else");
249//          vhdl->set_body (5,"sig_NEXT_STATE <= reg_CURRENT_STATE;");
250//          vhdl->set_body (4,"end if;");
251//          continue;
252//        }
253//      if (i == (_param->_size_queue))
254//        {
255//          vhdl->set_body (4,"if in_EXECUTE_QUEUE_OUT_ACK = '1' then");
256//          vhdl->set_body (5,"sig_NEXT_STATE <= '0' & reg_CURRENT_STATE ("+toString(_param->_size_queue)+" downto 1);");
257//          vhdl->set_body (4,"else");
258//          vhdl->set_body (5,"sig_NEXT_STATE <= reg_CURRENT_STATE;");
259//          vhdl->set_body (4,"end if;");
260//          continue;
261//        }
262//      vhdl->set_body (4,"if in_EXECUTE_QUEUE_IN_VAL = '1' and in_EXECUTE_QUEUE_OUT_ACK = '0' then");
263//      vhdl->set_body (5,"sig_NEXT_STATE <= reg_CURRENT_STATE ("+toString(_param->_size_queue-1)+" downto 0) & '0';");
264//      vhdl->set_body (4,"elsif in_EXECUTE_QUEUE_IN_VAL = '0' and in_EXECUTE_QUEUE_OUT_ACK = '1' then");
265//      vhdl->set_body (5,"sig_NEXT_STATE <= '0' & reg_CURRENT_STATE ("+toString(_param->_size_queue)+" downto 1);");
266//      vhdl->set_body (4,"else");
267//      vhdl->set_body (5,"sig_NEXT_STATE <= reg_CURRENT_STATE;");
268//      vhdl->set_body (4,"end if;");
269//       }
270//     vhdl->set_body (3,"when others => assert false report \"wrong state\" severity failure;");
271//     vhdl->set_body (2,"end case;");
272//     vhdl->set_body (1,"end if;");
273
274//     vhdl->set_body (2,"case reg_CURRENT_STATE is");
275//     for (uint32_t i = 0; i <_param->_size_queue + 1; i++)
276//       {
277//      vhdl->set_body (3,"when STATE_"+toString(i)+" =>");
278//      if (i == 0)
279//        {
280//          vhdl->set_body (4,"sig_OUT_VAL <= '0';");
281//          vhdl->set_body (4,"sig_IN_ACK <= '1';");
282//          for (uint32_t j = 0; j <_param->_size_queue; j++)
283//            {
284//              if (i == j)
285//                {
286//                  vhdl->set_body (4,"sig_SEL_"+toString(j)+" <= '0';");
287//                  vhdl->set_body (4,"sig_WEN_"+toString(j)+" <= in_EXECUTE_QUEUE_IN_VAL;");
288//                }
289//              else
290//                {
291//                  if (j < (_param->_size_queue - 1))
292//                    vhdl->set_body (4,"sig_SEL_"+toString(j)+" <= '0';");
293//                  vhdl->set_body (4,"sig_WEN_"+toString(j)+" <= '0';");
294//                }
295//            }
296//          continue;
297//        }
298//      if (i == (_param->_size_queue))
299//        {
300//          vhdl->set_body (4,"sig_OUT_VAL <= '1';");
301//          vhdl->set_body (4,"sig_IN_ACK <= '0';");
302//          for (uint32_t j = 0; j <_param->_size_queue; j++)
303//            {
304//              if (j == (i - 1))
305//                {
306//                  vhdl->set_body (4,"sig_WEN_"+toString(j)+" <= '0';");
307//                }
308//              else
309//                {
310//                  vhdl->set_body (4,"sig_SEL_"+toString(j)+" <= in_EXECUTE_QUEUE_OUT_ACK;");
311//                  vhdl->set_body (4,"sig_WEN_"+toString(j)+" <= in_EXECUTE_QUEUE_OUT_ACK;");
312//                }
313//            }
314//          continue;
315//        }
316//      vhdl->set_body (4,"sig_OUT_VAL <= '1';");
317//      vhdl->set_body (4,"sig_IN_ACK <= '1';");
318//      for (uint32_t j = 0; j <_param->_size_queue; j++)
319//        {
320//          if (j < (i - 1))
321//            {
322//              vhdl->set_body (4,"sig_SEL_"+toString(j)+" <= in_EXECUTE_QUEUE_OUT_ACK;");
323//              vhdl->set_body (4,"sig_WEN_"+toString(j)+" <= in_EXECUTE_QUEUE_OUT_ACK;");
324//            }
325//          if (j == (i - 1))
326//            {
327//              vhdl->set_body (4,"sig_SEL_"+toString(j)+" <= '0';");
328//              vhdl->set_body (4,"sig_WEN_"+toString(j)+" <= in_EXECUTE_QUEUE_OUT_ACK and in_EXECUTE_QUEUE_IN_VAL;");
329//            }
330//          if (j == i)
331//            {
332//              if (j < (_param->_size_queue - 1))
333//                vhdl->set_body (4,"sig_SEL_"+toString(j)+" <= '0';");
334//              vhdl->set_body (4,"sig_WEN_"+toString(j)+" <= in_EXECUTE_QUEUE_IN_VAL and not in_EXECUTE_QUEUE_OUT_ACK;");
335//            }
336//          if (j > i)
337//            {
338//              if (j < (_param->_size_queue - 1))
339//                vhdl->set_body (4,"sig_SEL_"+toString(j)+" <= '0';");
340//              vhdl->set_body (4,"sig_WEN_"+toString(j)+" <= '0';");
341//            }
342//        }
343//       }
344//     vhdl->set_body (3,"when others =>");
345//     vhdl->set_body (2,"end case;");
346//     vhdl->set_body (0,"end process;");
347
348    log_printf(FUNC,Execute_queue,FUNCTION,"End");
349  };
350
351}; // end namespace execute_queue
352}; // end namespace write_unit
353}; // end namespace multi_write_unit
354}; // end namespace execute_loop
355}; // end namespace multi_execute_loop
356}; // end namespace core
357
358}; // end namespace behavioural
359}; // end namespace morpheo             
360#endif
Note: See TracBrowser for help on using the repository browser.