my $bitgen = 0;
my $con = 0;
my $guidefile = 0;
+my $parallel = '';
my $result = GetOptions (
"h|help" => \$help,
"t|timing" => \$timing,
"b|bitgen" => \$bitgen,
"g|guide" => \$guidefile,
+ "mc|multicore" => \$parallel
);
if ($con!=0 || $syn!=0 || $map!=0 || $par!=0 || $timing!=0 || $bitgen!=0){
$all=0;
}
+$parallel = '&' if $parallel;
+
###################################################################################
if($timing==1 || $all==1){
print GREEN, "Generating timing report...\n\n", RESET;
- # IOR IO Timing Report
- $c=qq|iotiming -s "$TOPNAME.ncd" "$TOPNAME.prf"|;
- execute($c);
-
# TWR Timing Report
- $c=qq|trce -c -v $twr_number_of_errors -o "$TOPNAME.twr.setup" "$TOPNAME.ncd" "$TOPNAME.prf"|;
+ $c=qq|trce -c -v $twr_number_of_errors -o "$TOPNAME.twr.setup" "$TOPNAME.ncd" "$TOPNAME.prf" $parallel|;
execute($c);
- $c=qq|trce -hld -c -v $twr_number_of_errors -o "$TOPNAME.twr.hold" "$TOPNAME.ncd" "$TOPNAME.prf"|;
+ $c=qq|trce -hld -c -v $twr_number_of_errors -o "$TOPNAME.twr.hold" "$TOPNAME.ncd" "$TOPNAME.prf" $parallel|;
+ execute($c);
+
+ # IOR IO Timing Report
+ $c=qq|iotiming -s "$TOPNAME.ncd" "$TOPNAME.prf"|;
execute($c);
my $c="cat $TOPNAME.par";