Add script to check for globals

Signed-off-by: Frediano Ziglio <fziglio@redhat.com>

1 files changed, 30 insertions, 0 deletions

diff --git a/spice-server/reentrant_size b/spice-server/reentrant_size
new file mode 100755
index 0000000..d2fc0aa
--- /dev/null
+++ b/spice-server/reentrant_size
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+use strict;
+
+open(my $sizes, "-|", 'size', @ARGV) or die;
+while (<$sizes>) {
+    my @a = split("\t");
+    next if $a[3] <= 0 || ($a[1] == 0 && $a[2] == 0);
+    my $fn = $a[5];
+    chomp($fn);
+    open(my $symbols, '-|', 'objdump', '-t', $fn) or die;
+    my $output = '';
+    while (<$symbols>) {
+        next if !/^([0-9a-f]{8,}) (.......) (\S+)\t([0-9a-f]{8,}) (.*)/i;
+        my ($offset, $flags, $sec, $size, $name) = ($1, $2, $3, $4, $5);
+        next if $sec =~ /^\*UND\*$|^\*ABS\*$|^\.text|^\.rodata$|^\.comment$|^\.data\.rel\.ro(\.local)?$|^\.rodata\.str|^\.rodata\.cst/;
+        next if substr($flags, 5, 1) eq 'd' && $sec eq $name;
+
+        # gobject
+        if ($sec eq '.bss') {
+            $size =~ s/^0+//;
+            next if $size eq '8' && $name =~ /^g_define_type_id__volatile\.\d+$/;
+            next if $size eq '4' && $name =~ /_private_offset$/;
+            next if $size eq '8' && $name =~ /_parent_class$/;
+        }
+
+        $output .= $_;
+    }
+    print "$fn\n$output\n" if $output;
+}