ASIC/FPGA Design and Verification Out Source Services

Simple PERL script, which checks SD data write to flash.

1. For an SD slave project I needed to check, that during SD write transaction, the data is written to a flash correctly. The VHDL test-bench generates valid SD traffic. When it writes data, I print it to the simulation log. The DUT then writes to flash. The flash FMF VHDL model prints a message also to the log, when it is written.


2. The log print messages are of the following format:
   k9f1208_ghdl.vhd:1869:44:@1234199903ps:(assertion warning): FL: mem write of location 0 Pg 32 Ad 0 Da 5
   T:SD write data DA3 00001010...011111111 DA2 00001010...011111111 DA2 ...
   


3. The PERL script scans the log file. When it detects a SD write message, it creates an array of expected data. Each time, that the PERL script finds a flash write message, it checks that it was written as expected.


4. The PERL script main loop is simple, because of subroutine usage.



5. 1. #!/bin/perl
      
   2. 
      
   3. $fi="ghdl.log";
      
   4. 
      
   5. open(FPR, $fi) || die("open fail $fi\n");
      
   6. #typical line to work on
      
   7. 
      
   8. 
      
   9. $ix=0;
      
   10. @sd_a = (); #sd array
       
   11. while(eof(FPR) != 1) {
       
   12.   $line=; chomp($line);
       
   13.   #SD 4 bits
       
   14.   if($line =~ /SD write data DA3 ([0-1]*) DA2 ([0-1]*) DA1 ([0-1]*) DA0 ([0-1]*)/) {
       
   15.     $b3=$1;
       
   16.     $b2=$2;
       
   17.     $b1=$3;
       
   18.     $b0=$4;
       
   19.     &sd_4($b3, $b2, $b1, $b0);
       
   20.   }
       
   21.   #SD 1 bit
       
   22.   elsif($line =~ /SD write data DA0 ([0-1]*)/) {
       
   23.     $b0=$1;
       
   24.     &sd_1($b0);
       
   25.   }
       
   26.   #read flash data and check
       
   27.   elsif($line =~ /FL: mem write of location ([0-9]*) Pg ([0-9]*) Ad ([0-9]*) Da ([0-9]*)/) {
       
   28.     $loc=$1; $page=$2; $addr=$3; $dat=$4;
       
   29.     $data=sprintf("%02X", $dat);
       
   30.     if($data != $sd_a[$ix]) {
       
   31.       print("flash loc $loc page $page addr $addr data $data sd $sd_a[$ix] $ix ko\n");
       
   32.     }
       
   33.     else {
       
   34.       print("flash loc $loc page $page addr $addr data $data sd $sd_a[$ix] $ix ok\n");
       
   35.     }
       
   36.     $ix++;
       
   37.   }
       
   38. }#while
       
   39. 
       
   40. close(FPR);
       


6. The subroutines use sprintf to convert from binary to hex.
   The subroutines use substr to work on bits.
   The subroutines are shown below:
   
   


7. 1. sub sd_1 {
      
   2.   my $a="";
      
   3.   my $l="";
      
   4.   my $s="";
      
   5.   my $is="";
      
   6. 
      
   7.   $a=$_[0];
      
   8.   $l=length($a);
      
   9.   for($i=0; $i < $l; $i+=8) {
      
   10.     $s=substr($a, $i, 8);
       
   11.     $is="";
       
   12.     for($j=0; $j < 8; $j++) {$is=$is . substr($s, 7-$j, 1);}
       
   13.     $s=substr($is, 4, 4) . substr($is, 0, 4);
       
   14.     $hex = sprintf('%02X', oct("0b$s"));
       
   15.     #print("dbg sd 1 bit $hex\n");
       
   16.     push(@sd_a, $hex);
       
   17.   }#for
       
   18. }#sub sd_1
       
   19. 
       
   20. sub sd_4 {
       
   21.   my $a3=$_[0];
       
   22.   my $a2=$_[1];
       
   23.   my $a1=$_[2];
       
   24.   my $a0=$_[3];
       
   25.   my $l3="";
       
   26.   my $sd_byte="";
       
   27.   my $sz=0;
       
   28.   my $l8="";
       
   29. 
       
   30.   print("$a3\n");
       
   31.   print("$a2\n");
       
   32.   print("$a1\n");
       
   33.   print("$a0\n");
       
   34.   $l3=length($a3); print("Collected $l3 bits per channel\n");
       
   35.   #build a byte and check it
       
   36.   $sd_byte="";
       
   37.   for($i = 0; $i < $l3; $i++) {
       
   38.     $sd_byte=$sd_byte . substr($a3, $i, 1);
       
   39.     $sd_byte=$sd_byte . substr($a2, $i, 1);
       
   40.     $sd_byte=$sd_byte . substr($a1, $i, 1);
       
   41.     $sd_byte=$sd_byte . substr($a0, $i, 1);
       
   42.     $l8=length($sd_byte);
       
   43.     if($l8 == 8) {
       
   44.       $hex = sprintf('%02X', oct("0b$sd_byte"));
       
   45.       #print("dbg sd 4 bits $sd_byte $hex $sz\n");
       
   46.       push(@sd_a, $hex);
       
   47.       $sz++;
       
   48.       $sd_byte="";
       
   49.     }
       
   50.   }#for
       
   51. }#sd_4
       

Home	VHDL IP Stack