diff options
author | Tom Yu <tlyu@mit.edu> | 2004-12-21 05:18:12 +0000 |
---|---|---|
committer | Tom Yu <tlyu@mit.edu> | 2004-12-21 05:18:12 +0000 |
commit | cddd2e4eef8f1d05d649452e012b68521afb28cd (patch) | |
tree | 11e28cae45332cb1a0954ef3d62ae0e7ae7d46a3 /src/util/def-check.pl | |
parent | 9090c0a32d3b20e0446989d9a05fc5e97425c39f (diff) | |
download | krb5-cddd2e4eef8f1d05d649452e012b68521afb28cd.tar.gz krb5-cddd2e4eef8f1d05d649452e012b68521afb28cd.tar.xz krb5-cddd2e4eef8f1d05d649452e012b68521afb28cd.zip |
* def-check.pl: Check for PRIVATE or INTERNAL annotations in defs
file.
ticket: 2796
version_reported: 1.4
tags: pullup
git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@16976 dc483132-0cff-0310-8789-dd5450dbe970
Diffstat (limited to 'src/util/def-check.pl')
-rw-r--r-- | src/util/def-check.pl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/util/def-check.pl b/src/util/def-check.pl index 9b7aee15e..447421e8e 100644 --- a/src/util/def-check.pl +++ b/src/util/def-check.pl @@ -219,7 +219,9 @@ while (! $d->eof()) { } s/[ \t]*//g; my($xconv); - if (/!CALLCONV/ || /KRB5_CALLCONV_WRONG/) { + if (/PRIVATE/ || /INTERNAL/) { + $xconv = "PRIVATE"; + } elsif (/!CALLCONV/ || /KRB5_CALLCONV_WRONG/) { $xconv = "KRB5_CALLCONV_WRONG"; } elsif ($vararg{$_}) { $xconv = "KRB5_CALLCONV_C"; @@ -227,6 +229,11 @@ while (! $d->eof()) { $xconv = "KRB5_CALLCONV"; } s/;.*$//; + + if ($xconv eq "PRIVATE") { + print "\t private $_\n"; + next LINE2; + } if (!defined($conv{$_})) { print "No calling convention specified for $_!\n"; } elsif (! ($conv{$_} eq $xconv)) { |