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

        my $top_io_short_all="\tjtag_debug_reset_in";

        my $top_io_full_all="\tinput \tjtag_debug_reset_in;\n";

                $top_io_short,$param_as_in_v,$param_pass_v,$system_v,$assigned_ports,$top_io_pass,$src_io_short, $src_io_full)=gen_module_inst($id,$soc,$top_ip,$intfc,$wires);

                add_text_to_string(\$param_pass_v_all,",\n$param_pass_v")       if(defined($param_pass_v));

                add_text_to_string(\$system_v_all,"$system_v\n")                                if(defined($system_v));

                $io_sim_v_all     = (defined $io_sim_v_all    )? "$io_sim_v_all,\n$io_sim_v"         : $io_sim_v                if(defined($io_sim_v));

                $top_io_short_all = (defined $top_io_short_all)? "$top_io_short_all,\n$top_io_short" : $top_io_short            if(defined($top_io_short));

        $unused_wiers_v="" if(!defined $unused_wiers_v);

        $sockets_assign_v_all=""  if(!defined $sockets_assign_v_all);

my $has_ni =check_for_ni($soc);

my $import = ($has_ni)? "\n\timport pronoc_pkg::*;\n" : "";

my $global_localparam=get_golal_param_v();

        my $soc_v = (defined $param_as_in_v_all )? "module $soc_name $import #(\n $param_as_in_v_all\n)(\n$io_sim_v_all\n);\n": "module $soc_name (\n$io_sim_v_all\n);\n";

        $soc_v = $soc_v."

$functions_all

$system_v_all

$global_localparam

$local_param_v_all

$addr_localparam

$module_addr_localparam

$io_full_v_all

$wire_def_v_all

$unused_wiers_v

$inst_v_all

$plugs_assign_v_all

$sockets_assign_v_all

$addr_map

endmodule

        my ($clk_set, $clk_io_sim,$clk_io_full, $clk_assigned_port)= get_top_clk_setting($soc);

        $top_io_short_all=(defined $top_io_short_all)? "$top_io_short_all,\n$clk_io_sim" : $clk_io_sim;

        $top_io_full_all=$top_io_full_all."\n$clk_io_full";

    $top_io_pass_all=$top_io_pass_all.",\n$clk_assigned_port";

    my %jtag_info= get_soc_jtag_v($soc,$soc_name,$txview);

        my $jtag_v=add_jtag_ctrl (\%jtag_info,$txview);

    my @chains = (sort { $b <=> $a } keys  %jtag_info);

        $soc->object_add_attribute('JTAG','M_CHAIN',$chains[0]);

        my $top_v = (defined $param_as_in_v_all )? "module ${soc_name}_top $import #(\n $param_as_in_v_all\n)(\n$top_io_short_all\n);\n": "module ${soc_name}_top (\n $top_io_short_all\n);\n";

        #my $ins= gen_soc_instance_v($soc,$soc_name,$param_pass_v,$txview);

        my $pass =  (defined $param_pass_v_all )? "#(\n$param_pass_v_all\n\t)\n": "";

        $top_v=$top_v."

$functions_all

$global_localparam

$local_param_v_all

$top_io_full_all

$clk_set

$jtag_v

\t${soc_name}${pass}\tthe_${soc_name}

\t(

$top_io_pass_all

\t);

endmodule

";

sub append_to_hash {

        my ($ref,$att1,$att2,$data)=@_;

        my %hash= %{$ref};

        my $r = $hash{$att1}{$att2};

        my @array= (defined  $r)? @{$r} : ();

        push (@array,$data);

        $hash{$att1}{$att2} = \@array;

        return %hash;

}

sub get_soc_jtag_v{

        my ($soc,$soc_name,$txview)=@_;

        my $processor_en=0;

        #my $jtag_insts="";

        #my $altera_jtag_ctrl=0;

        #my $xilinx_jtag_ctrl=0;

        #my $xilinx_jtag_ctrl_in;

        #my $xilinx_jtag_ctrl_out;

        my $jtag_inst_name="";

        my $top=$soc->soc_get_top();

        my @intfcs=$top->top_get_intfc_list();

        my %jtag_info;

        foreach my $intfc (@intfcs){

                if( $intfc =~ /socket:jtag_to_wb\[/){ #check JTAG connect parameter. if it is XILINX then connect it to jtag tap

                        my @ports=$top->top_get_intfc_ports_list($intfc);

                        foreach my $p (@ports){

                                my($id,$range,$type,$intfc_name,$intfc_port)= $top->top_get_port($p);

                                my $JTAG_CONNECT=$soc->soc_get_module_param_value ($id,'JTAG_CONNECT');

                                $JTAG_CONNECT=remove_all_white_spaces($JTAG_CONNECT);

                                if($JTAG_CONNECT  =~ /XILINX_JTAG_WB/){

                                        my $chain=$soc->soc_get_module_param_value ($id,'JTAG_CHAIN');

                                        my $index=$soc->soc_get_module_param_value ($id,'JTAG_INDEX');

                                        $jtag_inst_name= $soc->soc_get_instance_name($id);

                                        my %params      = $soc->soc_get_module_param($id);

                                        my $new_range = add_instantc_name_to_parameters(\%params,$id,$range);

                                        %jtag_info=append_to_hash (\%jtag_info,$chain,'wire',"\twire [ $new_range ] ${p};");

                #                       $jtag_def=$jtag_def."\twire [ $new_range ] ${p};\n";                            

                                        if($type eq 'input'){

                #                               $jtag_insts=$jtag_insts."$id XILINX JTAG,";

                                                %jtag_info=append_to_hash (\%jtag_info,0,'inst',"$id XILINX JTAG");

                #                               $xilinx_jtag_ctrl++;

                                                %jtag_info=append_to_hash (\%jtag_info,$chain,'xilinx_num',1);

                #                               $xilinx_jtag_ctrl_in=(defined $xilinx_jtag_ctrl_in)? "$xilinx_jtag_ctrl_in,$p" : "$p";

                                                %jtag_info=append_to_hash (\%jtag_info,$chain,'input',$p);

                                                %jtag_info=check_jtag_indexs(\%jtag_info,$chain,$index,$txview,$jtag_inst_name,0);

                                                #print "\%jtag_info=check_jtag_indexs(\%jtag_info,$chain,$index,$txview,$jtag_inst_name);\n"

                                        }else {

                #                               $xilinx_jtag_ctrl_out=(defined $xilinx_jtag_ctrl_out)? "$xilinx_jtag_ctrl_out,$p" : "$p";

                                                %jtag_info=append_to_hash (\%jtag_info,$chain,'output',$p);

                                        }

                                }#'"XILINX_JTAG_WB"'

                                elsif($JTAG_CONNECT eq '"ALTERA_JTAG_WB"'){

                                        my $index=$soc->soc_get_module_param_value ($id,'JTAG_INDEX');

                                        if($type eq 'input'){

                #                               $jtag_insts=$jtag_insts."$id ALTERA JTAG,";

                                                %jtag_info=append_to_hash (\%jtag_info,0,'inst',"$id ALTERA JTAG");

                                                %jtag_info=append_to_hash (\%jtag_info,0,'altera_num',1);

                                                %jtag_info=check_jtag_indexs(\%jtag_info,0,$index,$txview,$jtag_inst_name,0);

                #                               $altera_jtag_ctrl++;

                                        }

                                }#'"ALTERA_JTAG_WB"'    

                        }       #$p     

                }#if

        }

        #print Dumper \%jtag_info;      

        return %jtag_info;

}

sub get_io_nc_info  {

        my($soc,$port,$inst,$intfc_name,$id)=@_;

        my $IO='no';

        my $NC='no';

        my($i_type,$i_name,$i_num) =split("[:\[ \\]]", $intfc_name);

        if($i_type eq 'plug'){

                my ($addr,$base,$end,$name,$connect_id,$connect_socket,$connect_socket_num)=$soc->soc_get_plug($id,$i_name,$i_num);

                        if($connect_id eq 'IO'){ $IO='yes';}

                        if($connect_id eq 'NC'){ $NC='yes';}

        }

        if($i_type eq 'socket' && $i_name ne'wb_addr_map'){

                my ($ref1,$ref2)= $soc->soc_get_modules_plug_connected_to_socket($id,$i_name,$i_num);

                my %connected_plugs=%$ref1;

                my %connected_plug_nums=%$ref2;

                if(!%connected_plugs ){

                        my  ($s_type,$s_value,$s_connection_num)=$soc->soc_get_socket_of_instance($id,$i_name);

                        my $v=$soc->soc_get_module_param_value($id,$s_value);

                                if ( length( $v || '' )){ $IO='no';} else {

                                        my $con= $soc->object_get_attribute("Unset-intfc" ,"$inst-$port");

                                        if(!defined $con){ $IO='yes';}

                                        else{

                                                $IO='yes' if $con eq 'IO';

                                        }

                                }

                        }

                }

        return ($IO ,$NC);

}

        $sim_only = 0 if (!defined $sim_only);

        my ($io_sim_v,$top_io_short,$param_as_in_v,$param_pass_v,$system_v);

        my $top_io_pass;

        my $src_io_short;

        my $src_io_full="";

        my %params_type = $soc->soc_get_module_param_type($id);

        my $src_ip=$soc ->object_get_attribute('SOURCE_SET',"IP");

        $ip->add_ip($src_ip) if defined $src_ip;

        my $io_full_v="";

        my $io_top_full_v="";

                                 $i_name ='IO' if( !defined $i_name);

                                                          ($new_range =~ /:/  ) ? "\t[ $new_range ]\t" : "\t$new_range\t";

                                 my $port_def=          "\t$type $str $assigned_port;\n";

                                 $io_full_v=$io_full_v.$port_def;

                                 if ($i_name eq 'RxD_sim' && $sim_only == 0){

                                        #do notthing 

                                 }

                                 elsif($i_name eq 'enable'){

                                        $top_io_pass = (!defined $top_io_pass )? "\t\t.$assigned_port($assigned_port & jtag_cpu_en)" : "$top_io_pass,\n\t\t.$assigned_port($assigned_port & jtag_cpu_en)";

                                        $top_io_short= (!defined $top_io_short)? "\t$assigned_port" : "$top_io_short, \n\t$assigned_port";

                                        $io_top_full_v= $io_top_full_v.$port_def;

                                 } elsif($i_name eq 'reset' || $i_name eq 'clk'){

                                        #connection done using  get_top_clk_setting 

                                         $src_io_short= (!defined $src_io_short)? "\t$assigned_port" : "$src_io_short, \n\t$assigned_port";

                                         $src_io_full= $src_io_full.$port_def;

                                 } elsif( $i_name eq 'jtag_to_wb' ){

                                         $top_io_pass = (!defined $top_io_pass )? "\t\t.$assigned_port($assigned_port)" : "$top_io_pass,\n\t\t.$assigned_port($assigned_port)";

                                 }else{

                                         $top_io_short= (!defined $top_io_short)? "\t$assigned_port" : "$top_io_short, \n\t$assigned_port";

                                         $top_io_pass = (!defined $top_io_pass )? "\t\t.$assigned_port($assigned_port)" : "$top_io_pass,\n\t\t.$assigned_port($assigned_port)";

                                         $io_top_full_v= $io_top_full_v.$port_def;

                                 }

                                        my $connect_port_range=($r==1)?"$connect_port\[$new_range\]":$connect_port;

                $i_name ='IO' if (!defined $i_name);

                my $reset_jtag_ored = ($i_name eq 'reset')? '| jtag_system_reset' : '';

                my $reset_jtag_nc = ($i_name eq 'reset')? 'jtag_system_reset' : '';

                        $assigned_ports=($NC eq 'yes')? "$assigned_ports\t\t.$port($reset_jtag_nc)\n": "$assigned_ports\t\t.$port($assigned_port $reset_jtag_ored)\n";

                        $assigned_ports=($NC eq 'yes')? "$assigned_ports\t\t.$port($reset_jtag_nc),\n":"$assigned_ports\t\t.$port($assigned_port $reset_jtag_ored),\n";