diff options
| author | Richard Levitte <levitte@openssl.org> | 2003-04-03 23:04:48 +0000 |
|---|---|---|
| committer | Richard Levitte <levitte@openssl.org> | 2003-04-03 23:04:48 +0000 |
| commit | 57544ee2248a2f9d976844fe8eaaf404d4d70f1a (patch) | |
| tree | 95d01f329fb3bb7c46b96d5bd32a3b4cabad808d /util/mkdef.pl | |
| parent | 83b23ed967d1847e7393dfb9ff14a2c03b28654b (diff) | |
| download | openssl-57544ee2248a2f9d976844fe8eaaf404d4d70f1a.zip openssl-57544ee2248a2f9d976844fe8eaaf404d4d70f1a.tar.gz openssl-57544ee2248a2f9d976844fe8eaaf404d4d70f1a.tar.bz2 | |
Counter for GCC attributes.
Diffstat (limited to 'util/mkdef.pl')
| -rwxr-xr-x | util/mkdef.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/util/mkdef.pl b/util/mkdef.pl index dc5b12b..4c15a94 100755 --- a/util/mkdef.pl +++ b/util/mkdef.pl @@ -833,14 +833,14 @@ sub do_defs } elsif (/\(\*(\w*(\{[0-9]+\})?)\([^\)]+/) { $s = $1; print STDERR "DEBUG: found ANSI C function $s\n" if $debug; - } elsif (/\w+\W+(\w+)\W*\(\s*\)$/s) { + } elsif (/\w+\W+(\w+)\W*\(\s*\)(\s*__attribute__\(.*\)\s*)?$/s) { # K&R C print STDERR "DEBUG: found K&R C function $s\n" if $debug; next; - } elsif (/\w+\W+\w+(\{[0-9]+\})?\W*\(.*\)$/s) { - while (not /\(\)$/s) { - s/[^\(\)]*\)$/\)/s; - s/\([^\(\)]*\)\)$/\)/s; + } elsif (/\w+\W+\w+(\{[0-9]+\})?\W*\(.*\)(\s*__attribute__\(.*\)\s*)?$/s) { + while (not /\(\)(\s*__attribute__\(.*\)\s*)?$/s) { + s/[^\(\)]*\)(\s*__attribute__\(.*\)\s*)?$/\)/s; + s/\([^\(\)]*\)\)(\s*__attribute__\(.*\)\s*)?$/\)/s; } s/\(void\)//; /(\w+(\{[0-9]+\})?)\W*\(\)/s; |