summaryrefslogtreecommitdiffstats
path: root/util/mkerr.pl
diff options
context:
space:
mode:
authorRichard Levitte <levitte@openssl.org>2003-04-03 23:04:48 +0000
committerRichard Levitte <levitte@openssl.org>2003-04-03 23:04:48 +0000
commit57544ee2248a2f9d976844fe8eaaf404d4d70f1a (patch)
tree95d01f329fb3bb7c46b96d5bd32a3b4cabad808d /util/mkerr.pl
parent83b23ed967d1847e7393dfb9ff14a2c03b28654b (diff)
Counter for GCC attributes.
Diffstat (limited to 'util/mkerr.pl')
-rw-r--r--util/mkerr.pl14
1 files changed, 7 insertions, 7 deletions
diff --git a/util/mkerr.pl b/util/mkerr.pl
index f1178602ef..cf34a35ce1 100644
--- a/util/mkerr.pl
+++ b/util/mkerr.pl
@@ -128,20 +128,20 @@ while (($hdr, $lib) = each %libinc)
s/^[\n\s]*//g;
s/[\n\s]*$//g;
next if(/typedef\W/);
- if (/\(\*(\w*)\([^\)]+/) {
+ if (/\(\*(\w*)\([^\)]+\)(\s*__attribute__\(.*\)\s*)?$/) {
my $name = $1;
$name =~ tr/[a-z]/[A-Z]/;
$ftrans{$name} = $1;
- } elsif (/\w+\W+(\w+)\W*\(\s*\)$/s){
+ } elsif (/\w+\W+(\w+)\W*\(\s*\)(\s*__attribute__\(.*\)\s*)?$/s){
# K&R C
next ;
- } elsif (/\w+\W+\w+\W*\(.*\)$/s) {
- while (not /\(\)$/s) {
- s/[^\(\)]*\)$/\)/s;
- s/\([^\(\)]*\)\)$/\)/s;
+ } elsif (/\w+\W+\w+\W*\(.*\)(\s*__attribute__\(.*\)\s*)?$/s) {
+ while (not /\(\)(\s*__attribute__\(.*\)\s*)?$/s) {
+ s/[^\(\)]*\)(\s*__attribute__\(.*\)\s*)?$/\)/s;
+ s/\([^\(\)]*\)\)(\s*__attribute__\(.*\)\s*)?$/\)/s;
}
s/\(void\)//;
- /(\w+)\W*\(\)/s;
+ /(\w+(\{[0-9]+\})?)\W*\(\)/s;
my $name = $1;
$name =~ tr/[a-z]/[A-Z]/;
$ftrans{$name} = $1;