regen/embed.pl: Verify flags field of embed.fnc

khwilliamson · khwilliamson · commit 556343f1c9b0 · 2016-05-12T20:16:39.000-06:00
Make sure that the specified flags are legal.
diff --git a/regen/embed.pl b/regen/embed.pl
@@ -75,6 +75,9 @@ sub open_print_header {
 	}
 
 	my ($flags,$retval,$plain_func,@args) = @$_;
+	if ($flags =~ / ( [^AabDdEfiMmnOoPpRrsUXx] ) /x) {
+	    warn "flag $1 is not legal (for function $plain_func)";
+	}
 	my @nonnull;
 	my $has_context = ( $flags !~ /n/ );
 	my $never_returns = ( $flags =~ /r/ );

Original file line number	Diff line number	Diff line change
`@@ -75,6 +75,9 @@ sub open_print_header {`
`75`	`75`	`}`
`76`	`76`
`77`	`77`	`my ($flags,$retval,$plain_func,@args) = @$_;`
	`78`	`+ if ($flags =~ / ( [^AabDdEfiMmnOoPpRrsUXx] ) /x) {`
	`79`	`+ warn "flag $1 is not legal (for function $plain_func)";`
	`80`	`+ }`
`78`	`81`	`my @nonnull;`
`79`	`82`	`my $has_context = ( $flags !~ /n/ );`
`80`	`83`	`my $never_returns = ( $flags =~ /r/ );`