github/verilator
1
0
Fork 1
mirror of https://github.com/verilator/verilator.git synced 2025-04-05 20:22:41 +00:00
Code Issues Packages Projects Releases Wiki Activity

With --debug, turn off address space layout randomization.

Browse Source
This commit is contained in:
Wilson Snyder 2020-11-12 18:49:49 -05:00
parent 5634a18f78
commit 87b2adb6a1
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
bin/verilator
View File

@ -76,7 +76,8 @@ if ($opt_gdbbt && !gdb_works()) {
my @quoted_sw = map {sh_escape($_)} @Opt_Verilator_Sw; my @quoted_sw = map {sh_escape($_)} @Opt_Verilator_Sw;
if ($opt_gdb) { if ($opt_gdb) {
# Generic GDB interactive # Generic GDB interactive
run (($ENV{VERILATOR_GDB}||"gdb") run (aslr_off()
.($ENV{VERILATOR_GDB}||"gdb")
." ".verilator_bin() ." ".verilator_bin()
# Note, uncomment to set breakpoints before running: # Note, uncomment to set breakpoints before running:
# ." -ex 'break main'" # ." -ex 'break main'"
@ -91,16 +92,22 @@ if ($opt_gdb) {
." -ex 'bt'"); ." -ex 'bt'");
} elsif ($opt_rr) { } elsif ($opt_rr) {
# Record with rr # Record with rr
run ("rr record ".verilator_bin() run (aslr_off()
."rr record ".verilator_bin()
." ".join(' ', @quoted_sw)); ." ".join(' ', @quoted_sw));
} elsif ($opt_gdbbt && $Debug) { } elsif ($opt_gdbbt && $Debug) {
# Run under GDB to get gdbbt # Run under GDB to get gdbbt
run ("gdb" run (aslr_off()
."gdb"
." ".verilator_bin() ." ".verilator_bin()
." --batch --quiet --return-child-result" ." --batch --quiet --return-child-result"
." -ex \"run ".join(' ', @quoted_sw)."\"" ." -ex \"run ".join(' ', @quoted_sw)."\""
." -ex 'set width 0'" ." -ex 'set width 0'"
." -ex 'bt' -ex 'quit'"); ." -ex 'bt' -ex 'quit'");
} elsif ($Debug) {
# Debug
run(aslr_off()
.verilator_bin()." ".join(' ',@quoted_sw));
} else { } else {
# Normal, non gdb # Normal, non gdb
run(verilator_bin()." ".join(' ',@quoted_sw)); run(verilator_bin()." ".join(' ',@quoted_sw));
@ -165,6 +172,15 @@ sub gdb_works {
return $status==0; return $status==0;
} }
sub aslr_off {
my $ok = `setarch --addr-no-randomize echo ok 2>/dev/null` || "";
if ($ok =~ /ok/) {
return "setarch --addr-no-randomize ";
} else {
return "";
}
}
sub run { sub run {
# Run command, check errors # Run command, check errors
my $command = shift; my $command = shift;