aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorPeter Maydell <peter.maydell@linaro.org>2022-02-22 13:07:32 +0000
committerPeter Maydell <peter.maydell@linaro.org>2022-02-22 13:07:32 +0000
commit5abccc7922ca5291327b0a1e84ace526d97c633b (patch)
treeab8a35d147f5b5ed55205247e9eda5f5632d2731 /scripts
parent922268067fe4181d6edcfccd689e908e4d1243ad (diff)
parent975592f5523fdf8708e4b53da937cf4805b1b79a (diff)
downloadqemu-5abccc7922ca5291327b0a1e84ace526d97c633b.zip
qemu-5abccc7922ca5291327b0a1e84ace526d97c633b.tar.gz
qemu-5abccc7922ca5291327b0a1e84ace526d97c633b.tar.bz2
Merge remote-tracking branch 'remotes/thuth-gitlab/tags/pull-request-2022-02-21' into staging
* Improve virtio-net failover test * Some small fixes for the qtests * Misc header cleanups by Philippe # gpg: Signature made Mon 21 Feb 2022 11:40:37 GMT # gpg: using RSA key 27B88847EEE0250118F3EAB92ED9D774FE702DB5 # gpg: issuer "thuth@redhat.com" # gpg: Good signature from "Thomas Huth <th.huth@gmx.de>" [full] # gpg: aka "Thomas Huth <thuth@redhat.com>" [full] # gpg: aka "Thomas Huth <huth@tuxfamily.org>" [full] # gpg: aka "Thomas Huth <th.huth@posteo.de>" [unknown] # Primary key fingerprint: 27B8 8847 EEE0 2501 18F3 EAB9 2ED9 D774 FE70 2DB5 * remotes/thuth-gitlab/tags/pull-request-2022-02-21: (25 commits) hw/tricore: Remove unused and incorrect header hw/m68k/mcf: Add missing 'exec/hwaddr.h' header exec/exec-all: Move 'qemu/log.h' include in units requiring it softmmu/runstate: Clean headers linux-user: Add missing "qemu/timer.h" include target: Add missing "qemu/timer.h" include core/ptimers: Remove unnecessary 'sysemu/cpus.h' include exec/ramblock: Add missing includes qtest: Add missing 'hw/qdev-core.h' include hw/acpi/memory_hotplug: Remove unused 'hw/acpi/pc-hotplug.h' header hw/remote: Add missing include hw/tpm: Clean includes scripts: Remove the old switch-timer-api script tests/qtest: failover: migration abort test with failover off tests/qtest: failover: test migration if the guest doesn't support failover tests/qtest: failover: check migration with failover off tests/qtest: failover: check missing guest feature tests/qtest: failover: check the feature is correctly provided tests/qtest: failover: use a macro for check_one_card() tests/qtest: failover: clean up pathname of tests ... Signed-off-by: Peter Maydell <peter.maydell@linaro.org>
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/switch-timer-api178
1 files changed, 0 insertions, 178 deletions
diff --git a/scripts/switch-timer-api b/scripts/switch-timer-api
deleted file mode 100755
index 41736d1..0000000
--- a/scripts/switch-timer-api
+++ /dev/null
@@ -1,178 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-use Getopt::Long;
-use FindBin;
-
-my @legacy = qw(qemu_clock_ptr qemu_get_clock_ns qemu_get_clock_ms qemu_register_clock_reset_notifier qemu_unregister_clock_reset_notifier qemu_new_timer qemu_free_timer qemu_del_timer qemu_mod_timer_ns qemu_mod_timer qemu_run_timers qemu_new_timer_ns qemu_new_timer_us qemu_new_timer_ms);
-my $legacyre = '\b('.join('|', @legacy).')\b';
-my $option_git;
-my $option_dryrun;
-my $option_quiet;
-my $option_rtc;
-my $suffix=".tmp.$$";
-my @files;
-my $getfiles = 'git grep -l -E \'\b((host|rt|vm|rtc)_clock\b|qemu_\w*timer)\' | egrep \'\.[ch]$\' | egrep -v \'qemu-timer\.c$|include/qemu/timer\.h$\'';
-
-sub Syntax
-{
- print STDERR <<STOP;
-Usage: $FindBin::Script [options] FILE ...
-
-Translate each FILE to the new QEMU timer API. If no files
-are passed, a reasonable guess is taken.
-
-Options:
- -q, --quiet Do not show warnings etc
- -d, --dry-run Do a dry run
- -g, --git Generate a git commit for each change
- -r, --rtc Only fix up rtc usage
- -h, --help Print this message
-
-STOP
-return;
-}
-
-sub ParseOptions
-{
- if (!GetOptions (
- "dry-run|d" => \$option_dryrun,
- "git|g" => \$option_git,
- "quiet|q" => \$option_quiet,
- "rtc|r" => \$option_rtc,
- "help|h" => sub { Syntax(); exit(0); }
- ))
- {
- Syntax();
- die "Bad options";
- }
-
- if ($#ARGV >=0)
- {
- @files = @ARGV;
- }
- else
- {
- @files = split(/\s+/, `$getfiles`);
- }
-
- foreach my $file (@files)
- {
- die "Cannot find $file" unless (-f $file && -r $file);
- }
-}
-
-sub DoWarn
-{
- my $text = shift @_;
- my $line = shift @_;
- return if ($option_quiet);
- chomp ($line);
- print STDERR "$text\n";
- print STDERR "$line\n\n";
-}
-
-sub Process
-{
- my $ifn = shift @_;
- my $ofn = $ifn.$suffix;
-
- my $intext;
- my $outtext;
- my $linenum = 0;
-
- open my $input, "<", $ifn || die "Cannot open $ifn for read: $!";
-
- while (<$input>)
- {
- my $line = $_;
- $intext .= $line;
- $linenum++;
-
- # fix the specific uses
- unless ($option_rtc)
- {
- $line =~ s/\bqemu_new_timer(_[num]s)\s*\((vm_|rt_|host_)clock\b/timer_new$1(XXX_$2clock/g;
- $line =~ s/\bqemu_new_timer\s*\((vm_|rt_|host_)clock\b/timer_new(XXX_$1clock/g;
- $line =~ s/\bqemu_get_clock(_[num]s)\s*\((vm_|rt_|host_)clock\b/qemu_clock_get$1(XXX_$2clock/g;
- }
-
- # rtc is different
- $line =~ s/\bqemu_new_timer(_[num]s)\s*\(rtc_clock\b/timer_new$1(rtc_clock/g;
- $line =~ s/\bqemu_new_timer\s*\(rtc_clock\b/timer_new(rtc_clock/g;
- $line =~ s/\bqemu_get_clock(_[num]s)\s*\(rtc_clock\b/qemu_clock_get$1(rtc_clock/g;
- $line =~ s/\bqemu_register_clock_reset_notifier\s*\(rtc_clock\b/qemu_register_clock_reset_notifier(qemu_clock_ptr(rtc_clock)/g;
-
- unless ($option_rtc)
- {
- # fix up comments
- $line =~ s/\b(vm_|rt_|host_)clock\b/XXX_$1clock/g if ($line =~ m,^[/ ]+\*,);
-
- # spurious fprintf error reporting
- $line =~ s/: qemu_new_timer_ns failed/: timer_new_ns failed/g;
-
- # these have just changed name
- $line =~ s/\bqemu_mod_timer\b/timer_mod/g;
- $line =~ s/\bqemu_mod_timer_(ns|us|ms)\b/timer_mod_$1/g;
- $line =~ s/\bqemu_free_timer\b/timer_free/g;
- $line =~ s/\bqemu_del_timer\b/timer_del/g;
- }
-
- # fix up rtc_clock
- $line =~ s/QEMUClock \*rtc_clock;/QEMUClockType rtc_clock;/g;
- $line =~ s/\brtc_clock = (vm_|rt_|host_)clock\b/rtc_clock = XXX_$1clock/g;
-
- unless ($option_rtc)
- {
- # replace any more general uses
- $line =~ s/\b(vm_|rt_|host_)clock\b/qemu_clock_ptr(XXX_$1clock)/g;
- }
-
- # fix up the place holders
- $line =~ s/\bXXX_vm_clock\b/QEMU_CLOCK_VIRTUAL/g;
- $line =~ s/\bXXX_rt_clock\b/QEMU_CLOCK_REALTIME/g;
- $line =~ s/\bXXX_host_clock\b/QEMU_CLOCK_HOST/g;
-
- unless ($option_rtc)
- {
- DoWarn("$ifn:$linenum WARNING: timer $1 not fixed up", $line) if ($line =~ /\b((vm_|rt_|host_)clock)\b/);
- DoWarn("$ifn:$linenum WARNING: function $1 not fixed up", $line) if ($line =~ /\b(qemu_new_timer\w+)\b/);
- DoWarn("$ifn:$linenum WARNING: legacy function $1 remains", $line) if ($line =~ /$legacyre/o);
- }
-
- $outtext .= $line;
- }
-
- close $input;
-
- if ($intext ne $outtext)
- {
- print STDERR "Patching $ifn\n" unless ($option_quiet);
- unless ($option_dryrun)
- {
- open my $output, ">", $ofn || die "Cannot open $ofn for write: $!";
- print $output $outtext;
- close $output;
- rename ($ofn, $ifn) || die "Cannot rename temp file to $ifn: $!";
- return 1;
- }
- }
- return 0;
-}
-
-sub DoCommit
-{
- my $file = shift @_;
- open (my $git, "| git commit -F - $file") || die "Cannot run git commit on $file: $!";
- print $git "timers api: use new timer api in $file\n\nConvert $file to use new timer API.\nThis is an automated commit made by scripts/switch-timer-api\n";
- close ($git);
-}
-
-ParseOptions;
-
-foreach my $file (@files)
-{
- my $changed = Process ($file);
- DoCommit($file) if ($changed && $option_git);
-}