@@ -27,6 +27,8 @@ our $ei;
# followed by anotations of the following form:
# /* ! OType OPrefix Mangle */
# /* ! CPrefix CFinal CFinalHow */
+# or, for subsequent invocations for the same OType, just
+# /* ! OType */
#
# The function definitions use /* ! */ which simply skips that instance.
while (<C_FILE>) {
@@ -42,6 +44,9 @@ while (<C_FILE>) {
my @vals = split /\s+/, $1;
if ($cline == 1 && !@vals) {
$cline = -1;
+ } elsif ($cline == 1 && @vals == 1) {
+ my ($otype) = @vals;
+ die "reference to undefined OType $otype" unless $enums{$otype};
} elsif ($cline == 1 && @vals == 3) {
$ei->{$_} = shift @vals foreach qw(OType OPrefix Mangle);
} elsif ($cline == 2 && @vals == 3) {
Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com> --- tools/ocaml/libs/xc/abi-check | 5 +++++ 1 file changed, 5 insertions(+)