mirror of
https://gitlab.com/libvirt/libvirt.git
synced 2024-10-07 06:45:45 +00:00
e4b980c853
Currently all mockable functions are annotated with the 'noinline' attribute. This is insufficient to guarantee that a function can be reliably mocked with an LD_PRELOAD. The C language spec allows the compiler to assume there is only a single implementation of each function. It can thus do things like propagating constant return values into the caller at compile time, or creating multiple specialized copies of the function body each optimized for a different caller. To prevent these optimizations we must also set the 'noclone' and 'weak' attributes. This fixes the test suite when libvirt.so is built with CLang with optimization enabled. Signed-off-by: Daniel P. Berrange <berrange@redhat.com>
71 lines
1.7 KiB
Perl
Executable File
71 lines
1.7 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# Copyright (C) 2012-2013 Red Hat, Inc.
|
|
#
|
|
# This library is free software; you can redistribute it and/or
|
|
# modify it under the terms of the GNU Lesser General Public
|
|
# License as published by the Free Software Foundation; either
|
|
# version 2.1 of the License, or (at your option) any later version.
|
|
#
|
|
# This library is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
# Lesser General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU Lesser General Public
|
|
# License along with this library. If not, see
|
|
# <http://www.gnu.org/licenses/>.
|
|
|
|
die "syntax: $0 SYMFILE ELFLIB(S)" unless int(@ARGV) >= 2;
|
|
|
|
my $symfile = shift @ARGV;
|
|
my @elflibs = @ARGV;
|
|
|
|
my %wantsyms;
|
|
my %gotsyms;
|
|
|
|
my $ret = 0;
|
|
|
|
open SYMFILE, $symfile or die "cannot read $symfile: $!";
|
|
|
|
while (<SYMFILE>) {
|
|
next if /{/;
|
|
next if /}/;
|
|
next if /global:/;
|
|
next if /local:/;
|
|
next if /^\s*$/;
|
|
next if /^\s*#/;
|
|
next if /\*/;
|
|
|
|
die "malformed line $_" unless /^\s*(\S+);$/;
|
|
|
|
if (exists $wantsyms{$1}) {
|
|
print STDERR "Symbol $1 is listed twice\n";
|
|
$ret = 1;
|
|
} else {
|
|
$wantsyms{$1} = 1;
|
|
}
|
|
}
|
|
close SYMFILE;
|
|
|
|
foreach my $elflib (@elflibs) {
|
|
open NM, "-|", "nm", $elflib or die "cannot run 'nm $elflib': $!";
|
|
|
|
while (<NM>) {
|
|
next unless /^\S+\s(?:[TBDW])\s(\S+)\s*$/;
|
|
|
|
$gotsyms{$1} = 1;
|
|
}
|
|
|
|
close NM;
|
|
}
|
|
|
|
foreach my $sym (keys(%wantsyms)) {
|
|
next if exists $gotsyms{$sym};
|
|
|
|
print STDERR "Expected symbol $sym is not in ELF library\n";
|
|
$ret = 1;
|
|
}
|
|
|
|
exit($ret);
|