From 6d9d5ba6fbd73ab50aa1430621d90d601f10354a Mon Sep 17 00:00:00 2001
From: Cahit <c.ugur@gsi.de>
Date: Fri, 23 Oct 2015 11:15:51 +0200
Subject: [PATCH] adjusted compile script for adaptive lpf file generation for
 tdc constraints

---
 32PinAddOn/config_compile_gsi.pl |  6 ++--
 scripts/compile.pl               | 52 +++++++++++++++++++++++++++++++-
 2 files changed, 54 insertions(+), 4 deletions(-)

diff --git a/32PinAddOn/config_compile_gsi.pl b/32PinAddOn/config_compile_gsi.pl
index 746fe51..a8bacf4 100644
--- a/32PinAddOn/config_compile_gsi.pl
+++ b/32PinAddOn/config_compile_gsi.pl
@@ -1,11 +1,13 @@
 TOPNAME                      => "trb3_periph_32PinAddOn",
 lm_license_file_for_synplify => "27000\@lxcad01.gsi.de",
 lm_license_file_for_par      => "1702\@hadeb05.gsi.de",
-lattice_path                 => '/opt/lattice/diamond/3.4_x64/',
+lattice_path                 => '/opt/lattice/diamond/3.5_x64/',
 synplify_path                => '/opt/synplicity/J-2014.09-SP2',
 #synplify_command             => "/opt/lattice/diamond/3.4_x64/bin/lin64/synpwrap -fg -options",
 synplify_command             => "/opt/synplicity/J-2014.09-SP2/bin/synplify_premier_dp",
 
+nodelist_file                => '../nodes_lxhadeb07.txt',
+
 #Include only necessary lpf files
 include_TDC                  => 1,
 include_GBE                  => 0,
@@ -13,5 +15,3 @@ include_GBE                  => 0,
 #Report settings
 firefox_open                 => 0,
 twr_number_of_errors         => 20,
-
-
diff --git a/scripts/compile.pl b/scripts/compile.pl
index 13555d8..69ceada 100755
--- a/scripts/compile.pl
+++ b/scripts/compile.pl
@@ -19,6 +19,7 @@ my $synplify_command             = $config{synplify_command};
 my $synplify_locale_workaround   = "en_US\@UTF-8";
 my $lattice_bin_path             = "$lattice_path/bin/lin64"; # note the lin/lin64 at the end, no isfgpa needed
 
+my $nodelist_file                = $config{nodelist_file};
 my $include_TDC                  = $config{include_TDC} || 0;
 my $include_GBE                  = $config{include_GBE} || 0;
 my $include_CTS                  = $config{include_CTS} || 0;
@@ -123,7 +124,56 @@ if($include_TDC && $include_CTS==0) {
   system("cat tdc_release/tdc_constraints_64.lpf >> $WORKDIR/$TOPNAME.lpf");
   system("cat tdc_release/unimportant_lines_constraints.lpf >> $WORKDIR/$TOPNAME.lpf");
   system("cat unimportant_lines_constraints.lpf >> $WORKDIR/$TOPNAME.lpf");
+
+  #change the Ring buffer name in the constraints file according to the config.vhd
+  my $fh = new FileHandle("<config.vhd");
+  my @a = <$fh>;
+  $fh -> close;
+  my $ringbuffersize = 5;
+    
+    foreach (@a)
+    {
+	if(/constant\s*RING_BUFFER_SIZE/)
+	{
+	    my $tmp = $1 if $_ =~ /(:=.*;)/;
+	    $ringbuffersize = $1 if $1 =~ /(\d+)/;
+	}
+    }
+
+
+  my @newline;
+  $fh = new FileHandle("<$WORKDIR/$TOPNAME".".lpf");
+  @a = <$fh>;
+  $fh -> close;
+    
+    foreach (@a)
+    {
+	if ($ringbuffersize == 0) {
+	    $_ =~ s/Buffer_128.The_Buffer/Buffer_32.The_Buffer/g;
+	}
+	elsif ($ringbuffersize == 1 || $ringbuffersize == 5) {
+	    $_ =~ s/Buffer_128.The_Buffer/Buffer_64.The_Buffer/g;
+	}
+	elsif ($ringbuffersize == 2) {
+	    $_ =~ s/Buffer_128.The_Buffer/Buffer_96.The_Buffer/g;
+	}
+	elsif ($ringbuffersize == 3 || $ringbuffersize == 7) {
+	    $_ =~ s/Buffer_128.The_Buffer/Buffer_128.The_Buffer/g;
+	}
+	else {
+	    print "unknown ringbuffer size... \n";
+	    exit 129;
+	}
+
+	push(@newline,$_);
+    }
+  $fh = new FileHandle(">$WORKDIR/$TOPNAME".".lpf");
+  print $fh @newline;
+  $fh -> close;
+
 }
+
+
 if($include_GBE) {
 
 }
@@ -271,7 +321,7 @@ if($par==1 || $all==1){
     system("rm $TOPNAME.ncd");
     if ($isMultiPar)
     {
-	$c=qq|LC_ALL=en_US.UTF-8; par -m nodelist.txt -n $nrNodes -w -i 15 -l 5 -y -s 8 -t 1 -c 1 -e 2 -exp parCDP=1:parCDR=1:parPlcInLimit=0:parPlcInNeighborSize=1:parPathBased=ON:parHold=1:parHoldLimit=10000:paruseNBR=1 $tpmap.ncd $TOPNAME.dir $TOPNAME.prf;|;
+	$c=qq|LC_ALL=en_US.UTF-8; par -m $nodelist_file -n $nrNodes -w -i 15 -l 5 -y -s 8 -t 1 -c 1 -e 2 -exp parCDP=1:parCDR=1:parPlcInLimit=0:parPlcInNeighborSize=1:parPathBased=ON:parHold=1:parHoldLimit=10000:paruseNBR=1 $tpmap.ncd $TOPNAME.dir $TOPNAME.prf;|;
 	execute($c);
 
         # find and copy the .ncd file which has met the timing constraints
-- 
2.43.0