Experimental Physics and
Industrial Control System

"Heinz P. Junkes via Core-talk" <[email protected]> · Fri, 18 Jan 2019 19:54:36 +0100

Unfortunately I have to change something for the new RTEMS when

generating the testfiles in /src/tool/makeTestfile.pl.



What is the most elegant way to do this? I can't tell if I'm doing

Rtems4 or Rtems5 in the script.


Heinz

diff --git a/src/tools/makeTestfile.pl b/src/tools/makeTestfile.pl
index 7d298768f..5408f9e6a 100644
--- a/src/tools/makeTestfile.pl
+++ b/src/tools/makeTestfile.pl
@@ -38,7 +38,8 @@ if( $TA =~ /^win32-x86/ && $HA !~ /^win/ ) {

 # Run pc386 test harness w/ QEMU
 } elsif( $TA =~ /^RTEMS-pc386-qemu$/ ) {

-  $exec = "qemu-system-i386 -m 64 -no-reboot -serial stdio -display

none -net nic,model=ne2k_pci -net user,restrict=yes -kernel $exe";

+  #  $exec = "qemu-system-i386 -m 64 -no-reboot -serial stdio -display

none -net nic,model=ne2k_pci -net user,restrict=yes -kernel $exe";

+  $exec = "qemu-system-i386 -m 64 -no-reboot -serial stdio -append

\"--console=/dev/com1\" -display none -net nic,model=ne2k_pci -net

user,restrict=yes -kernel $exe";


 # Explicitly fail for other RTEMS targets
 } elsif( $TA =~ /^RTEMS-/ ) {
@@ -48,6 +49,7 @@ if( $TA =~ /^win32-x86/ && $HA !~ /^win/ ) {
   $exec = "./$exe";
 }

+my $tmp=$exec; $tmp=~s/\"//g;
 open(my $OUT, '>', $target) or die "Can't create $target: $!\n";

 print $OUT <<EOF;
@@ -59,7 +61,7 @@ use Cwd 'abs_path';
 \$ENV{HARNESS_ACTIVE} = 1 if scalar \@ARGV && shift eq '-tap';
 \$ENV{TOP} = abs_path(\$ENV{TOP}) if exists \$ENV{TOP};

-system('$exec') == 0 or die "Can't run $exec: \$!\\n";
+system('$exec') == 0 or die "Can't run $tmp: \$!\\n";
 EOF

 close $OUT or die "Can't close $target: $!\n";



Experimental Physics and Industrial Control System

Experimental Physics and
Industrial Control System