Github_Repos/cvw
1
0
Fork 1
mirror of https://github.com/openhwgroup/cvw synced 2025-02-11 06:05:49 +00:00
Code Issues Packages Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
David Harris 2021-01-18 00:42:40 -05:00
parent 18fe5c7c93
commit 46d02d3818
1 changed files with 76 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

132
wally-pipelined/bin/exe2memfile.pl
View File

@ -5,6 +5,9 @@
# Converts an executable file to a series of 32-bit hex instructions # Converts an executable file to a series of 32-bit hex instructions
# to read into a Verilog simulation with $readmemh # to read into a Verilog simulation with $readmemh
use File::stat;
use IO::Handle;
if ($#ARGV == -1) { if ($#ARGV == -1) {
die("Usage: $0 executable_file"); die("Usage: $0 executable_file");
} }
@ -13,74 +16,91 @@ if ($#ARGV == -1) {
my @memfilebytes = (0)*16384*4; my @memfilebytes = (0)*16384*4;
my $maxaddress = 0; my $maxaddress = 0;
STDOUT->autoflush(1);
print ("Processing $#ARGV memfiles: ");
my $frac = $#ARGV/10;
for(my $i=0; $i<=$#ARGV; $i++) { for(my $i=0; $i<=$#ARGV; $i++) {
if ($i % $frac == 0) { print ("$i ") };
my $fname = $ARGV[$i]; my $fname = $ARGV[$i];
# print "fname = $fname"; # print "fname = $fname";
my $ofile = $fname.".objdump"; my $ofile = $fname.".objdump";
my $memfile = $fname.".memfile"; my $memfile = $fname.".memfile";
open(FILE, $ofile) || die("Can't read $ofile"); my $needsprocessing = 0;
my $mode = 0; # parse for code if (!-e $memfile) { $needsprocessing = 1; } # create memfile if it doesn't exist
my $address; else {
my $osb = stat($ofile) || die("Can't stat $ofile");
# initialize to all zeros; my $msb = stat($memfile) || die("Can't stat $memfile");
for (my $i=0; $i < 65536*4; $i++) { my $otime = $osb->mtime;
$memfilebytes[$i] = "00"; my $mtime = $msb->mtime;
if ($otime > $mtime) { $needsprocessing = 1; } # is memfile out of date?
} }
while(<FILE>) { if ($needsprocessing == 1) {
if ($mode == 0) { # Parse code open(FILE, $ofile) || die("Can't read $ofile");
# print("Examining $_\n"); my $mode = 0; # parse for code
if (/^\s*(\S\S\S\S\S\S\S\S):\s+(\S+)\s+/) { my $address;
$address = &fixadr($1);
my $instr = $2; # initialize to all zeros;
my $len = length($instr); for (my $i=0; $i < 65536*4; $i++) {
for (my $i=0; $i<$len/2; $i++) { $memfilebytes[$i] = "00";
$memfilebytes[$address+$i] = substr($instr, $len-2-2*$i, 2); }
}
# print ("address $address $instr\n"); while(<FILE>) {
} if ($mode == 0) { # Parse code
if (/Disassembly of section .data:/) { $mode = 1;} # print("Examining $_\n");
} elsif ($mode == 1) { # Parse data segment if (/^\s*(\S\S\S\S\S\S\S\S):\s+(\S+)\s+/) {
if (/^\s*(\S\S\S\S\S\S\S\S):\s+(.*)/) { $address = &fixadr($1);
$address = &fixadr($1); my $instr = $2;
# print "addresss $address maxaddress $maxaddress\n"; my $len = length($instr);
if ($address > $maxaddress) { $maxaddress = $address; } for (my $i=0; $i<$len/2; $i++) {
my $line = $2; $memfilebytes[$address+$i] = substr($instr, $len-2-2*$i, 2);
# merge chunks with spaces }
$line =~ s/(\S)\s(\S)/$1$2/g; # print ("address $address $instr\n");
# strip off comments
$line =~ /^(\S*)/;
$payload = $1;
&emitData($address, $payload);
} }
if (/Disassembly of section .riscv.attributes:/) { $mode = 2; } if (/Disassembly of section .data:/) { $mode = 1;}
} elsif ($mode == 1) { # Parse data segment
if (/^\s*(\S\S\S\S\S\S\S\S):\s+(.*)/) {
$address = &fixadr($1);
# print "addresss $address maxaddress $maxaddress\n";
if ($address > $maxaddress) { $maxaddress = $address; }
my $line = $2;
# merge chunks with spaces
$line =~ s/(\S)\s(\S)/$1$2/g;
# strip off comments
$line =~ /^(\S*)/;
$payload = $1;
&emitData($address, $payload);
}
if (/Disassembly of section .riscv.attributes:/) { $mode = 2; }
}
}
close(FILE);
$maxaddress += 32; # pad some zeros at the end
# print to memory file
if ($fname =~ /rv32/) {
open(MEMFILE, ">$memfile") || die("Can't write $memfile");
for (my $i=0; $i<= $maxaddress; $i = $i + 4) {
for ($j=3; $j>=0; $j--) {
print MEMFILE "$memfilebytes[$i+$j]";
}
print MEMFILE "\n";
}
close(MEMFILE);
} else {
open(MEMFILE, ">$memfile") || die("Can't write $memfile");
for (my $i=0; $i<= $maxaddress; $i = $i + 8) {
for ($j=7; $j>=0; $j--) {
print MEMFILE "$memfilebytes[$i+$j]";
}
print MEMFILE "\n";
}
close(MEMFILE);
} }
} }
close(FILE);
$maxaddress += 32; # pad some zeros at the end
# print to memory file
if ($fname =~ /rv32/) {
open(MEMFILE, ">$memfile") || die("Can't write $memfile");
for (my $i=0; $i<= $maxaddress; $i = $i + 4) {
for ($j=3; $j>=0; $j--) {
print MEMFILE "$memfilebytes[$i+$j]";
}
print MEMFILE "\n";
}
close(MEMFILE);
} else {
open(MEMFILE, ">$memfile") || die("Can't write $memfile");
for (my $i=0; $i<= $maxaddress; $i = $i + 8) {
for ($j=7; $j>=0; $j--) {
print MEMFILE "$memfilebytes[$i+$j]";
}
print MEMFILE "\n";
}
close(MEMFILE);
}
} }
print("\n");
sub emitData { sub emitData {
# print the data portion of the ELF into a memroy file, including 0s for empty stuff # print the data portion of the ELF into a memroy file, including 0s for empty stuff