ADC: Patch compile script for GSI machines

diff --git a/ADC/compile_periph_gsi.pl b/ADC/compile_periph_gsi.pl
index 3f8e4af7bc522002fbf3c7743ab999a67ba76156..df947dfd9ea2741c073657e0b2f3c46901b8a7d2 100755 (executable)
--- a/ADC/compile_periph_gsi.pl
+++ b/ADC/compile_periph_gsi.pl
@@ -5,6 +5,7 @@ use strict;
 use FileHandle;
 
 
+
 ###################################################################################
 #Settings for this project
 my $TOPNAME                      = "trb3_periph_adc"; #Name of top-level entity
@@ -28,9 +29,11 @@ while (<$SOURCE>) {
 }
 close $SOURCE;
 
+$ENV{'PAR_DESIGN_NAME'}=$TOPNAME;
 $ENV{'SYNPLIFY'}=$synplify_path;
 $ENV{'SYN_DISABLE_RAINBOW_DONGLE'}=1;
 $ENV{'LM_LICENSE_FILE'}=$lm_license_file_for_synplify;
+my $tpmap = $TOPNAME . "_map" ;
 
 
 my $FAMILYNAME="LatticeECP3";
@@ -45,59 +48,13 @@ unless(-d $WORKDIR) {
 }
 
 
-
-# create full lpf file
 system ("./compile_constraints.pl");
+system ("../base/make_version_vhd.pl");
 
 
-# generate timestamp
-my $t=time;
-my $fh = new FileHandle(">version.vhd");
-die "could not open file" if (! defined $fh);
-print $fh <<EOF;
-
---## attention, automatically generated. Don't change by hand.
-library ieee;
-USE IEEE.std_logic_1164.ALL;
-USE IEEE.std_logic_ARITH.ALL;
-USE IEEE.std_logic_UNSIGNED.ALL;
-use ieee.numeric_std.all;
-
-package version is
-
-    constant VERSION_NUMBER_TIME  : integer   := $t;
-
-end package version;
-EOF
-$fh->close;
-
-my $r = "";
-
 my $c="$synplify_path/bin/synplify_premier_dp -batch $TOPNAME.prj";
-$r=execute($c, "do_not_exit" );
-
-
-
-
-chdir $WORKDIR or die "can't chdir to $WORKDIR: $!";
-
-
-$fh = new FileHandle("<$TOPNAME".".srr");
-my @a = <$fh>;
-$fh->close;
-
-
-
-foreach (@a) {
-  if (/\@E:/) {
-    print "\n";
-    $c="cat $TOPNAME.srr | grep -C 3 \"\@E\"";
-    system($c);
-    print "\n\n";
-    exit 129;
-  }
-}
-
+my $r=execute($c, "do_not_exit" );
+checksrr();
 
 $ENV{'LM_LICENSE_FILE'}=$lm_license_file_for_par;
 
@@ -110,8 +67,6 @@ execute($c);
 $c=qq|ngdbuild  -a $FAMILYNAME -d $DEVICENAME -p "$lattice_path/ispfpga/ep5c00/data" -dt "$TOPNAME.ngo" "$TOPNAME.ngd"|;
 execute($c);
 
-my $tpmap = $TOPNAME . "_map" ;
-
 $c=qq|map  -retime -split_node -a $FAMILYNAME -p $DEVICENAME -t $PACKAGE -s $SPEEDGRADE "$TOPNAME.ngd" -pr "$TOPNAME.prf" -o "$tpmap.ncd"  -mp "$TOPNAME.mrp" "$TOPNAME.lpf"|;
 execute($c);
 
@@ -119,11 +74,15 @@ system("rm $TOPNAME.ncd");
 
 #$c=qq|mpartrce -p "../$TOPNAME.p2t" -log "$TOPNAME.log" -o "$TOPNAME.rpt" -pr "$TOPNAME.prf" -tf "$TOPNAME.pt" "|.$TOPNAME.qq|_map.ncd" "$TOPNAME.ncd"|;
 #  $c=qq|$lattice_path/ispfpga/bin/lin/multipar -pr "$TOPNAME.prf" -o "mpar_$TOPNAME.rpt" -log "mpar_$TOPNAME.log" -p "../$TOPNAME.p2t"  "$tpmap.ncd" "$TOPNAME.ncd"|;
-$c=qq|par -w -l 5 -i 6 -t 1 -c 0 -e 0 -exp parUseNBR=1:parCDP=0:parCDR=0:parPathBased=OFF $tpmap.ncd $TOPNAME.ncd $TOPNAME.prf|;
+$c=qq|par -w -l 5 -i 6 -t 3 -c 0 -e 0 -exp parUseNBR=1:parCDP=0:parCDR=0:parPathBased=OFF $tpmap.ncd $TOPNAME.ncd $TOPNAME.prf|;
+execute($c);
+
+$c=qq|$lattice_path/ispfpga/bin/lin/ltxt2ptxt $TOPNAME.ncd|;
+execute($c);
+
+$c=qq|$lattice_path/ispfpga/bin/lin/bitgen -w -g CfgMode:Disable -g RamCfg:Reset -g ES:No  $TOPNAME.ncd $TOPNAME.bit $TOPNAME.prf &|;
+# $c=qq|$lattice_path/ispfpga/bin/lin/bitgen  -w "$TOPNAME.ncd"  "$TOPNAME.prf"|;
 execute($c);
-# IOR IO Timing Report
-# $c=qq|$lattice_path/ispfpga/bin/lin/iotiming -s "$TOPNAME.ncd" "$TOPNAME.prf"|;
-# execute($c);
 
 # TWR Timing Report
 $c=qq|trce -c -v 15 -o "$TOPNAME.twr.setup" "$TOPNAME.ncd" "$TOPNAME.prf"|;
@@ -132,30 +91,45 @@ execute($c);
 $c=qq|trce -hld -c -v 5 -o "$TOPNAME.twr.hold"  "$TOPNAME.ncd" "$TOPNAME.prf"|;
 execute($c);
 
-$c=qq|ltxt2ptxt $TOPNAME.ncd|;
-execute($c);
-
-$c=qq|bitgen -w -g CfgMode:Disable -g RamCfg:Reset -g ES:No  $TOPNAME.ncd $TOPNAME.bit $TOPNAME.prf|;
-# $c=qq|$lattice_path/ispfpga/bin/lin/bitgen  -w "$TOPNAME.ncd"  "$TOPNAME.prf"|;
+#IOR IO Timing Report
+$c=qq|iotiming -s "$TOPNAME.ncd" "$TOPNAME.prf"|;
 execute($c);
 
 chdir "..";
 
 exit;
 
+
+
+
 sub execute {
   my ($c, $op) = @_;
   #print "option: $op \n";
   $op = "" if(!$op);
   print "\n\ncommand to execute: $c \n";
   $r=system($c);
-  if ($r) {
+  if($r) {
     print "$!";
-    if ($op ne "do_not_exit") {
-      exit;
+    if($op ne "do_not_exit") {
+           exit;
+      }
     }
+  return $r;
   }
 
-  return $r;
 
-}
+sub checksrr {
+  chdir "workdir";
+  my $fh = new FileHandle("<$TOPNAME".".srr");
+  my @a = <$fh>;
+  $fh -> close;
+  foreach (@a) {
+    if(/\@E:/)  {
+      print "\n";
+      $c="cat $TOPNAME.srr | grep \"\@E\"";
+      system($c);
+      print "\n\n";
+      exit 129;
+      }
+    }
+  }
\ No newline at end of file