tdb:mksigs: ignore symbols (like _DEPRECATED_) after closing function parentheses

[ira/wip.git] / lib / tdb / script / mksigs.pl

diff --git a/lib/tdb/script/mksigs.pl b/lib/tdb/script/mksigs.pl
index ab2e18ec520d29bd628262f302fce7855f9c4251..bd76a04a268bb619acdec2a3d7627bc5d56f71a6 100755 (executable)
--- a/lib/tdb/script/mksigs.pl
+++ b/lib/tdb/script/mksigs.pl
@@ -160,6 +160,7 @@ while (my $LINE = <>) {
        $LINE =~ s/(.*?)\s*$/$1/;
 
        $LINE =~ s/^(.*\))\s+PRINTF_ATTRIBUTE\(.*\);$/$1;/;
+       $LINE =~ s/^(.*\))\s*[a-zA-Z0-9_]+\s*;$/$1;/;
 
        # remove parameter names - slightly too coarse probably
        $LINE =~ s/([\s\(]\*?)[_0-9a-zA-Z]+\s*([,\)])/$1$2/g;