OpenCores
URL https://opencores.org/ocsvn/an-fpga-implementation-of-low-latency-noc-based-mpsoc/an-fpga-implementation-of-low-latency-noc-based-mpsoc/trunk

Subversion Repositories an-fpga-implementation-of-low-latency-noc-based-mpsoc

[/] [an-fpga-implementation-of-low-latency-noc-based-mpsoc/] [trunk/] [mpsoc/] [perl_gui/] [lib/] [perl/] [topology.pl] - Blame information for rev 54

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 43 alirezamon 
#!/usr/bin/perl -w
2 
 
3 48 alirezamon 
#this file contains NoC topology related sub-functions
4 43 alirezamon 
 
5 48 alirezamon 
use constant::boolean;
6 43 alirezamon 
use strict;
7 
use warnings;
8 
 
9 
use FindBin;
10 
use lib $FindBin::Bin;
11 
 
12 
sub get_topology_info {
13 
        my ($self) =@_;
14 
        my $topology=$self->object_get_attribute('noc_param','TOPOLOGY');
15 
        my $T1=$self->object_get_attribute('noc_param','T1');
16 
        my $T2=$self->object_get_attribute('noc_param','T2');
17 
        my $T3=$self->object_get_attribute('noc_param','T3');
18 
        my $V = $self->object_get_attribute('noc_param','V');
19 
        my $Fpay = $self->object_get_attribute('noc_param','Fpay');
20 
 
21 
        return get_topology_info_sub($topology, $T1, $T2, $T3,$V, $Fpay);
22 
}
23 
 
24 
 
25 54 alirezamon 
sub get_topology_info_from_parameters {
26 
        my ($ref) =@_;
27 
        my %noc_info;
28 
        my %param= %$ref if(defined $ref );
29 
        my $topology=$param{'TOPOLOGY'};
30 
        my $T1  =$param{'T1'};
31 
        my $T2  =$param{'T2'};
32 
        my $T3  =$param{'T3'};
33 
        my $V   =$param{'V'};
34 
        my $Fpay=$param{'Fpay'};
35 
        return get_topology_info_sub($topology, $T1, $T2, $T3,$V, $Fpay);
36 
}
37 43 alirezamon 
 
38 54 alirezamon 
 
39 
 
40 43 alirezamon 
sub get_topology_info_sub {
41 
 
42 
        my ($topology, $T1, $T2, $T3,$V, $Fpay)=@_;
43 
 
44 
        my $NE; # number of end points
45 
        my $NR; # number of routers
46 
        my $RAw; # routers address width
47 
        my $EAw; # Endpoints address width
48 
 
49 
 
50 
        my $Fw = 2+$V+$Fpay;
51 
        if($topology eq '"TREE"') {
52 
                my $K =  $T1;
53 
        my $L =  $T2;
54 
        $NE = powi( $K,$L );
55 
        $NR = sum_powi ( $K,$L );
56 
        my $Kw=log2($K);
57 
        my $LKw=$L*$Kw;
58 
        my $Lw=log2($L);
59 
        $RAw=$LKw + $Lw;
60 48 alirezamon 
        $EAw = $LKw;
61 43 alirezamon 
 
62 
        }elsif($topology eq '"FATTREE"') {
63 
                my $K =  $T1;
64 
        my $L =  $T2;
65 
                $NE = powi( $K,$L );
66 48 alirezamon 
        $NR = $L * powi( $K , $L - 1 );
67 43 alirezamon 
        my $Kw=log2($K);
68 
        my $LKw=$L*$Kw;
69 
        my $Lw=log2($L);
70 
        $RAw=$LKw + $Lw;
71 48 alirezamon 
        $EAw = $LKw;
72 43 alirezamon 
 
73 
        }elsif ($topology eq '"RING"' || $topology eq '"LINE"'){
74 
                my $NX=$T1;
75 
                my $NY=1;
76 
                my $NL=$T3;
77 
                $NE = $NX*$NY*$NL;
78 
        $NR = $NX*$NY;
79 
        my $Xw=log2($NX);
80 
        my $Yw=log2($NY);
81 
        my $Lw=log2($NL);
82 
        $RAw = $Xw;
83 
        $EAw = ($NL==1) ? $RAw : $RAw + $Lw;
84 
 
85 48 alirezamon 
        }elsif ($topology eq '"MESH"' || $topology eq '"TORUS"' ) {
86 43 alirezamon 
                my $NX=$T1;
87 
                my $NY=$T2;
88 
                my $NL=$T3;
89 
                $NE = $NX*$NY*$NL;
90 
                $NR = $NX*$NY;
91 
        my $Xw=log2($NX);
92 
        my $Yw=log2($NY);
93 
        my $Lw=log2($NL);
94 
        $RAw = $Xw + $Yw;
95 
        $EAw = ($NL==1) ? $RAw : $RAw + $Lw;
96 48 alirezamon 
        }elsif ($topology eq '"FMESH"'){
97 
                my $NX=$T1;
98 
                my $NY=$T2;
99 
                my $NL=$T3;
100 
                $NE = $NX*$NY*$NL + 2*($NX + $NY);
101 
                $NR = $NX*$NY;
102 
        my $Xw=log2($NX);
103 
        my $Yw=log2($NY);
104 
        my $Lw=log2($NL);
105 
        $RAw = $Xw + $Yw;
106 
        $EAw = $RAw + log2(4+$NL);
107 43 alirezamon 
 
108 48 alirezamon 
        }elsif ($topology eq '"STAR"' ) {
109 
                $NE= $T1;
110 
                $NR= 1;
111 
                $RAw=log2($NR);
112 
                $EAw=log2($NE);
113 
 
114 
        }else{ #custom
115 
                $NE= $T1;
116 
                $NR= $T2;
117 
                $RAw=log2($NR);
118 
                $EAw=log2($NE);
119 
        }
120 43 alirezamon 
        return ($NE, $NR, $RAw, $EAw, $Fw);
121 
}
122 
 
123 
 
124 
sub fattree_addrencode {
125 
        my ( $pos, $k, $l)=@_;
126 
        my  $pow; my $ tmp;
127 
        my $addrencode=0;
128 
        my $kw=log2($k);
129 
        $pow=1;
130 
        for (my $i = 0; $i <$l; $i=$i+1 ) {
131 
                $tmp=int($pos/$pow);
132 
                $tmp=$tmp % $k;
133 
                $tmp=$tmp<<($i)*$kw;
134 
                $addrencode=$addrencode | $tmp;
135 
                $pow=$pow * $k;
136 
        }
137 
         return $addrencode;
138 
}
139 
 
140 
sub fattree_addrdecode{
141 
        my ($addrencode, $k, $l)=@_;
142 
        my $kw=0;
143 
        my $mask=0;
144 
        my $pow; my $tmp;
145 
        my $pos=0;
146 
        while((0x1<<$kw) < $k){
147 
                $kw++;
148 
                $mask<<=1;
149 
                $mask|=0x1;
150 
        }
151 
        $pow=1;
152 
        for (my $i = 0; $i <$l; $i=$i+1 ) {
153 
                $tmp = $addrencode & $mask;
154 
                #printf("tmp1=%u\n",tmp);
155 
                $tmp=($tmp*$pow);
156 
                $pos= $pos + $tmp;
157 
                $pow=$pow * $k;
158 
                $addrencode>>=$kw;
159 
        }
160 
        return $pos;
161 
}
162 
 
163 48 alirezamon 
 
164 
 
165 
 
166 
 
167 
 
168 
 
169 
 
170 
 
171 43 alirezamon 
sub get_connected_router_id_to_endp{
172 
        my ($self,$endp_id)=@_;
173 
        my $topology=$self->object_get_attribute('noc_param','TOPOLOGY');
174 
        my $T1=$self->object_get_attribute('noc_param','T1');
175 
        my $T2=$self->object_get_attribute('noc_param','T2');
176 
        my $T3=$self->object_get_attribute('noc_param','T3');
177 
        if($topology eq '"FATTREE"' || $topology eq '"TREE"') {
178 
                return int($endp_id/$T1);
179 48 alirezamon 
        }elsif ($topology eq '"RING"' || $topology eq '"LINE"'  ||  $topology eq '"MESH"' || $topology eq '"TORUS"'){
180 43 alirezamon 
                 return int($endp_id/$T3);
181 48 alirezamon 
        }elsif ($topology eq '"STAR"' ) {
182 
                 return 0;#there is only one routerin star topology
183 
        }elsif ($topology eq '"FMESH"'){
184 
                my $tmp = $T1*$T2*$T3;
185 
                return int($endp_id/$T3) if($endp_id<$tmp);
186 
                return $endp_id-$tmp if($endp_id<$tmp+$T1);
187 
                return ($endp_id-$tmp-$T1)+ $T1*($T2-1) if($endp_id<$tmp+2*$T1);
188 
                return ($endp_id-$tmp-2*$T1)*$T1 if($endp_id<$tmp+2*$T1+$T2);
189 
                return ($endp_id-$tmp-2*$T1-$T2+1)*$T1-1;
190 
 
191 
        }else{#custom
192 
                my @er_addr = $self->object_get_attribute('noc_connection','er_addr');
193 
                return $er_addr[$endp_id];
194 43 alirezamon 
        }
195 
}
196 
 
197 
 
198 48 alirezamon 
sub fmesh_addrencode{
199 
        my($id,$T1,$T2,$T3)=@_;
200 
        my  ($y, $x, $l,$p, $diff,$mul);
201 
        $mul  = $T1*$T2*$T3;
202 
 
203 
        my  $LOCAL   =   0;
204 
        my      $EAST    =   1;
205 
        my      $NORTH   =   2;
206 
        my      $WEST    =   3;
207 
        my      $SOUTH   =   4;
208 
 
209 
        if($id < $mul) {
210 
                $y = (($id/$T3) / $T1 );
211 
                $x = (($id/$T3) % $T1 );
212 
                $l = ( $id %$T3);
213 
                $p = ($l==0)? $LOCAL : 4+$l;
214 
        }else{
215 
                $diff = $id -  $mul ;
216 
                if( $diff <  $T1){ #top mesh edge
217 
                        $y = 0;
218 
                        $x = $diff;
219 
                        $p = $NORTH;
220 
                }
221 
                elsif ( $diff < 2* $T1) { #bottom mesh edge
222 
                        $y = $T2-1;
223 
                        $x = $diff-$T1;
224 
                        $p = $SOUTH;
225 
                }
226 
                elsif ( $diff < (2* $T1)+$T2 ) { #left mesh edge
227 
                        $y = $diff - (2* $T1);
228 
                        $x = 0;
229 
                        $p = $WEST;
230 
                }
231 
                else {  #right mesh edge
232 
                        $y = $diff - (2* $T1) -$T2;
233 
                        $x = $T1-1;
234 
                        $p = $EAST;
235 
                }
236 
        }
237 
        my $NXw=log2($T1);
238 
        my $NYw=log2($T2);
239 
    my $addrencode=0;
240 
    $addrencode = ($p<<($NXw+$NYw)|  ($y << $NXw) | $x);
241 
    return $addrencode;
242 
}
243 
 
244 
sub fmesh_endp_addr_decoder {
245 
        my ($code, $T1, $T2, $T3)=@_;
246 
        my ($x, $y, $p) =mesh_tori_addr_sep ($code, $T1, $T2, $T3);
247 
        my  $LOCAL   =   0;
248 
        my      $EAST    =   1;
249 
        my      $NORTH   =   2;
250 
        my      $WEST    =   3;
251 
        my      $SOUTH   =   4;
252 
        return (($y*$T1)+$x)*$T3 if($p== $LOCAL);
253 
        return (($y*$T1)+$x)*$T3+($p-$SOUTH) if($p > $SOUTH);
254 
        return (($T1*$T2*$T3) + $x) if($p== $NORTH);
255 
        return (($T1*$T2*$T3) + $T1 + $x) if($p== $SOUTH);
256 
        return (($T1*$T2*$T3) + 2*$T1 + $y) if($p== $WEST );
257 
        return (($T1*$T2*$T3) + 2*$T1 + $T2 + $y) if($p== $EAST );
258 
        return 0; #should not reach here
259 
}
260 
 
261 
 
262 
 
263 
 
264 
 
265 43 alirezamon 
sub get_router_num {
266 
        my ($self,$x, $y)=@_;
267 
        my $topology=$self->object_get_attribute('noc_param','TOPOLOGY');
268 
        my $T1=$self->object_get_attribute('noc_param','T1');
269 
        my $T2=$self->object_get_attribute('noc_param','T2');
270 
        if($topology eq '"FATTREE"') {
271 
                return fattree_addrdecode($x, $T1, $T2);
272 48 alirezamon 
        }elsif ($topology eq '"RING"' || $topology eq '"LINE"' ||  $topology eq '"FMESH"'  ||  $topology eq '"MESH"' || $topology eq '"TORUS"'){
273 43 alirezamon 
                 return ($y*$T1)+$x;
274 48 alirezamon 
        }else{#custom
275 
                #It is not used for custom & STAR topology
276 43 alirezamon 
        }
277 
}
278 
 
279 
sub router_addr_encoder{
280 
        my ($self, $id)=@_;
281 
        my $topology=$self->object_get_attribute('noc_param','TOPOLOGY');
282 
        my $T1=$self->object_get_attribute('noc_param','T1');
283 
        my $T2=$self->object_get_attribute('noc_param','T2');
284 
        my $T3=$self->object_get_attribute('noc_param','T3');
285 
        if($topology eq '"FATTREE"' || $topology eq '"TREE"') {
286 
                return fattree_addrencode($id, $T1, $T2);
287 48 alirezamon 
        }elsif ($topology eq '"RING"' || $topology eq '"LINE"'  ||  $topology eq '"MESH"' || $topology eq '"FESH"' || $topology eq '"TORUS"'){
288 43 alirezamon 
                return mesh_tori_addrencode($id,$T1, $T2,1);
289 48 alirezamon 
        }else { #custom & STAR
290 
                return $id;
291 43 alirezamon 
        }
292 
}
293 
 
294 
sub endp_addr_encoder{
295 
        my ($self, $id)=@_;
296 
        my $topology=$self->object_get_attribute('noc_param','TOPOLOGY');
297 
        my $T1=$self->object_get_attribute('noc_param','T1');
298 
        my $T2=$self->object_get_attribute('noc_param','T2');
299 
        my $T3=$self->object_get_attribute('noc_param','T3');
300 
        if($topology eq '"FATTREE"' || $topology eq '"TREE"') {
301 
                return fattree_addrencode($id, $T1, $T2);
302 48 alirezamon 
        }elsif ($topology eq '"RING"' || $topology eq '"LINE"'  ||  $topology eq '"MESH"' || $topology eq '"TORUS"'){
303 
                return mesh_tori_addrencode($id,$T1, $T2,$T3);
304 
        }elsif ($topology eq '"FMESH"' ){
305 
                return  fmesh_addrencode($id,$T1, $T2,$T3);
306 
        }else{#CUSTOM & STAR
307 
                return $id;
308 43 alirezamon 
        }
309 
}
310 
 
311 
sub endp_addr_decoder {
312 
        my ($self,$code)=@_;
313 
        my $topology=$self->object_get_attribute('noc_param','TOPOLOGY');
314 
        my $T1=$self->object_get_attribute('noc_param','T1');
315 
        my $T2=$self->object_get_attribute('noc_param','T2');
316 
        my $T3=$self->object_get_attribute('noc_param','T3');
317 
        if($topology eq '"FATTREE"' || $topology eq '"TREE"') {
318 
                return fattree_addrdecode($code, $T1, $T2);
319 
        }
320 48 alirezamon 
        elsif ($topology eq '"RING"' || $topology eq '"LINE"'  ||  $topology eq '"MESH"' || $topology eq '"TORUS"'){
321 43 alirezamon 
                my ($x, $y, $l) = mesh_tori_addr_sep($code,$T1, $T2,$T3);
322 44 alirezamon 
                #print "my ($x, $y, $l) = mesh_tori_addr_sep($code,$T1, $T2,$T3);\n";
323 43 alirezamon 
                return (($y*$T1)+$x)*$T3+$l;
324 48 alirezamon 
        }elsif ($topology eq '"FMESH"' ){
325 
                return fmesh_endp_addr_decoder($code,$T1, $T2,$T3);
326 
        }else{#custom & STAR
327 
                return $code;
328 43 alirezamon 
        }
329 
}
330 
 
331 
sub mask_gen{
332 
        my $k=shift;
333 
        my $kw=0;
334 
        my $mask=0;
335 
        while((0x1<<$kw) < $k){
336 
                $kw++;
337 
                $mask<<=1;
338 
                $mask|=0x1;
339 
        }
340 
        return $mask;
341 
}
342 
 
343 
 
344 
sub mesh_tori_addr_sep {
345 
        my ($code,$NX, $NY,$NL)=@_;
346 
        my ($x, $y, $l);
347 
        my $NXw=log2($NX);
348 
        my $NYw=log2($NY);
349 
        $x = $code &  mask_gen($NX);
350 
        $code>>=$NXw;
351 
        $y = $code &   mask_gen($NY);
352 
        $code>>=$NYw;
353 
        $l = $code;
354 44 alirezamon 
        return ($x, $y, $l);
355 43 alirezamon 
}
356 
 
357 
sub mesh_tori_addrencode{
358 
        my ($id,$T1, $T2,$T3)=@_;
359 
        my ($x,$y,$l)=mesh_tori_addrencod_sep($id,$T1,$T2,$T3);
360 
    return mesh_tori_addr_join($x,$y,$l,$T1, $T2,$T3);
361 
}
362 
 
363 
sub  mesh_tori_addrencod_sep{
364 
        my ($id,$T1,$T2,$T3)=@_;
365 
        my ($x,$y,$l);
366 
        $l=$id % $T3; # id%NL
367 
        my $R= int($id / $T3);
368 
        $x= $R % $T1;# (id/NL)%NX
369 
        $y=int($R / $T1);# (id/NL)/NX
370 
        return ($x,$y,$l);
371 
}
372 
 
373 
sub mesh_tori_addr_join {
374 
        my ($x, $y, $l,$T1, $T2,$T3)=@_;
375 
        my $NXw=log2($T1);
376 
        my $NYw=log2($T2);
377 
    my $addrencode=0;
378 
    $addrencode =($T3==1)?   ($y << $NXw | $x) : ($l<<($NXw+$NYw)|  ($y << $NXw) | $x);
379 
    return $addrencode;
380 
}
381 
 
382 
 
383 54 alirezamon 
sub mcast_partial_width {
384 
        my ($p,$NE)=@_;
385 
        my $m=0;
386 
        $p=remove_not_hex($p);
387 
        my @arr=split (//, $p);
388 
        foreach my $i (@arr) {
389 
                my $n=hex($i);
390 
                $m++ if($n & 0x1);
391 
                $m++ if($n & 0x2);
392 
                $m++ if($n & 0x4);
393 
                $m++ if($n & 0x8);
394 
        }
395 
       return $m;
396 
}
397 43 alirezamon 
 
398 
 
399 
 
400 
sub get_noc_verilator_top_modules_info {
401 
        my ($self) =@_;
402 
 
403 
        my $topology=$self->object_get_attribute('noc_param','TOPOLOGY');
404 
        my $T1=$self->object_get_attribute('noc_param','T1');
405 
        my $T2=$self->object_get_attribute('noc_param','T2');
406 
        my $T3=$self->object_get_attribute('noc_param','T3');
407 54 alirezamon 
        my $cast = $self->object_get_attribute('noc_param','MCAST_ENDP_LIST');
408 
        my $CAST_TYPE= $self->object_get_attribute('noc_param','CAST_TYPE');
409 
        my $DAw_OFFSETw  =  ($topology eq '"MESH"' || $topology eq '"TORUS"' || $topology eq '"FMESH"')?  $T1 : 0;
410 43 alirezamon 
 
411 54 alirezamon 
 
412 43 alirezamon 
        my %tops;
413 
        my %nr_p; # number of routers have $p port num
414 
        my $router_p; #number of routers with different port number in topology
415 
 
416 48 alirezamon 
        my ($ne, $nr, $RAw, $EAw)=get_topology_info($self);
417 
 
418 54 alirezamon 
        my $MCAST_PRTLw= mcast_partial_width($cast,$ne);
419 
        my $MCASTw =
420 
            ($CAST_TYPE eq '"MULTICAST_FULL"') ? $ne :
421 
            ($CAST_TYPE eq '"MULTICAST_PARTIAL"' && $EAw >= $MCAST_PRTLw) ? $EAw +1 :
422 
            ($CAST_TYPE eq '"MULTICAST_PARTIAL"' && $EAw <  $MCAST_PRTLw) ? $MCAST_PRTLw +1 :
423 
            $EAw +1; #broadcast
424 
 
425 
        my $DAw = ($CAST_TYPE eq '"UNICAST"') ?   $EAw: $MCASTw +  $DAw_OFFSETw;
426 
 
427 
        print "$DAw=$DAw\n";
428 
 
429 48 alirezamon 
        my $custom_include="";
430 43 alirezamon 
        if($topology eq '"FATTREE"') {
431 
                my $K =  $T1;
432 
        my $L =  $T2;
433 
        my $p2 = 2*$K;
434 
        $router_p=2;
435 
        my $NRL= $ne/$K; #number of router in  each layer
436 
        $nr_p{1}=$NRL;
437 
        $nr_p{2}=$nr-$NRL;
438 
        $nr_p{p1}=$K;
439 
        $nr_p{p2}=2*$K;
440 
 
441 
        %tops = (
442 48 alirezamon 
                        #"Vrouter1" => "router_top_v_p${K}.v",
443 
                        #"Vrouter2" => "router_top_v_p${p2}.v",
444 
                        "Vrouter1" => "--top-module  router_top_v  -GP=${K}  ",
445 
                        "Vrouter2" => "--top-module  router_top_v  -GP=${p2} ",
446 
               # "Vnoc" => " --top-module noc_connection ",
447 43 alirezamon 
 
448 
        );
449 
        }elsif ($topology eq '"TREE"'){
450 
        my $K =  $T1;
451 
        my $L =  $T2;
452 
        my $p2 = $K+1;
453 
        $router_p=2;# number of router with different port number
454 
        $nr_p{1}=1;
455 
        $nr_p{2}=$nr-1;
456 
        $nr_p{p1}=$K;
457 
        $nr_p{p2}=$K+1;
458 
 
459 
        %tops = (
460 48 alirezamon 
                        #"Vrouter1" => "router_top_v_p${K}.v",
461 
                        #"Vrouter2" => "router_top_v_p${p2}.v",
462 
                        "Vrouter1" => "--top-module  router_top_v  -GP=${K}  ",
463 
                        "Vrouter2" => "--top-module  router_top_v  -GP=${p2} ",
464 
               # "Vnoc" => " --top-module noc_connection ",
465 43 alirezamon 
        );
466 
 
467 
        }elsif ($topology eq '"RING"' || $topology eq '"LINE"'){
468 
 
469 
                $router_p=1;
470 
                $nr_p{1}=$nr;
471 
                my $ports= 3+$T3-1;
472 
                $nr_p{p1}=$ports;
473 
                %tops = (
474 48 alirezamon 
                        #"Vrouter1" => "router_top_v_p${ports}.v",
475 
               "Vrouter1" => "--top-module  router_top_v  -GP=${ports}  ",
476 
                  # "Vnoc" => " --top-module noc_connection ",
477 43 alirezamon 
 
478 
        );
479 
 
480 
 
481 48 alirezamon 
        }elsif ($topology eq '"MESH"' || $topology eq '"TORUS"' || $topology eq '"FMESH"') {
482 43 alirezamon 
 
483 
        $router_p=1;
484 
        $nr_p{1}=$nr;
485 
        my $ports= 5+$T3-1;
486 
                $nr_p{p1}=$ports;
487 
        %tops = (
488 48 alirezamon 
                #"Vrouter1" => "router_top_v_p${ports}.v",
489 
                "Vrouter1" => "--top-module  router_top_v  -GP=${ports}  ",
490 
              #  "Vnoc" => " --top-module noc_connection",
491 43 alirezamon 
 
492 
        );
493 48 alirezamon 
    }elsif ($topology eq '"STAR"') {
494 
         $router_p=1;# number of router with different port number
495 
         my $ports= $T1;
496 54 alirezamon 
         $nr_p{p1}=$ports;
497 48 alirezamon 
         $nr_p{1}=1;
498 
          %tops = (
499 
                #"Vrouter1" => "router_top_v_p${ports}.v",
500 
                "Vrouter1" => "--top-module  router_top_v  -GP=${ports}  ",
501 
              #  "Vnoc" => " --top-module noc_connection",
502 
 
503 
        );
504 43 alirezamon 
 
505 48 alirezamon 
        }else {#custom
506 
 
507 
                my $dir =get_project_dir()."/mpsoc/rtl/src_topolgy";
508 
                my $file="$dir/param.obj";
509 
                my %param;
510 
                if(-f $file){
511 
                        my ($pp,$r,$err) = regen_object($file );
512 
                if ($r){
513 
                        print "**Error: cannot open $file file: $err\n";
514 
                    return;
515 
                 }
516 
 
517 
                        %param=%{$pp};
518 
                }else {
519 
                        print "**Error: cannot find $file \n";
520 
                        return;
521 
                }
522 
 
523 
            my $topology_name=$self->object_get_attribute('noc_param','CUSTOM_TOPOLOGY_NAME');
524 
                my $ref=$param{$topology_name}{'ROUTER_Ps'};
525 
                print $ref;
526 
                my %router_ps= %{$ref};
527 
                my $i=1;
528 
                #%tops = ("Vnoc" => " --top-module noc_connection");
529 
 
530 
                #should sort neumeric. The router with smaller port number should comes first
531 
 
532 
                foreach my $p (sort { $a <=> $b } keys  %router_ps){
533 
                        $nr_p{$i}=$router_ps{$p};
534 
            $nr_p{"p$i"}=$p;
535 
            #$tops{"Vrouter$i"}= "router_top_v_p${p}.v",
536 
            $tops{"Vrouter$i"}= "--top-module  router_top_v  -GP=${p}  ",
537 
                        $i++;
538 
 
539 
                }
540 
                $router_p=$i-1;
541 
                ${topology_name} =~ s/\"+//g;
542 54 alirezamon 
                $custom_include="#define IS_${topology_name}_noc\n";
543 48 alirezamon 
        }#else
544 43 alirezamon 
 
545 48 alirezamon 
 
546 
 
547 43 alirezamon 
        my $includ_h="\n";
548 
        for (my $p=1; $p<=$router_p ; $p++){
549 
                 $includ_h=$includ_h."#include \"Vrouter$p.h\" \n";
550 
        }
551 48 alirezamon 
        my $rns_num = $router_p+1;
552 
        $includ_h.="int router_NRs[$rns_num];\n";
553 54 alirezamon 
 
554 
        my $max_p=0;
555 43 alirezamon 
        for (my $p=1; $p<=$router_p ; $p++){
556 54 alirezamon 
                  my $pnum= $nr_p{"p$p"};
557 43 alirezamon 
                 $includ_h=$includ_h."#define NR${p} $nr_p{$p}\n";
558 54 alirezamon 
                 $includ_h=$includ_h."#define NR${p}_PNUM $pnum\n";
559 
 
560 48 alirezamon 
                 $includ_h=$includ_h."Vrouter${p}               *router${p}[ $nr_p{$p} ];   // Instantiation of router with $pnum  port number\n";
561 54 alirezamon 
                 $max_p = $pnum if($max_p < $pnum);
562 43 alirezamon 
        }
563 54 alirezamon 
        $includ_h.="#define MAX_P  $max_p //The maximum number of ports available in a router in this topology\n";
564 43 alirezamon 
 
565 54 alirezamon 
        $includ_h.="#define DAw $DAw //The traffic generator's destination address width\n";
566 48 alirezamon 
 
567 54 alirezamon 
 
568 48 alirezamon 
        my $st1='';
569 
        my $st2='';
570 
        my $st3='';
571 
        my $st4='';
572 
        my $st5='';
573 
        my $st6='';
574 54 alirezamon 
        my $st7='';
575 
        my $st8='';
576 
 
577 48 alirezamon 
        my $i=1;
578 
        my $j=0;
579 
        my $accum=0;
580 43 alirezamon 
        for (my $p=1; $p<=$router_p ; $p++){
581 
                $includ_h=$includ_h."
582 
 
583 
 
584 
 
585 
";
586 48 alirezamon 
#if             ROUTER_P_NUM >$j
587 
 
588 
#endif
589 
 
590 
$st2=$st2."
591 
    router_NRs[$p] =$nr_p{$p};
592 
        for(i=0;i<NR${i};i++)   router${i}[i]   = new Vrouter${i};
593 
";
594 
 
595 
$st3=$st3."
596 
        for(i=0;i<NR${i};i++){
597 
                router${i}[i]->reset= reset;
598 
                router${i}[i]->clk= clk ;
599 43 alirezamon 
        }
600 48 alirezamon 
";
601 
 
602 
$st4=$st4."
603 
        for(i=0;i<NR${i};i++) router${i}[i]->eval();
604 
";
605 
 
606 
 
607 
$st5=$st5."
608 
        for(i=0;i<NR${i};i++) router${i}[i]->final();
609 
";
610 
 
611 
 
612 
$st6=$st6."
613 
        if (i<NR${i}){ router${i}[i]->eval(); return;}
614 
        i-=     NR${i};
615 
";
616 54 alirezamon 
 
617 
 
618 
 
619 
 
620 
 
621 
$st7.="
622 
        if (i<NR${i}){
623 
                update_router_st(
624 
                        NR${i}_PNUM,
625 
                        router${i}[i]->current_r_id,
626 
                        router${i}[i]->router_event
627 
                );
628 
                return;
629 
        }
630 
        i-=     NR${i};
631 
";
632 
 
633 
$st8=$st8."
634 
        if (i<NR${i}){
635 
                router${i}[i]->reset= reset;
636 
                router${i}[i]->clk= clk ;
637 
                return;
638 
        }
639 
        i-=     NR${i};
640 
";
641 
 
642 
 
643 
 
644 48 alirezamon 
        $i++;
645 
        $j++;
646 
        $accum=$accum+$nr_p{$p};
647 
 
648 
}
649 
 
650 
 
651 43 alirezamon 
$includ_h=$includ_h."
652 
 
653 48 alirezamon 
 
654 43 alirezamon 
void Vrouter_new(){
655 
        int i=0;
656 48 alirezamon 
        $st2
657 43 alirezamon 
}
658 
 
659 48 alirezamon 
$custom_include
660 
 
661 43 alirezamon 
void inline connect_routers_reset_clk(){
662 
        int i;
663 48 alirezamon 
        $st3
664 43 alirezamon 
}
665 
 
666 
 
667 
void inline routers_eval(){
668 
        int i=0;
669 48 alirezamon 
        $st4
670 43 alirezamon 
}
671 
 
672 
void inline routers_final(){
673 
        int i;
674 48 alirezamon 
        $st5
675 
}
676 
 
677 
void inline single_router_eval(int i){
678 
        $st6
679 
}
680 
 
681 54 alirezamon 
#define SMART_NUM  ((SMART_MAX==0)? 1 : SMART_MAX)
682 
#if SMART_NUM > 8
683 
        typedef unsigned int EVENT;
684 
#else
685 
        typedef unsigned char EVENT;
686 
#endif
687 48 alirezamon 
 
688 54 alirezamon 
extern void update_router_st (
689 
  unsigned int,
690 
  unsigned int,
691 
  EVENT *
692 
);
693 
 
694 
void  single_router_st_update(int i){
695 
        $st7
696 
}
697 
 
698 
void  inline single_router_reset_clk(int i){
699 
        $st8
700 
}
701 
 
702 48 alirezamon 
 
703 43 alirezamon 
";
704 48 alirezamon 
 
705 
#$includ_h.=" void connect_all_nodes(){\n";
706 
 
707 
#my $dot_file=get_dot_file_text($self,'topology');
708 
#print "$dot_file\n";
709 
#my @lines =split ("\n",$dot_file);
710 
#foreach my $l (@lines) {
711 
#    if ( $l =~  m{#*\"\s*R(\d+)\"\s*:\s*\"[pP](\d+)\"\s*->\s*\"R(\d+)\"\s*:\s*\"[pP](\d+)\"} ) {
712 
#               my ($R1, $P1, $R2,$P2) = ($1, $2,$3,$4);
713 
#               $includ_h.=connect_sim_nodes ($self,$topology,$R1, $P1, $R2, $P2);
714 
#
715 
#
716 
#       }
717 
#       if ( $l =~  m{#*\"\s*R(\d+)\"\s*:\s*\"[pP](\d+)\"\s*->\s*\"[Tt](\d+)\"} ) {
718 
#               my ($R1, $P1, $T) = ($1, $2,$3);
719 
#               $includ_h.=connect_sim_nodes($self,$topology,$R1, $P1, $T);
720 
#
721 
#
722 
#       }
723 
#       if ( $l =~  m{#*\s*\"[Tt](\d+)\"\s*->\s*\"R(\d+)\"\s*:\s*\"[pP](\d+)\"} ) {
724 
#               my ($T, $R1, $P1) = ($1, $2,$3);
725 
#               $includ_h.=connect_sim_nodes($self,$topology,$R1, $P1, $T);
726 
#       }
727 
#}
728 
#$includ_h.="\n}\n";
729 
 
730 43 alirezamon 
         return ($nr,$ne,$router_p,\%tops,$includ_h);
731 
}
732 
 
733 48 alirezamon 
sub connect_sim_nodes{
734 
        my ($self,$topology,$R1, $P1, $R2, $P2)=@_;
735 
        if(defined $P2){ #R2R
736 
                if($topology eq '"FATTREE"' || $topology eq '"TREE"'){
737 
 
738 
                }else{
739 
                        return connect_r2r(1,$R1, $P1,1, $R2, $P2);
740 
 
741 
                }
742 
        }else {
743 
                my $T=$R2;
744 
                if($topology eq '"FATTREE"' || $topology eq '"TREE"'){
745 
 
746 
                }else{
747 
                        return connect_r2t(1,$R1, $P1, $T);
748 
 
749 
                }
750 
 
751 
        }
752 
 
753 
 
754 
}
755 43 alirezamon 
 
756 48 alirezamon 
sub connect_r2r{
757 
        my ($vrouter1_num,$r1,$p1,$vrouter2_num,$r2,$p2)=@_;
758 
return "
759 
        memcpy(&router${vrouter1_num}[$r1]->chan_in[$p1], router${vrouter2_num}[$r2]->chan_out[$p2] , sizeof( router${vrouter1_num}[$r1]->chan_in[$p1] ) );
760 
        memcpy(&router${vrouter2_num}[$r2]->chan_in[$p2], router${vrouter1_num}[$r1]->chan_out[$p1] , sizeof( router${vrouter1_num}[$r1]->chan_in[$p1] ) );
761 
        ";
762 
}
763 
 
764 
sub connect_r2t{
765 
my ($vrouter1_num,$r1, $p1, $T)=@_;
766 
return "
767 
        memcpy(&router${vrouter1_num}[$r1]->chan_in[$p1], traffic[$T]->chan_out , sizeof( traffic[$T]->chan_in ) );
768 
        memcpy(&traffic[$T]->chan_in, router${vrouter1_num}[$r1]->chan_out[$p1] , sizeof( traffic[$T]->chan_in ) );
769 
        ";
770 
}
771 
 
772 
 
773 43 alirezamon 
sub gen_tiles_physical_addrsses_header_file{
774 
        my ($self,$file)=@_;
775 
        my $topology=$self->object_get_attribute('noc_param','TOPOLOGY');
776 
        my $txt = "#ifndef PHY_ADDR_H
777 
        #define PHY_ADDR_H\n\n";
778 
 
779 
        #add phy addresses
780 48 alirezamon 
        my ($NE, $NR, $RAw, $EAw,$Fw)=get_topology_info($self);
781 43 alirezamon 
        for (my $id=0; $id<$NE; $id++){
782 
                my $phy= endp_addr_encoder($self,$id);
783 
                my $hex = sprintf("0x%x", $phy);
784 
                $txt=$txt."\t#define PHY_ADDR_ENDP_$id  $hex\n";
785 
 
786 
        }
787 
 
788 
 
789 
        $txt=$txt."#endif\n";
790 
        save_file($file,$txt);
791 
}
792 
 
793 
 
794 48 alirezamon 
sub get_endpoints_mah_distance {
795 
        my ($self,$endp1,$endp2)=@_;
796 
 
797 
        my $router1=get_connected_router_id_to_endp($self,$endp1);
798 
        my $router2=get_connected_router_id_to_endp($self,$endp2);
799 
 
800 
        my $topology=$self->object_get_attribute('noc_param','TOPOLOGY');
801 
        if($topology eq '"FATTREE"' || $topology eq '"TREE"') {
802 
                return fattree_mah_distance($self, $router1,$router2);
803 
        }elsif ($topology eq '"RING"' || $topology eq '"LINE"'  ||  $topology eq '"MESH"' || $topology eq '"TORUS"' || $topology eq '"FMESH"' ){
804 
                return mesh_tori_mah_distance($self, $router1,$router2);
805 
        }elsif ($topology eq '"STAR"'){
806 
                return 1;
807 
        }else { #custom
808 
                return undef;
809 
        }
810 
 
811 
}
812 43 alirezamon 
 
813 48 alirezamon 
sub mesh_tori_mah_distance {
814 
        my ($self, $router1,$router2)=@_;
815 
        my $T1=$self->object_get_attribute('noc_param','T1');
816 
        my $T2=$self->object_get_attribute('noc_param','T2');
817 
        my ($x1,$y1,$l1) = mesh_tori_addrencod_sep ($router1,$T1,$T2,1);
818 
        my ($x2,$y2,$l2) = mesh_tori_addrencod_sep ($router2,$T1,$T2,1);
819 
        my $x_diff = ($x1 > $x2) ? ($x1 - $x2) : ($x2 - $x1);
820 
        my $y_diff = ($y1 > $y2) ? ($y1 - $y2) : ($y2 - $y1);
821 
        my $mah_distance = $x_diff + $y_diff;
822 
        return $mah_distance;
823 
}
824 
 
825 
sub fattree_mah_distance {
826 
        my ($self, $router1,$router2)=@_;
827 
        my $k =$self->object_get_attribute('noc_param','T1');
828 
        my $l =$self->object_get_attribute('noc_param','T2');
829 
 
830 
        my  $pow;
831 
        my $tmp1;
832 
        my $tmp2;
833 
        my $distance=0;
834 
        $pow=1;
835 
        for (my $i = 0; $i <$l; $i=$i+1 ) {
836 
                $tmp1=int($router1/$pow);
837 
                $tmp2=int($router2/$pow);
838 
                $tmp1=$tmp1 % $k;
839 
                $tmp2=$tmp2 % $k;
840 
                $pow=$pow * $k;
841 
                $distance= ($i+1)*2-1 if($tmp1!=$tmp2); # distance obtained based on the highest level index which differ
842 
 
843 
        }
844 
         return $distance;
845 
}
846 
 
847 43 alirezamon 
1

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.